List.asp
上传用户:xxtaishan
上传日期:2022-01-02
资源大小:4063k
文件大小:7k
源码类别:

IP电话/视频会议

开发平台:

ASP/ASPX

  1. <!--#include file="../../inc/conn.asp"-->
  2. <!--#include file="../../inc/func.asp"-->
  3. <html>
  4. <head>
  5. <title>信息列表</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <LINK REL="stylesheet" HREF="../images/style.css" TYPE="text/css"> <style type="text/css">
  8. <!--
  9. .style1 {
  10. color: #FFFFFF;
  11. font-weight: bold;
  12. }
  13. -->
  14. </style>
  15. </head>
  16. <body bgcolor="#FFFFFF" text="#000000">
  17. <%
  18. Dim query
  19. Dim classid
  20. Dim nclassid
  21. classid=request("classid")
  22. nclassid=request("nclassid")
  23. Dim sql
  24. sql=" where 1=1 "
  25. Dim key
  26. key = request("key")
  27. if key<>"" then
  28. sql=sql&" and title like '%"&key&"%' "
  29. query=query&"key="&key&"&"
  30. end if
  31. if classid<>"" then
  32. sql=sql&" and classid="&classid&" "
  33. query=query&"classid="&classid&"&"
  34. end if
  35. sql=" select * from product "&sql&" order by id desc "
  36. Dim rs
  37. Set rs=Server.CreateObject("ADODB.RecordSet")
  38. rs.open sql,conn,1,1
  39. Dim page,i
  40. if request("page")="" then
  41. page=1
  42. else
  43. page=clng(request("page"))
  44. end if
  45. i=0
  46. rs.pagesize=15
  47. if page<1 then page=1
  48. if page>rs.pagecount then page=rs.pagecount 
  49. if rs.pagecount>0 then rs.absolutepage=page
  50. %> 
  51. <form name="form1" method="post"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
  52.   <tr>
  53.       <td>产品列表: 
  54.         <%if classid<>"" then response.write classname(classid)%>
  55.         <%if nclassid<>"" then response.write " - "&nclassname(nclassid)%>
  56.       </td>
  57.   </tr>
  58. </table>
  59.   <table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolordark="#ffffff" bordercolorlight="#000000">
  60.     <tr bgcolor="#23458B"> 
  61.       <td width="24" height="25">&nbsp; </td>
  62.       <td width="73"><div align="center"><span class="style1">产品序号</span></div></td>
  63.       <td width="233" height="25"> 
  64.         <div align="center"><span class="style1">产品名称</span></div>      </td>
  65.       <td width="154" height="25"> 
  66.         <div align="center"><font color="#FFFFFF"><b><font color="#FFFFFF">类别</font></b></font></div>      </td>
  67.       <td width="130" height="25"> 
  68.         <div align="center"><span class="style1">添加日期</span></div>      </td>
  69.       <td width="135" height="25"> 
  70.         <div align="center"><span class="style1">管理操作</span></div>      </td>
  71.     </tr>
  72.     <%
  73. if rs.eof then
  74. response.write "<tr><td colspan='6'><font color='red'>系统中还没有录入相关任何信息!</font></td></tr>"
  75. else
  76. Do while not rs.eof and i<rs.pagesize
  77. if i mod 2<>0 then
  78. bgc="#d8e4f1"
  79. else
  80. bgc="#ffffff"
  81. end if
  82. %>
  83.     <tr bgcolor=<%=bgc%> onMouseOut=this.style.backgroundColor='<%=bgc%>' onMouseOver=this.style.backgroundColor='#F1FBEC'> 
  84.       <td width="24" height="25"> 
  85.         <div align="center"> 
  86.           <input type="checkbox" id="checkbox" value="<%=rs("id")%>" name="checkbox" onClick="chkclick();">
  87.         </div>      </td>
  88.       <td width="73" height="25"><div align="center"><b><%=rs("id")%></b></div></td>
  89.       <td width="233" height="25"><a href="List_Edit.asp?checkbox=<%=rs("id")%>"><%=replace(rs("title"),key,"<font color=red>"&key&"</font>")%></a> 
  90.         <%IF RS("pic")<>"" THEN%>
  91.         <img src="../images/img.gif" align="absmiddle"> 
  92.         <%END IF%>      </td>
  93.       <td width="154" height="25"> 
  94.         <div align="center"> <b><%=classname(rs("classid"))%></b> </div>      </td>
  95.       <td width="130" height="25"> 
  96.         <div align="center"><%=rs("postdate")%></div>      </td>
  97.       <td width="135" height="25"> 
  98.         <div align="center"><a href="List_Edit.asp?checkbox=<%=rs("id")%>">修改</a> 
  99.           | <a href="#" onClick="DelGood('<%=rs("id")%>');">删除</a></div>      </td>
  100.     </tr>
  101.     <%
  102. rs.MoveNext
  103. i=i+1
  104. Loop
  105. end if
  106. %>
  107.   </table>
  108.     <table width="100%" height="30" border="0" align="center" cellpadding="0" cellspacing="0"> 
  109. <tr> <td width="23%"> <input type=checkbox name='chkall' onClick='chooseall(document.form1.checkbox,this);'> 
  110. 全选 <input type=checkbox name='chkl' onClick='choosefalse(document.form1.checkbox,this);'> 
  111. 反选 </td><td width="77%"> <div align="right"> 共 <%=rs.recordcount%> 条 页 次 <%=page%>/<%=rs.pagecount%> <a href="?<%=query%>page=1">首页</a>
  112.     <%if rs.pagecount>1 then 
  113.      if page=1 then%>
  114. | 上页 | <a href="?<%=query%>page=<%=(page+1)%>"> 下页</a>
  115. <%else
  116.       if page=rs.pagecount then%>
  117. <a href="?<%=query%>page=<%=(page-1)%>">上页</a> | 下页
  118. <%else%>
  119. | <a href="?<%=query%>page=<%=(page-1)%>">上页</a> | <a href="?<%=query%>page=<%=(page+1)%>"> 下页</a>
  120. <%end if%>
  121. <%end if%>
  122. <%end if%>
  123. | <a href="?<%=query%>page=<%=rs.pagecount%>"> 尾页</a> 第
  124. <select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">
  125.   <%
  126.        for i = 1 to rs.PageCount
  127.        if i = page then%>
  128.   <option value="?<%=query%>page=<%=i%>" selected><%=i%></option>
  129.   <%else%>
  130.   <option value="?<%=query%>page=<%=i%>"><%=i%></option>
  131.   <%
  132.           end if
  133.         next
  134.         %>
  135. </select>
  136. 页</div></td></tr> </table></form>
  137. <%
  138. set rs=conn.execute("select * from nclass")
  139. %>
  140. <table width="100%" border="0" cellspacing="0" cellpadding="1"> 
  141. <tr> <td WIDTH="35%"> <input type="button" value="刷新" onClick="history.go(0);" name="button2">
  142.       <INPUT TYPE="button" NAME="Submit" VALUE="全部" onClick="location.href='?';">
  143.       <input name="add" type="button" id="add" onClick="record_add();" value="添加">
  144.     <input type="button" value="修改" onClick="record_edit();" name="edit" disabled>
  145.     <input type="button" value="删除" onClick="record_del();" name="del" disabled></td>
  146.   <form name="form2" method="post" action="?"><td WIDTH="65%"><%
  147. set rs=conn.execute("select * from class")
  148. if not rs.eof then
  149. %>
  150. 一类:
  151. <select style="width:120px;" name="classid" >
  152. <option value="">--请选择类别--</option>
  153.   <option value="<%=trim(rs("id"))%>"><%=trim(rs("classname"))%></option>
  154.   <%
  155. dim selclass
  156.     selclass=rs("id")
  157.     rs.movenext
  158.     %>
  159.   <%do while not rs.eof%>
  160.   <option value="<%=rs("id")%>"><%=rs("classname")%></option>
  161.   <%rs.movenext
  162.         loop
  163. rs.close
  164.         %>
  165. </select>
  166.         <input type="text" name="key">
  167.         <input type="submit" name="Submit2" value="查询">
  168. <script>
  169. function frmchk2()
  170. {
  171. if(form2.classid.value=='')
  172. {
  173. alert('系统提示:请先选择大类!');
  174. return false;
  175. }
  176. }
  177. function DelGood(x)
  178. {
  179. if(confirm('确认删除选择的记录?'))
  180. {
  181. window.location.href = "List_Del.asp?operation=del&checkbox=" + x;
  182. }
  183. }
  184. </script>
  185. <%end if%>
  186. &nbsp;
  187. </td>
  188.   </form>
  189. </tr> 
  190. </table>
  191. <script src="List_Use.js"></script> 
  192. </body>
  193. </html>
  194. <%
  195. call COCLS
  196. %>