home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / Notepad-1 / index.asp < prev    next >
Text File  |  2004-12-09  |  3KB  |  108 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, exec1, rs, page, recordcount
  10. dim rs1, pagecount, strpageList
  11. dim topNum, sqlCol, ids
  12. dim arr
  13. rem strpagelist╩╟╖╓╥│╧╘╩╛╡─╫╓╖√┤«
  14.  
  15. set rs=server.createobject("adodb.recordset")
  16.  
  17. exec="select top 1 topicNum-privateNum from GBconst"
  18. rs.open exec,conn,1,1
  19. RecordCount=rs(0)
  20. rs.close
  21.  
  22. page=encodestr(Request.querystring("page"))
  23.  
  24. pageCount=getPageCount(pagecount,recordCount,rcPerPage)
  25.  
  26. page=getPage(page,pageCount)
  27. %>
  28. <html>
  29.  
  30. <head>
  31. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  32. <title>╫═▓⌐╩╨╞°╧≤╨┼╧ó┬█╠│</title>
  33. <META name="Author" content="─╛─±">
  34. <link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
  35. <meta name="keywords" content="┴⌠╤╘▒╛,asp">
  36. </head>
  37.  
  38. <body>
  39. <!--#include file="head.asp"-->
  40. <form name="admin" method="post" action="admin_post_do.asp" style="margin:0px">
  41.  
  42. <%
  43. strPageList=pageList()
  44. response.write (strPageList)
  45.  
  46. if style=1 then
  47.     sqlCol=" a.id, a.title, a.nei, a.t, a.rt, a.name, a.url, a.email, a.qq, a.pic, a.yd, a.hf, a.jh, a.bl, a.retime, a.istop, a.ip, a.male, a.face, a.comefrom, a.islock, a.icq, a.msn, a.reid, b.name as re_name, b.title as re_title, b.pic as re_pic, b.bl as re_bl, b.nei as re_nei from ly as a left outer join ly as b on a.reid=b.id and a.id<>b.id "
  48. else
  49.     sqlCol=" a.id, a.title, a.t, a.name, a.pic, a.yd, a.hf, a.jh, a.bl, a.retime, a.istop, a.islock, b.name as re_name, b.bl as re_bl  from ly as a left outer join ly as b on a.reid=b.id and a.id<>b.id "
  50. end if
  51.  
  52. exec="select reid from ly where rt=0 and isprivate=0 order by istop desc, reid desc"
  53. set rs=server.createobject("adodb.recordset")
  54. rs.open exec,conn,1,1
  55.  
  56. if rs.eof then
  57.     rs.close
  58.     exec="select * from ly where id=0"
  59. elseif page<=1 then
  60.     ids=rs(0)
  61.     rs.movenext
  62.     for i=1 to rcperpage-1
  63.         if rs.eof then exit for
  64.         ids=ids&","&rs(0)
  65.         rs.movenext
  66.     next
  67.     rs.close
  68.     exec="select top "& rcperpage & sqlCol &" where a.reid in ("& ids &") order by a.istop desc,a.reid desc"
  69. else
  70.     rs.pagesize=rcperpage
  71.     rs.absolutepage=page
  72.     ids=rs(0)
  73.     rs.movenext
  74.     for i=1 to rcperpage-1
  75.         if rs.eof then exit for
  76.         ids=ids&","&rs(0)
  77.         rs.movenext
  78.     next
  79.     rs.close
  80.     exec="select top "& rcperpage & sqlCol &" where a.reid in ("& ids &") order by a.istop desc, a.reid desc"
  81.  
  82. end if
  83.  
  84.  
  85. if style=1 then %>
  86. <!--#include file=list1.asp-->
  87. <%else%>
  88. <!--#include file=list2.asp-->
  89. <%end if
  90.  
  91. response.write strPageList
  92.  
  93. if theUser.master then %>
  94. <table width=650 align=center border=0 cellpadding=0 cellspacing=0><tr align=right><td>
  95.     <a href=### onclick=checkAll()>╚½╤í</a> <a href=### onclick=checkNone() >╚½▓╗╤í</a> <a href=### onclick=checkRev() >╖┤╤í</a>
  96.     <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> 
  97. </td></tr></table>
  98. <%
  99. end if
  100. %>
  101.  
  102. </form>
  103. <!--#include file="searchBar.inc"-->
  104. <!--#include file="foot.asp"-->
  105.  
  106. </body>
  107. </html>
  108.