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

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. if nclassid<>"" then
  36. sql=sql&" and nclassid="&nclassid&" "
  37. query=query&"nclassid="&nclassid&"&"
  38. end if
  39. sql=" select * from product1 "&sql&" order by id desc "
  40. Dim rs
  41. Set rs=Server.CreateObject("ADODB.RecordSet")
  42. rs.open sql,conn,1,1
  43. Dim page,i
  44. if request("page")="" then
  45. page=1
  46. else
  47. page=clng(request("page"))
  48. end if
  49. i=0
  50. rs.pagesize=15
  51. if page<1 then page=1
  52. if page>rs.pagecount then page=rs.pagecount 
  53. if rs.pagecount>0 then rs.absolutepage=page
  54. %> 
  55. <form name="form1" method="post"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
  56.   <tr>
  57.       <td>产品列表: 
  58.         <%if classid<>"" then response.write classname(classid)%>
  59.         <%if nclassid<>"" then response.write " - "&nclassname(nclassid)%>
  60.       </td>
  61.   </tr>
  62. </table>
  63.   <table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolordark="#ffffff" bordercolorlight="#000000">
  64.     <tr bgcolor="#23458B"> 
  65.       <td width="20" height="25">&nbsp; </td>
  66.       <td width="61"><div align="center"><span class="style1">产品序号</span></div></td>
  67.       <td width="197" height="25"> 
  68.         <div align="center"><span class="style1">产品名称</span></div>      </td>
  69.       <td width="130" height="25"> 
  70.         <div align="center"><font color="#FFFFFF"><b><font color="#FFFFFF">大类</font></b></font></div>      </td>
  71.       <td width="115" height="25"> 
  72.         <div align="center"><b><font color="#FFFFFF"><b>小类</b></font></b></div>      </td>
  73.       <td width="113" height="25"> 
  74.         <div align="center"><span class="style1">添加日期</span></div>      </td>
  75.       <td width="107" height="25"> 
  76.         <div align="center"><span class="style1">管理操作</span></div>      </td>
  77.     </tr>
  78.     <%
  79. if rs.eof then
  80. response.write "<tr><td colspan='6'><font color='red'>系统中还没有录入相关任何信息!</font></td></tr>"
  81. else
  82. Do while not rs.eof and i<rs.pagesize
  83. if i mod 2<>0 then
  84. bgc="#d8e4f1"
  85. else
  86. bgc="#ffffff"
  87. end if
  88. %>
  89.     <tr bgcolor=<%=bgc%> onMouseOut=this.style.backgroundColor='<%=bgc%>' onMouseOver=this.style.backgroundColor='#F1FBEC'> 
  90.       <td width="20" height="25"> 
  91.         <div align="center"> 
  92.           <input type="checkbox" id="checkbox" value="<%=rs("id")%>" name="checkbox" onClick="chkclick();">
  93.         </div>      </td>
  94.       <td width="61" height="25"><div align="center"><b><%=rs("id")%></b></div></td>
  95.       <td width="197" height="25"><a href="List_Edit.asp?checkbox=<%=rs("id")%>"><%=replace(rs("title"),key,"<font color=red>"&key&"</font>")%></a> 
  96.         <%IF RS("pic")<>"" THEN%>
  97.         <img src="../images/img.gif" align="absmiddle"> 
  98.         <%END IF%>      </td>
  99.       <td width="130" height="25"> 
  100.         <div align="center"> <b><%=classname(rs("classid"))%></b> </div>      </td>
  101.       <td width="115" height="25"> 
  102.         <div align="center"><%=nclassname(rs("nclassid"))%> </div>      </td>
  103.       <td width="113" height="25"> 
  104.         <div align="center"><%=rs("postdate")%></div>      </td>
  105.       <td width="107" height="25"> 
  106.         <div align="center"><a href="List_Edit.asp?checkbox=<%=rs("id")%>">修改</a> 
  107.           | <a href="#" onClick="DelGood('<%=rs("id")%>');">删除</a></div>      </td>
  108.     </tr>
  109.     <%
  110. rs.MoveNext
  111. i=i+1
  112. Loop
  113. end if
  114. %>
  115.   </table>
  116.     <table width="100%" height="30" border="0" align="center" cellpadding="0" cellspacing="0"> 
  117. <tr> <td width="23%"> <input type=checkbox name='chkall' onClick='chooseall(document.form1.checkbox,this);'> 
  118. 全选 <input type=checkbox name='chkl' onClick='choosefalse(document.form1.checkbox,this);'> 
  119. 反选 </td><td width="77%"> <div align="right"> 共 <%=rs.recordcount%> 条 页 次 <%=page%>/<%=rs.pagecount%> <a href="?<%=query%>page=1">首页</a>
  120.     <%if rs.pagecount>1 then 
  121.      if page=1 then%>
  122. | 上页 | <a href="?<%=query%>page=<%=(page+1)%>"> 下页</a>
  123. <%else
  124.       if page=rs.pagecount then%>
  125. <a href="?<%=query%>page=<%=(page-1)%>">上页</a> | 下页
  126. <%else%>
  127. | <a href="?<%=query%>page=<%=(page-1)%>">上页</a> | <a href="?<%=query%>page=<%=(page+1)%>"> 下页</a>
  128. <%end if%>
  129. <%end if%>
  130. <%end if%>
  131. | <a href="?<%=query%>page=<%=rs.pagecount%>"> 尾页</a> 第
  132. <select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">
  133.   <%
  134.        for i = 1 to rs.PageCount
  135.        if i = page then%>
  136.   <option value="?<%=query%>page=<%=i%>" selected><%=i%></option>
  137.   <%else%>
  138.   <option value="?<%=query%>page=<%=i%>"><%=i%></option>
  139.   <%
  140.           end if
  141.         next
  142.         %>
  143. </select>
  144. 页</div></td></tr> </table></form>
  145. <%
  146. set rs=conn.execute("select * from nclass")
  147. %>
  148. <script language = "JavaScript">
  149. var onecount;
  150. onecount=0;
  151. subcat = new Array();
  152. <%
  153. dim count
  154. count=0
  155. do while not rs.eof 
  156. if count=0 then
  157. %>
  158. subcat[0] = new Array("--请选择类别--","<%= trim(rs("classid"))%>","");
  159. <%
  160. count = count + 1
  161. end if
  162. %>
  163. subcat[<%=count%>] = new Array("<%= trim(rs("nclassname"))%>","<%= trim(rs("classid"))%>","<%= trim(rs("id"))%>");
  164. <%
  165. count = count + 1
  166. rs.movenext
  167. loop
  168. rs.close
  169. %>
  170. onecount=<%=count%>;
  171. function changelocation(locationid)
  172.     {
  173.     document.form2.nclassid.length = 0; 
  174.     var locationid=locationid;
  175.     var i;
  176.     for (i=0;i < onecount; i++)
  177.         {
  178.             if (subcat[i][1] == locationid)
  179.             { 
  180.                 document.form2.nclassid.options[document.form2.nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
  181.             }        
  182.         }
  183.         
  184.     } 
  185. </script>
  186. <table width="100%" border="0" cellspacing="0" cellpadding="1"> 
  187. <tr> <td WIDTH="35%"> <input type="button" value="刷新" onClick="history.go(0);" name="button2">
  188.       <INPUT TYPE="button" NAME="Submit" VALUE="全部" onClick="location.href='?';">
  189.       <input name="add" type="button" id="add" onClick="record_add();" value="添加">
  190.     <input type="button" value="修改" onClick="record_edit();" name="edit" disabled>
  191.     <input type="button" value="删除" onClick="record_del();" name="del" disabled></td>
  192.   <form name="form2" method="post" action="?"><td WIDTH="65%"><%
  193. set rs=conn.execute("select * from class")
  194. if not rs.eof then
  195. %>
  196. 一类:
  197. <select style="width:120px;" name="classid" onChange="changelocation(document.form2.classid.options[document.form2.classid.selectedIndex].value)">
  198. <option value="">--请选择类别--</option>
  199.   <option value="<%=trim(rs("id"))%>"><%=trim(rs("classname"))%></option>
  200.   <%
  201. dim selclass
  202.     selclass=rs("id")
  203.     rs.movenext
  204.     %>
  205.   <%do while not rs.eof%>
  206.   <option value="<%=rs("id")%>"><%=rs("classname")%></option>
  207.   <%rs.movenext
  208.         loop
  209. rs.close
  210.         %>
  211. </select>
  212. 二类:
  213. <select style="width:120px;" name="nclassid">
  214.   <%
  215.     sql="select * from nclass where classid="&selclass
  216.     set rs=conn.execute(sql)
  217.       if not(rs.eof and rs.bof) then
  218.      %>
  219. <option value="">--请选择类别--</option>
  220. <%
  221.     do while not rs.eof%>
  222.   <option value="<%=rs("id")%>"><%=rs("nclassname")%></option>
  223.   <% rs.movenext
  224.     loop
  225.      end if
  226.         rs.close
  227.      %>
  228. </select>
  229.         <input type="text" name="key">
  230.         <input type="submit" name="Submit2" value="查询">
  231. <script>
  232. function frmchk2()
  233. {
  234. if(form2.classid.value=='')
  235. {
  236. alert('系统提示:请先选择大类!');
  237. return false;
  238. }
  239. }
  240. function DelGood(x)
  241. {
  242. if(confirm('确认删除选择的记录?'))
  243. {
  244. window.location.href = "List_Del.asp?operation=del&checkbox=" + x;
  245. }
  246. }
  247. </script>
  248. <%end if%>
  249. &nbsp;
  250. </td>
  251.   </form>
  252. </tr> 
  253. </table>
  254. <script src="List_Use.js"></script> 
  255. </body>
  256. </html>
  257. <%
  258. call COCLS
  259. %>