/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. 

  2. <!-- #include file="../Include/Conn.asp" -->

    3. 

  3. <head>

    4. 

  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

    5. 

  5. <title></title>

    6. 

  6. <link href="../Images/font.css" rel="stylesheet" type="text/css">

    7. 

  7. </head>

    8. 

  8. <body>

    9. 

  9. <table width="100%" border="0">

    10. 

  10.   <tr>

    11. 

  11.     <td height="25" colspan="3" bgcolor="#3385D1" class="font2 STYLE1"><table width="100%" border="0" cellpadding="0" cellspacing="£°">

    12. 

  12.       <tr>

    13. 

  13.         <td width="19%">¡¡<span class="bt2">¹ÜÀí¹«¸æ</span></td>

    14. 

  14.         <td width="81%" align="center"><a href="G_Add.asp" class="bt2">Ìí¼Ó¹«¸æ</a></td>

    15. 

  15.       </tr>

    16. 

  16.     </table></td>

    17. 

  17.   </tr>

    18. 

  18.   <tr>

    19. 

  19.     <td align="center" valign="middle" bgcolor="#efefef" class="font1">¹«¸æ±êÌâ</td>

    20. 

  20.     <td align="center" valign="middle" bgcolor="#efefef" class="font1">·¢²¼Ê±¼ä</td>

    21. 

  21.     <td width="12%" height="25" align="center" valign="middle" bgcolor="#efefef" class="font1">Ïà¹Ø²Ù×÷</td>

    22. 

  22.   </tr>

    23. 

  23. <%

    24. 

  24. sql = "select * from gg Order by addtime desc"

    25. 

  25. Set rs=Server.Createobject("ADODB.RECORDSET")

    26. 

  26. rs.Open sql, conn, 1, 1

    27. 

  27. if not rs.eof then

    28. 

  28. pages = 6 '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý

    29. 

  29. rs.pageSize = pages '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý

    30. 

  30. allPages = rs.pageCount'¼ÆËãÒ»¹²ÄÜ·Ö¶àÉÙÒ³

    31. 

  31. page = Request.QueryString("page")'ͨ¹ýä¯ÀÀÆ÷´«µÝµÄÒ³Êý

    32. 

  32. 'ifÓï¾äÊôÓÚ»ù±¾µÄÅÅ´í´¦Àí

    33. 

  33. if isEmpty(page) or Cint(page) < 1 then

    34. 

  34. page = 1

    35. 

  35. elseif Cint(page) > allPages then

    36. 

  36. page = allPages 

    37. 

  37. end if

    38. 

  38. rs.AbsolutePage = page

    39. 

  39. Do while not rs.eof and pages > 0 %> 

    40. 

  40.  <tr>

    41. 

  41.    <td align="left" valign="middle" bgcolor="#efefef" class="link2"><%=rs("title")%></td>

    42. 

  42.     <td align="left" valign="middle" bgcolor="#efefef" class="link2"><div align="center"><%=rs("addtime")%></div></td>

    43. 

  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. 

  44.   </tr>

    45. 

  45. <% pages = pages - 1

    46. 

  46. rs.MoveNext

    47. 

  47. Loop

    48. 

  48. else

    49. 

  49. Response.Write("<font color='Red'>Êý¾Ý¿âÔÝÎÞÄÚÈÝ£¡</font>")

    50. 

  50. End if

    51. 

  51. rs.Close

    52. 

  52. Set rs = Nothing 

    53. 

  53. %>

    54. 

  54.   <tr>

    55. 

  55.     <td height="25" colspan="3" align="right" bgcolor="#efefef">

    56. 

  56. <%

    57. 

  57. For i =1 to allpages

    58. 

  58. txt = ""

    59. 

  59. txt = txt &  "<a href=" & "?" &  "page=" & i & ">"

    60. 

  60. if i = Cint(Page) then txt = txt &  "<font color='bb0000'>"

    61. 

  61. txt = txt &  (i) 

    62. 

  62. if i = Cint(Page) then txt = txt &  "</font>"

    63. 

  63. txt = txt &  "</a> &nbsp;"

    64. 

  64. Response.Write(txt)

    65. 

  65. Next	

    66. 

  66. %></td>

    67. 

  67.   </tr>

    68. 

  68. </table>

    69. 

  69. </body>

    70. 

  70. </html>
    71.