home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / Notepad-1 / best.asp < prev    next >
Text File  |  2004-12-09  |  2KB  |  97 lines
  1. <!--#include file="conn.asp"-->
  2. <!--#include file=const.asp -->
  3. <!--#include file="time.asp"-->
  4. <!--#include file="ubb.asp"-->
  5. <!--#include file="userInfo.inc"-->
  6. <!--#include file="chkPage.inc"-->
  7. <!--#include file="page.inc"-->
  8. <%
  9. dim exec, rs, page, recordcount
  10. dim pagecount, strPageList
  11. dim ids
  12. set rs=server.createobject("adodb.recordset")
  13.  
  14. exec="select bestNum from GBconst"
  15. rs.open exec,conn,1,1
  16. RecordCount=rs(0)
  17. rs.close
  18.  
  19. page=encodestr(Request.querystring("page"))
  20.  
  21. pageCount=getPageCount(pageCount,recordCount,rcPerPage)
  22.  
  23. page=getPage(page,pageCount)
  24. %>
  25. <html>
  26.  
  27. <head>
  28. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  29. <title><%=sitetitle%></title>
  30. <META name="Author" content="─╛─±">
  31. <link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
  32. <meta name="keywords" content="┴⌠╤╘▒╛,asp">
  33. </head>
  34.  
  35. <body>
  36. <!--#include file="head.asp"-->
  37. <form name="admin" method="post" action="admin_post_do.asp" style="margin:0px">
  38.  
  39. <%
  40. strPageList=pageList()
  41. response.write strPageList
  42.  
  43. exec="select id from ly where jh=1 order by id desc"
  44. rs.open exec,conn,1,1
  45.  
  46. if rs.eof then
  47.     rs.close
  48.     exec="select * from ly where id=0"
  49. elseif page<=1 then
  50.     ids=rs(0)
  51.     rs.movenext
  52.     for i=1 to rcperpage-1
  53.         if rs.eof then exit for
  54.         ids=ids&","&rs(0)
  55.         rs.movenext
  56.     next
  57.     rs.close
  58.     exec="select * from ly where id in ("& ids &") order by id desc"
  59.  
  60. else
  61.     rs.pagesize=rcPerpage
  62.     rs.absolutepage=page
  63.     ids=rs(0)
  64.     rs.movenext
  65.     for i=1 to rcperpage-1
  66.         if rs.eof then exit for
  67.         ids=ids&","&rs(0)
  68.         rs.movenext
  69.     next
  70.     rs.close
  71.     exec="select * from ly where id in ("& ids &") order by id desc"
  72.  
  73. end if
  74. rs.open exec,conn,1,1
  75.  
  76. if style=1 then %>
  77. <!--#include file="list3.asp"-->
  78. <%else %>
  79. <!--#include file="list4.asp"-->
  80. <%end if
  81.  
  82. response.write strPageList
  83.  
  84. if theUser.master then %>
  85. <table width=650 align=center border=0 cellpadding=0 cellspacing=0><tr align=right><td>
  86.     <a href=### onclick=checkAll()>╚½╤í</a> <a href=### onclick=checkNone() >╚½▓╗╤í</a> <a href=### onclick=checkRev() >╖┤╤í</a>
  87.     <select name=act class=input2><option value=del>╔╛│²</option><option value=best>╛½╗¬</option><option value=top>╣╠╢Ñ</option><option value=lock>╦°╢¿</option></select> <input type=submit value="╚╖╢¿" class=input2> 
  88. </td></tr></table>
  89. <%
  90. end if
  91. %>
  92.  
  93. </form>
  94. <!--#include file="foot.asp"-->
  95. </body>
  96. </html>
  97.