home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / Notepad-zb / admin_user.asp < prev    next >
Text File  |  2005-12-26  |  3KB  |  105 lines
  1. <!--#include file="conn.asp"--> 
  2. <!--#include file=const.asp -->
  3. <!--#include file="chkpage.inc"-->
  4. <!--#include file="page.inc"-->
  5. <%
  6. if not theUser.admin then
  7.     connclose()
  8.     response.redirect ("index.asp")
  9. end if
  10.  
  11. dim name,pass, exec, rs, x
  12. dim RecordCount,pageCount,page, maxid
  13. name=encodestr(request.form("name"))
  14. pass=encodestr(request.form("pass"))
  15.  
  16. main()
  17.  
  18.  
  19. sub main()
  20.     rcperPage=40
  21.     page=request.querystring("page")
  22.     if page="" or not isNumeric(page) then
  23.         page=1
  24.     else
  25.         page=int(page)
  26.     end if
  27.     
  28.     exec="select top 1 userNum from GBconst"
  29.     set rs=conn.execute(exec)
  30.     if not rs.eof then
  31.         RecordCount=rs("userNum")-1
  32.     end if
  33.  
  34.     pageCount=getPageCount(pageCount,recordCount,rcPerPage)
  35.     
  36.     page=getPage(page,pageCount)
  37.  
  38.     
  39.     if page<=1 then
  40.         exec="select top "& rcPerPage &" username,userid,gbuserclass from [user] where username<>'"& theUser.name &"' order by userid desc"
  41.     else
  42.         exec="select top 1 userid from [user] where userid in( select top "& rcPerPage*(Page-1) &" userid from [user] where username<>'"& theuser.name &"' order by userid desc) order by userid asc"
  43.         set rs=conn.execute(exec)
  44.         maxid=rs(0)
  45.         exec="select top "& rcPerPage &" username,userid,gbuserclass from [user] where username<>'"& theUser.name &"' and userid<"& maxid &" order by userid desc"
  46.     end if
  47.     
  48.     set rs=conn.execute(exec)
  49.     %>
  50.     
  51.     <html>
  52.     
  53.     <head>
  54.     <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  55.     <META name="Author" content="─╛─±">
  56.     <title><%=sitetitle%></title>
  57.     <link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
  58.     </head>
  59.     
  60.     <body>
  61.     <!--#include file="head.asp"-->
  62.     <!--#include file="admin_bar.inc"-->
  63.           
  64.     <table border="0" width="650" cellspacing="1" cellpadding="6"  align="center" class="table004">
  65.      <tr>
  66.         <td colspan=4 align=center class=table003><b>íñ ▒╛ ┴⌠ ╤╘ ▒╛ ╦∙ ╙╨ ▒ú ┴⌠ ╙├ ╗º íñ</b> (▓╗░ⁿ└¿─·)</td> 
  67.      </tr>
  68.      <tr> 
  69. <%
  70. i=0
  71. do while not rs.eof
  72.        
  73.  
  74. response.write "<td class=table001>"& rs("username") &" [<a href=### onclick=""window.open('admin_userModify.asp?userid="& rs("userid") &"','','width=690,height=600,left=0,top=0,scrollbars=1') "">╨▐╕─</a>"
  75. if rs("gbuserclass")=1 or rs("gbuserclass")=2 then
  76.     response.write "<img src=images/bz.gif>"
  77. end if
  78.  
  79. response.write " <a href=admin_user_do.asp?id="& rs("userid") &"&lei=delete>╔╛│²</a>]" 
  80.  
  81. i=i+1
  82. if i mod 4=0 then
  83.     response.write "</td></tr><tr>"
  84. else
  85.     response.write "</td>"
  86. end if
  87.  
  88.       rs.movenext                                
  89.         loop %>
  90.         </tr>
  91.     </table>
  92.     
  93.     <%
  94.         rsclose()
  95.         connclose()
  96.         response.write pageList()
  97. end sub
  98.  
  99.  
  100. %>
  101.  
  102. <!--#include file="foot.asp"-->
  103.     </body>
  104. </html>
  105.