/wsj/Manage/Link/Lnk_Manage.asp

https://github.com/hare1987/kaidun180 · ASP · 75 lines · 74 code · 0 blank · 1 comment · 5 complexity · 4970b9a7d3880d32f9b4e3d77b7d86ef 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="4" 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="Lnk_Add.asp">Ìí¼ÓÓÑÇéÁ´½Ó</a></td>
  15. </tr>
  16. </table></td>
  17. </tr>
  18. <tr>
  19. <td width="25%" align="center" valign="middle" bgcolor="#efefef" class="font1">Õ¾µãÃû³Æ</td>
  20. <td width="31%" align="center" valign="middle" bgcolor="#efefef" class="font1">Õ¾µãLogo</td>
  21. <td width="32%" align="center" valign="middle" bgcolor="#efefef" class="font1">Õ¾µãµØÖ·</td>
  22. <td width="12%" height="25" align="center" valign="middle" bgcolor="#efefef" class="font1">Ïà¹Ø²Ù×÷</td>
  23. </tr>
  24. <%
  25. sql = "select * from link Order by id desc"
  26. Set rs=Server.Createobject("ADODB.RECORDSET")
  27. rs.Open sql, conn, 1, 1
  28. if not rs.eof then
  29. pages = 6 '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
  30. rs.pageSize = pages '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
  31. allPages = rs.pageCount'¼ÆËãÒ»¹²ÄÜ·Ö¶àÉÙÒ³
  32. page = Request.QueryString("page")'ͨ¹ýä¯ÀÀÆ÷´«µÝµÄÒ³Êý
  33. 'ifÓï¾äÊôÓÚ»ù±¾µÄÅÅ´í´¦Àí
  34. if isEmpty(page) or Cint(page) < 1 then
  35. page = 1
  36. elseif Cint(page) > allPages then
  37. page = allPages
  38. end if
  39. rs.AbsolutePage = page
  40. Do while not rs.eof and pages > 0 %>
  41. <tr>
  42. <td align="left" valign="middle" bgcolor="#efefef" class="link2"><div align="left"><%=rs("name")%></div></td>
  43. <td align="center" valign="middle" bgcolor="#efefef" class="link2"><div align="center">
  44. <%if rs("logo")<>"" then%>
  45. <img src="<%=rs("logo")%>" width="120" height="50">
  46. <%end if%></div></td>
  47. <td align="center" valign="middle" bgcolor="#efefef" class="link2"><div align="left"><a href=<%=rs("url")%> target=_blank><%=rs("url")%></a></div></td>
  48. <td height="25" align="center" valign="middle" bgcolor="#efefef" class="link2"><a href="Lnk_Edit.asp?id=<%=rs("id")%>">ÐÞ¸Ä</a> | <a href="Lnk_Del.asp?id=<%=rs("id")%>">ɾ³ý</a></td>
  49. </tr>
  50. <% pages = pages - 1
  51. rs.MoveNext
  52. Loop
  53. else
  54. Response.Write("<font color='Red'>Êý¾Ý¿âÔÝÎÞÄÚÈÝ£¡</font>")
  55. End if
  56. rs.Close
  57. Set rs = Nothing
  58. %>
  59. <tr>
  60. <td height="25" colspan="4" align="right" bgcolor="#efefef">
  61. <%
  62. For i =1 to allpages
  63. txt = ""
  64. txt = txt & "<a href=" & "?" & "page=" & i & ">"
  65. if i = Cint(Page) then txt = txt & "<font color='bb0000'>"
  66. txt = txt & (i)
  67. if i = Cint(Page) then txt = txt & "</font>"
  68. txt = txt & "</a> &nbsp;"
  69. Response.Write(txt)
  70. Next
  71. %></td>
  72. </tr>
  73. </table>
  74. </body>
  75. </html>