YPmag.asp 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113
  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. <link rel="stylesheet" type="text/css" href="../bdcommx/css.css">
  7. </head>
  8. <!--#include file="../bdcommx/connxyz.asp"-->
  9. <%call log_chk()
  10. call passChk()%>
  11. <body>
  12. <table width="100%" height="42" border="0" cellpadding="0" cellspacing="0">
  13. <tr>
  14. <td width="4%" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
  15. <td width="96%" background="../images/top_bg2.jpg" class="hui12">后台管理:&gt;&gt; 简历管理</td>
  16. </tr>
  17. </table>
  18. <br />
  19. <table width="94%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr"><tr>
  20. <td align="center" class="tb_bg" colspan="4">简 历 管 理</td>
  21. </tr>
  22. <tr>
  23. <td width="33%" height="26" align="center" class="NcB_bg">姓名</td>
  24. <td width="21%" align="center" class="NcB_bg">电话</td>
  25. <td width="19%" align="center" class="NcB_bg">求职时间</td>
  26. <td width="27%" align="center" class="NcB_bg">操作</td>
  27. </tr><%
  28. dim theact
  29. theact=request("theact")
  30. dim CurrentPage '当前页
  31. dim TotalPages '总页数
  32. MaxPerPage=20
  33. Set rs1= Server.CreateObject ("ADODB.RecordSet")
  34. sql="select * from adyp where zp_id="&request("thex")&" order by yp_id desc"
  35. rs1.open sql,conn,1,3
  36. if rs1.eof then
  37. response.Write("")
  38. else
  39. rs1.pagesize=MaxPerPage
  40. If trim(Request("Page"))<>"" then
  41. CurrentPage= CLng(request("Page"))
  42. If CurrentPage> rs1.PageCount then
  43. CurrentPage = rs1.PageCount
  44. End If
  45. Else
  46. CurrentPage= 1
  47. End If
  48. totalPut=rs1.recordcount 'totalput=总记录数
  49. if CurrentPage<>1 then
  50. if (currentPage-1)*MaxPerPage < totalPut then
  51. rs1.move(currentPage-1)*MaxPerPage
  52. end if
  53. end if
  54. do while not rs1.eof and c<20
  55. %>
  56. <form id="form1" name="form1" method="post" action="ZPaddsave.asp">
  57. <tr>
  58. <td height="26" align="left" class="NcB_bg"> <%=left(rs1("yp_name"),12)%></td>
  59. <td height="26" align="center" class="NcB_bg"><%=rs1("yp_tel")%></td>
  60. <td height="26" align="center" class="NcB_bg"><a href="YPmag.asp"><%=formatdatetime(rs1("yp_time"),2)%></a></td>
  61. <td height="26" align="center" class="NcB_bg"><a href="YPsee.asp?thex=<%=rs1("yp_id")%>">查看</a> <a href="YPdel.asp?thex=<%=rs1("yp_id")%>&theid=<%=request("thex")%>">删除</a></td>
  62. </tr></form>
  63. <%
  64. c=c+1
  65. rs1.movenext
  66. loop
  67. rs1.close
  68. set rs1=nothing
  69. %>
  70. </table>
  71. <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  72. <form id="form1" name="form1" method="post" action="">
  73. <tr>
  74. <td height="50" align="center"><%
  75. '------------------------------------------------------页面跳转
  76. dim n,k
  77. if (totalPut mod MaxPerPage)=0 then 'n表示总页数
  78. n= totalPut \ MaxPerPage
  79. else
  80. n= totalPut \ MaxPerPage + 1
  81. end if
  82. k=currentPage
  83. k=currentPage
  84. if k<>1 then
  85. response.write "["+"<a href=?page=1>第一页</a></b>] "
  86. response.write "["+"<a href=?page="+cstr(k-1)+">上一页</a>] "
  87. else
  88. Response.Write "[第一页] [上一页]"
  89. end if
  90. if k<>n then
  91. response.write "["+"<a href=?page="+cstr(k+1)+">下一页</a>] "
  92. response.write "["+"<a href=?page="+cstr(n)+">最后一页</a>] "
  93. else
  94. Response.Write "[下一页] [最后一页]"
  95. end if
  96. '------------------------------------------------------页面跳转msmsms有点小毛病!就是转页没有连带搜索和类别
  97. response.Write("<font color='red'> | </font>共"&n&"页 / "&totalPut&"条信息 / ")
  98. response.Write("当前第"&k&"页")
  99. response.Write(" <select name='page'>")
  100. for myi=1 to n
  101. response.Write("<option value='"&myi&"'>"&myi&"</option>")
  102. next
  103. response.Write("</select>")
  104. response.Write("<input type=submit name=Submit3 value=Go→ />")
  105. end if%></td>
  106. </tr>
  107. </form>
  108. </table>
  109. </body>
  110. </html>