home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / Notepad-zb / private.asp < prev    next >
Text File  |  2005-12-26  |  4KB  |  141 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
  12. dim ids
  13. dim arr
  14. rem strpagelist╩╟╖╓╥│╧╘╩╛╡─╫╓╖√┤«
  15. set rs=server.createobject("adodb.recordset")
  16.  
  17. if theUser.master then
  18.     exec="select privateNum from GBconst"
  19. else
  20.     exec="select GBprivateNum from [user] where username='"& theUser.name &"' "
  21. end if
  22. rs.open exec,conn,1,1
  23. RecordCount=rs(0)
  24. rs.close
  25.  
  26. page=encodestr(Request.querystring("page"))
  27.  
  28. pageCount=getPageCount(pageCount,recordCount,rcPerPage)
  29.  
  30. page=getPage(page,pageCount)
  31. %>
  32. <html>
  33.  
  34. <head>
  35. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  36. <title><%=sitetitle%></title>
  37. <META name="Author" content="─╛─±">
  38. <link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
  39. </head>
  40.  
  41. <body>
  42. <!--#include file="head.asp"-->
  43. <form name="admin" method="post" action="admin_post_do.asp" style="margin:0px">
  44.  
  45. <% strPageList=pageList() 
  46. response.write (strPageList)
  47.  
  48. if style=1 then
  49.     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 "
  50. else
  51.     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 "
  52. end if
  53.  
  54. if theUser.master then
  55.     exec="select reid from ly where rt=0 and isprivate=-1 order by reid desc"
  56.     rs.open exec,conn,1,1
  57.     if rs.eof then
  58.         rs.close
  59.         exec="select * from ly where id=0"
  60.     elseif page<=1 then
  61.         ids=rs(0)
  62.         rs.movenext
  63.         for i=1 to rcperpage-1
  64.             if rs.eof then exit for
  65.             ids=ids&","&rs(0)
  66.             rs.movenext
  67.         next
  68.         rs.close
  69.         exec="select "& sqlCol &" where a.reid in ("& ids &") order by a.reid desc"
  70.         
  71.     else
  72.         rs.pagesize=rcPerpage
  73.         rs.absolutepage=page
  74.         ids=rs(0)
  75.         rs.movenext
  76.         for i=1 to rcperpage-1
  77.             if rs.eof then exit for
  78.             ids=ids&","&rs(0)
  79.             rs.movenext
  80.         next
  81.         rs.close
  82.         exec="select "& sqlCol &" where a.reid in ("& ids &") order by a.reid desc"
  83.         
  84.     end if
  85. else
  86.     exec="select reid from ly where rt=0 and isprivate=1 and bl=1 and name='"& theUser.name &"' order by reid desc"
  87.     rs.open exec,conn,1,1
  88.     if rs.eof then
  89.         rs.close
  90.         exec="select * from ly where id=0"
  91.     elseif page<=1 then
  92.         ids=rs(0)
  93.         rs.movenext
  94.         for i=1 to rcperpage-1
  95.             if rs.eof then exit for
  96.             ids=ids&","&rs(0)
  97.             rs.movenext
  98.         next
  99.         rs.close
  100.         exec="select "& sqlCol &" where a.reid in ("& ids &") order by a.istop desc, a.reid desc"
  101.         
  102.     else
  103.         rs.pagesize=rcPerpage
  104.         rs.absolutepage=page
  105.         ids=rs(0)
  106.         rs.movenext
  107.         for i=1 to rcperpage-1
  108.             if rs.eof then exit for
  109.             ids=ids&","&rs(0)
  110.             rs.movenext
  111.         next
  112.         rs.close
  113.         exec="select "& sqlCol &" where a.reid in ("& ids &") order by a.reid desc"
  114.         
  115.     end if
  116. end if
  117.  
  118. if style=1 then %>
  119. <!--#include file=list1.asp-->
  120. <%else %>
  121. <!--#include file=list2.asp-->
  122. <%end if%>
  123.  
  124. <%=strPageList %>
  125.  
  126. <% if theUser.master then %>
  127. <table width=650 align=center border=0 cellpadding=0 cellspacing=0><tr align=right><td>
  128.     <a href=### onclick=checkAll()>╚½╤í</a> <a href=### onclick=checkNone() >╚½▓╗╤í</a> <a href=### onclick=checkRev() >╖┤╤í</a>
  129.     <select name=act class=input2><option value=del>╔╛│²</option><option value=best>╛½╗¬</option><option value=top>╣╠╢Ñ</option></select> <input type=submit value="╚╖╢¿" class=input2> 
  130. </td></tr></table>
  131. <%
  132. end if 
  133. %>
  134.  
  135. </form>
  136. <!--#include file="searchBar.inc"-->
  137. <!--#include file="foot.asp"-->
  138.  
  139. </body>
  140. </html>
  141.