home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
221.214.14.186
/
221.214.14.186.tar
/
221.214.14.186
/
zb
/
Notepad-zb
/
topList.asp
< prev
next >
Wrap
Text File
|
2005-12-26
|
1KB
|
67 lines
<!--#include file="conn.asp"-->
<!--#include file=const.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitetitle%></title>
<META name="Author" content="─╛─±">
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>
<body>
<!--#include file="head.asp"-->
<%
dim exec, rs, x
rcPerPage=40 '┼┼╨╨╟░╢α╔┘├√╙├╗º
main()
sub main()
exec="select top "& rcPerPage &" * from [user] order by GBpostNum desc,userid"
Set RS = Server.CreateObject("ADODB.RecordSet")
rs.Open exec, Conn, 1, 1
%>
<table border="0" width="650" cellspacing="1" cellpadding="6" align="center" class="table004">
<tr>
<td colspan=4 width="100%" align=center class=table003>
<b>íñ ▒╛ ┴⌠ ╤╘ ▒╛ ╖ó ╤╘ ╟░ <%=rcPerPage%> ├√ ╙├ ╗º íñ</b></td>
</tr>
<tr>
<%
i=0
do while not rs.eof
response.write "<td class=table001>"& (i+1) &"."& rs("username") &"<font class=jnfont1> ["& rs("GBpostNum") &"]</font>"
i=i+1
if i mod 4=0 then
response.write "</td></tr><tr>"
else
response.write "</td>"
end if
rs.movenext
loop %>
</tr>
</table>
<%
rsclose()
connclose()
end sub
%>
<!--#include file="foot.asp"-->
</body>
</html>