<%
dim rs,sql,TopicNum,BbsNum,TodayNum,UserNum,lastUser,tmprs
dim n
dim maxpostnum,yesterdaynum
if request("orders")=1 then
call tongji()
elseif request("orders")=2 then
call topuser()
else
call tongji()
end if
function online()
tmprs=conn.execute("Select count(id) from online")
online=tmprs(0)
set tmprs=nothing
if isnull(online) then online=0
end function
function allboys()
dim tmprs
tmprs=conn.execute("Select count(userid) from [user] where sex='1' ")
allboys=tmprs(0)
set tmprs=nothing
if isnull(allboys) then allboys=0
end function
function allgirls()
dim tmprs
tmprs=conn.execute("Select count(userid) from [user] where sex='0' ")
allgirls=tmprs(0)
set tmprs=nothing
if isnull(allgirls) then allgirls=0
end function
sub tongji()
n=request("n")
sql="select top 1 TopicNum,BbsNum,TodayNum,UserNum,lastUser,yesterdaynum,maxpostnum,maxpostdate from config where active=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
topicnum=rs(0)
BbsNum=rs(1)
TodayNum=rs(2)
UserNum=rs(3)
lastUser=rs(4)
yesterdaynum=rs(5)
maxpostnum=rs(6)
rs.close
set rs=nothing
%>
document.write('□- 论坛贴数 <%=BbsNum%>
□- 论坛主题 <%=TopicNum%>
□- 注册人数 <%=UserNum%>
□- 论坛在线 <%=online()%>');
document.write('
□- 今日帖数 <%=TodayNum%>')
<% end sub
sub topuser()
dim n
set rs=server.createobject("adodb.recordset")
if isnumeric(request("n"))=0 or request("n")="" then n=10
sql="select top "&n&" username,useremail,userclass,oicq,homepage,article,addDate from [user] order by article desc"
rs.open sql,conn,1,1
do while Not RS.Eof
response.write "document.write('□');"
response.write "document.write('"&rs(0)&"');"
response.write "document.write('
');"
rs.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
%>