Dmag.asp 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml">
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  5. <title>网站后台管理登陆</title>
  6. <meta name="Keywords" content="网站后台管理系统,网站内容管理系统,asp网站后台管理系统,西安网站建设,
  7. 西安网络公司" />
  8. <meta name="web designner" content="">
  9. <link rel="stylesheet" type="text/css" href="../bdcommx/css.css">
  10. </head>
  11. <!--#include file="../bdcommx/connxyz.asp"-->
  12. <%
  13. call log_chk()
  14. %>
  15. <body>
  16. <script language="javascript">
  17. function CheckAll(form)
  18. {
  19. for (var i=0;i<form.elements.length;i++)
  20. {
  21. var e = form.elements[i];
  22. if (e.name != 'selectall')
  23. e.checked = form.selectall.checked;
  24. }
  25. }
  26. </script>
  27. <table width="100%" height="42" border="0" cellpadding="0" cellspacing="0"><tr>
  28. <td width="23" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
  29. <td width="986" background="../images/top_bg2.jpg" class="hui12">后台管理:&gt;&gt; 订单管理 </td>
  30. </tr>
  31. </table>
  32. <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
  33. <form action="Ddel.asp" method="post" name="myform" id="myform">
  34. <tr>
  35. <td colspan="7" align="center" background="../images/bg2.jpg" class="tb_bg"><strong>订单管理 </strong></td>
  36. </tr>
  37. <tr>
  38. <td width="5%" height="26" align="center" class="NcB_bg"><strong>选择</strong></td>
  39. <td width="6%" align="center" class="NcB_bg"><strong>编号</strong></td>
  40. <td width="11%" align="center" class="NcB_bg"><strong>姓名</strong></td>
  41. <td width="38%" align="center" class="NcB_bg"><strong>产品名称</strong></td>
  42. <td width="17%" align="center" class="NcB_bg"><strong>提交日期</strong></td>
  43. <td colspan="2" align="center" class="NcB_bg"><strong>状态</strong></td>
  44. </tr>
  45. <%
  46. dim mykey,CurrentPage,TotalPages
  47. MaxPerPage=10
  48. Set rs1= Server.CreateObject ("ADODB.RecordSet")
  49. sql="select * from bdkhdg order by dg_time desc"
  50. rs1.open sql,conn,1,3
  51. rs1.pagesize=MaxPerPage'定义每页记录数
  52. 'howmanyfields=rs.Fields.Count-1
  53. If trim(Request("Page"))<>"" then
  54. CurrentPage= CLng(request("Page"))
  55. If CurrentPage> rs1.PageCount then
  56. CurrentPage = rs1.PageCount
  57. End If
  58. Else
  59. CurrentPage= 1
  60. End If
  61. totalPut=rs1.recordcount 'totalput=总记录数
  62. if CurrentPage<>1 then
  63. if (currentPage-1)*MaxPerPage < totalPut then
  64. rs1.move(currentPage-1)*MaxPerPage
  65. end if
  66. end if
  67. do while not rs1.eof and c<10%>
  68. <tr>
  69. <td height="30" align="center" class="NcB_bg"><input name="idgroup" type="checkbox" id="idgroup" value="<%=rs1("dg_id")%>" /></td>
  70. <td height="30" align="center" class="NcB_bg"><%=rs1("dg_id")%></td>
  71. <td height="30" align="center" class="NcB_bg"><font color="#0000FF"><%=rs1("kh_name")%></font></td>
  72. <td height="30" class="NcB_bg"><a href="Dmod.asp?thex=<%=rs1("dg_id")%>"><%=left(rs1("cp_name"),25)%></a> <a href="Dmod.asp?thex=<%=rs1("dg_id")%>">[查看]</a></td>
  73. <td height="30" align="center" class="NcB_bg"><%=rs1("dg_time")%></td>
  74. <td width="11%" height="30" align="center" class="NcB_bg Fnt_red"><%if rs1("dg_open")=0 then%>未处理<%else%>已处理<%end if%></td>
  75. <td width="12%" align="center" class="NcB_bg Fnt_red"><%if rs1("dg_hf")<>"" then%>已说明<%else%>未说明<%end if%></td>
  76. </tr>
  77. <% c=c+1
  78. rs1.movenext
  79. loop
  80. rs1.close
  81. set rs1=nothing
  82. %>
  83. <tr>
  84. <td height="34" colspan="3" align="center" bgcolor="#FAFAFA">全选
  85. <input name="selectall" type="checkbox" id="selectall" value="on" onclick="CheckAll(this.form)" /></td>
  86. <td height="34" colspan="4" bgcolor="#FAFAFA"><input type="submit" name="Submit22" value="删除所选订单" /></td>
  87. </tr>
  88. </form>
  89. </table>
  90. <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  91. <form name="formgo" method="post" action="">
  92. <tr>
  93. <td height="43" align="center"><%
  94. '------------------------------------------------------页面跳转
  95. dim n,k
  96. if (totalPut mod MaxPerPage)=0 then 'n表示总页数
  97. n= totalPut \ MaxPerPage
  98. else
  99. n= totalPut \ MaxPerPage + 1
  100. end if
  101. k=currentPage
  102. k=currentPage
  103. if k<>1 then
  104. response.write "["+"<a href=?page=1>第一页</a></b>] "
  105. response.write "["+"<a href=?page="+cstr(k-1)+">上一页</a>] "
  106. else
  107. Response.Write "[第一页] [上一页]"
  108. end if
  109. if k<>n then
  110. response.write "["+"<a href=?page="+cstr(k+1)+">下一页</a>] "
  111. response.write "["+"<a href=?page="+cstr(n)+">最后一页</a>] "
  112. else
  113. Response.Write "[下一页] [最后一页]"
  114. end if
  115. '------------------------------------------------------页面跳转msmsms有点小毛病!就是转页没有连带搜索和类别
  116. response.Write("<font color='red'> | </font>共"&n&"页 / "&totalPut&"条信息 / ")
  117. response.Write("当前第"&k&"页")
  118. response.Write(" <select name='page'>")
  119. for myi=1 to n
  120. response.Write("<option value='"&myi&"'>"&myi&"</option>")
  121. next
  122. response.Write("</select>")
  123. response.Write(" <input type=submit name=Submit3 value=跳转 />")%></td>
  124. </tr>
  125. </form>
  126. </table>
  127. </body>
  128. </html>