topuser.asp

ASP+SQL2000+

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="70%" id="AutoNumber3" height="52">
  <%set rs10=server.createobject("adodb.recordset")
sql10="select top " & topuser & " * from admin where number>=1 order by number desc,id desc"
rs10.open sql10,conn,1,1
if not rs10.EOF then
while not rs10.EOF
%>
  <tr>
    <td align="left" width="75%"><a href="user.asp?user=<%=rs10("username")%>" target="_blank" class=class><%=rs10("username")%></a></td>
    <td align="right" width="25%"><%=rs10("number")%></a></td>
</tr>
<%rs10.MoveNext
wend
end if
rs10.close
set rs10=nothing
%>
<tr>
<td align=right  width="75%" colspan="2">
<a class=class href="alluser.asp">更多</a></td>
</tr>
</table>