| 聊神排行榜 |
<%dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
sql="select * from user where user_level<>"&rsparam("superlevel")&" ORDER BY exp_num desc"
rootRs.Open sql,conn,1,1
If rootRs.Bof OR rootRs.Eof Then%> | 没有找到任何聊友 |
<%else
pagesize=20
rootRs.pagesize=pagesize
page=Request("page")
if not IsNumeric(page) or page="" then page=1
if (page-1)<0 then
page=rootRs.pagecount
elseif (page-rootRs.pagecount)>0 then
page=1
end if
rootRs.AbsolutePage=page
RowCount =rootRs.pagesize%>
| 排名 | 呢称 | 访问次数 | 首次访问 |
最后访问 | 级别 | 经验 |
<%top_num=(page-1)*pagesize+1
Do While (Not rootRs.Eof) AND RowCount>0
g=rootRs("log_time")
i=rootRs("in_time")
if my_level-rsparam("lseelevel")>=0 and my_level-rootRs("user_level")>-1 then
l=rootRs("user_level")
else
l=" "
end if
response.write ""
rootRs.MoveNext
top_num=top_num+1
RowCount=RowCount-1
Loop%>| 排名 | 呢称 | 访问次数 | 首次访问 |
最后访问 | 级别 | 经验 |
<%End If
rootRs.close
conn.close
Set conn=nothing%>
[后退] |