<%@ LANGUAGE="VBSCRIPT" %> <% dim orders,ordername 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="发贴总数Top10" case 2 orders=2 ordername="最新用户注册" case 7 orders=7 ordername="所有用户列表" case else orders=1 ordername="发贴总数Top10" end select dim totalPages,currentPage currentPage=request.querystring("page") stats=ordername call nav() call headline(1) %> cellspacing=0 border=0 bordercolor=<%=Tablebackcolor%> align=center>

> style=color:<%=TableFontColor%>> <% dim rs,sql set rs=server.createobject("adodb.recordset") select case orders case 1 sql="select top 10 username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth from [user] order by article desc" case 2 sql="select top 10 username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth from [user] order by AddDate desc" case 7 sql="select username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth from [user] order by AddDate desc" case else sql="select top 10 username,useremail,userclass,oicq,homepage,article,addDate,userwealth as wealth from [user] order by article desc" end select rs.open sql,conn,1,1 if rs.eof and rs.bof then %> > <% else rs.pagesize=20 totalpages=rs.pagecount if currentpage="" then currentpage=1 if not isNumeric(currentpage) then currentpage=1 elseif Cint(currentpage)>totalpages then currentpage=totalpages end if currentpage=Cint(currentpage) rs.absolutepage=currentpage for i=1 to 20 if rs.eof then exit for %> > <% rs.movenext next end if rs.close set rs=nothing function allusers() tmprs=conn.execute("Select count(userid) from [user]") allusers=tmprs(0) set tmprs=nothing if isnull(allusers) then allusers=0 end function function gettipnum() tmprs=conn.execute("Select Count(announceID) from bbs1") gettipnum=tmprs(0) set tmprs=nothing if isnull(gettipnum) then gettipnum=0 end function %>  >> <%=ordername%> <<  总注册用户数： <%=allusers()%> 人   发贴总数： <%=gettipnum()%> 篇 selected<%end if%>>发贴总数Top10 selected<%end if%>>最新注册用户 selected<%end if%>>所有用户列表 用户名 Email OICQ 主页 短消息 注册时间 等级状态 发贴总数 <% if orders=4 then response.write "存款" elseif orders=5 then response.write "百万富翁本月得分" elseif orders=6 then response.write "百万富翁通关次数" else response.write "财产" end if %> 　　还没有任何用户数据。  ',350,300)"><%=htmlencode(rs("username"))%> >email.gif> <%if rs("oicq")="" or isnull(rs("oicq")) then%> 没有 <%else%> target=_blank> 的资料" border=0 width=16 height=16> <%end if%> <%if rs("homepage")="" or isnull(rs("homepage")) then%> 没有 <%else%> target=_blank>homepage.gif> <%end if%> ',600,400)>message.gif border=0> <%=rs("addDate")%> <%=grade(rs("userclass"))%> <%=rs("article")%> <%=rs("wealth")%>

<% if currentpage=0 then currentpage=1 response.write "共 "&totalpages&" 页 第 "¤tpage&" 页　" if currentpage=1 or totalpages=0 then response.write "首页　前页" else response.write "首页　前页" end if if currentpage=totalpages or totalpages=0 then response.write "　后页　尾页" else response.write "　后页　尾页" end if %>

<%call endline()%>