<% '========================================================= ' File: toplist.asp ' Version:5.0 ' Date: 2002-9-7 ' Script Written by satan '========================================================= ' Copyright (C) 2001,2002 AspSky.Net. All rights reserved. ' Web: http://www.aspsky.net,http://www.dvbbs.net ' Email: info@aspsky.net,eway@aspsky.net '========================================================= dim orders,ordername dim currentpage,page_count,Pcount dim totalrec,endpage dim bbsnum,usernum dim select1,select2,select3,select4,select5,select6,select7,select8 if Cint(GroupSetting(1))=0 then Errmsg=Errmsg+"
"+"

您没有浏览本论坛会员资料的权限，请登陆或者同管理员联系。" founderr=true end if if founderr then call nav() call head_var(2,0,"","") call dvbbs_error() else currentPage=request("page") if not isInteger(request("orders")) or request("orders")="" then orders=1 else orders=request("orders") end if select case orders case 1 orders=1 ordername="发贴总数Top" & Forum_Setting(68) select1="selected" case 2 orders=2 ordername="最新用户注册" select2="selected" case 3 orders=3 ordername=Forum_Setting(68) & "大富翁" select3="selected" case 7 orders=7 ordername="所有用户列表" select7="selected" case 8 orders=8 ordername="管理团队" select8="selected" case else orders=1 ordername="发贴总数Top" & Forum_Setting(68) select1="selected" end select stats=ordername call nav() call head_var(2,0,"","") call main() end if call footer() sub main() set rs=conn.execute("select top 1 BbsNum,UserNum from config where active=1") bbsnum=rs(0) usernum=rs(1) %> <% if currentpage="" or not isInteger(currentpage) then currentpage=1 else currentpage=clng(currentpage) if err then currentpage=1 err.clear end if end if set rs=server.createobject("adodb.recordset") select case orders case 1 sql="select username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth,userid from [user] order by article desc" case 2 sql="select username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth,userid from [user] order by AddDate desc" case 3 sql="select username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth,userid from [user] order by userwealth desc" case 7 sql="select username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth,userid from [user] order by userid desc" case 8 sql="select username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth,userid from [user] where usergroupid<=3 order by usergroupid,article desc" case else sql="select username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth,userid from [user] order by article desc" end select rs.open sql,conn,1 if rs.eof and rs.bof then response.write "" else if orders=7 then totalrec=userNum else totalrec=rs.recordcount end if if totalrec mod Forum_Setting(11)=0 then Pcount= totalrec \ Forum_Setting(11) else Pcount= totalrec \ Forum_Setting(11)+1 end if RS.MoveFirst if currentpage > Pcount then currentpage = Pcount if currentpage<1 then currentpage=1 RS.Move (currentpage-1) * Forum_Setting(11) page_count=0 do while not rs.eof and page_count < Clng(Forum_Setting(11)) %> > <% page_count=page_count+1 rs.movenext loop end if %>

用户名	Email	OICQ	主页	短消息	注册时间	等级状态	发贴总数	财产
>> <%=ordername%> << 总注册用户数： <%=usernum%> 人发贴总数： <%=bbsnum%> 篇
还没有任何用户数据。
target=_blank><%=rs("username")%>	>>	<%=iimg(rs("oicq"),"没有","")%>	<%=iimg(rs("homepage"),"没有","")%>	',500,400)> border=0>	<%=rs("addDate")%>	<%=rs("userclass")%>	<%=rs("article")%>	<%=rs("wealth")%>

>页次：<%=currentpage%>/<%=Pcount%>页每页<%=Forum_Setting(11)%> 总数<%=totalrec%>

分页： <% if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if %>

<% rs.close set rs=nothing call activeonline() end sub %>