<%
dim rs
dim sql
dim Article
dim username
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from user where username ORDER BY Article desc"
rs.open sql,conn,1,1
if rs.EOF then
response.write "not point"
else
%>
论坛积分排行榜
名次
姓名
积分
<%dim i
i=1
do while NOT rs.EOF
%>
<%Response.write i %>
<%=rs("username")%>
<%=rs("Article")%>
<%
rs.MoveNext
i=i+1
loop
end if
rs.Close
set rs=nothing
%>