home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / Notepad-1 / topList.asp < prev    next >
Text File  |  2004-12-09  |  1KB  |  67 lines
  1. <!--#include file="conn.asp"--> 
  2. <!--#include file=const.asp -->
  3. <html>
  4.  
  5. <head>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <title><%=sitetitle%></title>
  8. <META name="Author" content="─╛─±">
  9. <link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
  10. </head>
  11.  
  12. <body>
  13. <!--#include file="head.asp"-->
  14.  
  15. <%
  16. dim exec, rs, x
  17. rcPerPage=40    '┼┼╨╨╟░╢α╔┘├√╙├╗º
  18.  
  19. main()
  20.  
  21.  
  22. sub main()
  23.     
  24.     exec="select top "& rcPerPage &" * from [user] order by GBpostNum desc,userid"
  25.     Set RS = Server.CreateObject("ADODB.RecordSet") 
  26.     rs.Open exec, Conn, 1, 1
  27.     %>
  28.     
  29.         
  30.           
  31.     <table border="0" width="650" cellspacing="1" cellpadding="6"  align="center" class="table004">
  32.      <tr>
  33.         <td colspan=4 width="100%" align=center class=table003>
  34.         <b>íñ ▒╛ ┴⌠ ╤╘ ▒╛ ╖ó ╤╘ ╟░ <%=rcPerPage%> ├√ ╙├ ╗º íñ</b></td> 
  35.           </tr>
  36.      <tr> 
  37. <%
  38. i=0
  39. do while not rs.eof
  40.        
  41.  
  42.     response.write "<td class=table001>"& (i+1) &"."&  rs("username") &"<font class=jnfont1> ["& rs("GBpostNum") &"]</font>"
  43.  
  44.  
  45. i=i+1
  46. if i mod 4=0 then
  47.     response.write "</td></tr><tr>"
  48. else
  49.     response.write "</td>"
  50. end if
  51.  
  52.       rs.movenext                                
  53.         loop %>
  54.         </tr>
  55.     </table>
  56.     
  57.     <%
  58.         rsclose()
  59.         connclose()
  60. end sub
  61. %>
  62.  
  63.  
  64. <!--#include file="foot.asp"-->
  65.     </body>
  66. </html>
  67.