/wsj/Manage/GG/G_Manage.asp

https://github.com/hare1987/kaidun180 · ASP · 70 lines · 69 code · 0 blank · 1 comment · 5 complexity · c7cff674689e950b4f2cdb10e36fad06 MD5 · raw file

  1. <!-- #include file="../Include/Chk.asp" -->
  2. <!-- #include file="../Include/Conn.asp" -->
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  5. <title></title>
  6. <link href="../Images/font.css" rel="stylesheet" type="text/css">
  7. </head>
  8. <body>
  9. <table width="100%" border="0">
  10. <tr>
  11. <td height="25" colspan="3" bgcolor="#3385D1" class="font2 STYLE1"><table width="100%" border="0" cellpadding="0" cellspacing="£°">
  12. <tr>
  13. <td width="19%">¡¡<span class="bt2">¹ÜÀí¹«¸æ</span></td>
  14. <td width="81%" align="center"><a href="G_Add.asp" class="bt2">Ìí¼Ó¹«¸æ</a></td>
  15. </tr>
  16. </table></td>
  17. </tr>
  18. <tr>
  19. <td align="center" valign="middle" bgcolor="#efefef" class="font1">¹«¸æ±êÌâ</td>
  20. <td align="center" valign="middle" bgcolor="#efefef" class="font1">·¢²¼Ê±¼ä</td>
  21. <td width="12%" height="25" align="center" valign="middle" bgcolor="#efefef" class="font1">Ïà¹Ø²Ù×÷</td>
  22. </tr>
  23. <%
  24. sql = "select * from gg Order by addtime desc"
  25. Set rs=Server.Createobject("ADODB.RECORDSET")
  26. rs.Open sql, conn, 1, 1
  27. if not rs.eof then
  28. pages = 6 '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
  29. rs.pageSize = pages '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
  30. allPages = rs.pageCount'¼ÆËãÒ»¹²ÄÜ·Ö¶àÉÙÒ³
  31. page = Request.QueryString("page")'ͨ¹ýä¯ÀÀÆ÷´«µÝµÄÒ³Êý
  32. 'ifÓï¾äÊôÓÚ»ù±¾µÄÅÅ´í´¦Àí
  33. if isEmpty(page) or Cint(page) < 1 then
  34. page = 1
  35. elseif Cint(page) > allPages then
  36. page = allPages
  37. end if
  38. rs.AbsolutePage = page
  39. Do while not rs.eof and pages > 0 %>
  40. <tr>
  41. <td align="left" valign="middle" bgcolor="#efefef" class="link2"><%=rs("title")%></td>
  42. <td align="left" valign="middle" bgcolor="#efefef" class="link2"><div align="center"><%=rs("addtime")%></div></td>
  43. <td height="25" align="center" valign="middle" bgcolor="#efefef" class="link2"><a href="g_Edit.asp?id=<%=rs("id")%>">ÐÞ¸Ä</a> | <a href="g_Del.asp?id=<%=rs("id")%>">ɾ³ý</a></td>
  44. </tr>
  45. <% pages = pages - 1
  46. rs.MoveNext
  47. Loop
  48. else
  49. Response.Write("<font color='Red'>Êý¾Ý¿âÔÝÎÞÄÚÈÝ£¡</font>")
  50. End if
  51. rs.Close
  52. Set rs = Nothing
  53. %>
  54. <tr>
  55. <td height="25" colspan="3" align="right" bgcolor="#efefef">
  56. <%
  57. For i =1 to allpages
  58. txt = ""
  59. txt = txt & "<a href=" & "?" & "page=" & i & ">"
  60. if i = Cint(Page) then txt = txt & "<font color='bb0000'>"
  61. txt = txt & (i)
  62. if i = Cint(Page) then txt = txt & "</font>"
  63. txt = txt & "</a> &nbsp;"
  64. Response.Write(txt)
  65. Next
  66. %></td>
  67. </tr>
  68. </table>
  69. </body>
  70. </html>