<% top count=conn.execute("Select count(sessionid)from online")(0) regonline=conn.execute("Select count(sessionid)from online where username<>''")(0) toltopic=conn.execute("Select SUM(toltopic)from bbsconfig")(0) tolretopic=conn.execute("Select SUM(tolrestore)from bbsconfig")(0) %>
   <%ClubTree%> → 查看论坛状态

总帖数 <%=tolretopic%> 篇。其中主题 <%=toltopic%> 篇,回帖 <%=tolretopic-toltopic%> 篇。总在线 <%=count%> 人。其中注册用户 <%=regonline%> 人,访客 <%=count-regonline%> 人。

<% select case Request("menu") case "" index case "cutline" cutline case "board" board case "tolrestore" tolrestore case "todaypage" todaypage case "sex" sex end select sub index ip=HTMLEncode(Request.Form("ip")) username=HTMLEncode(Request.Form("username")) if ip<>"" then whereip=" where ip='"&ip&"'" if username<>"" then whereusername=" where username='"&username&"'" sql="select * from online "&whereip&" "&whereusername&" order by lasttime Desc" rs.Open sql,Conn,1 pagesetup=20 '设定每页的显示数量 rs.pagesize=pagesetup TotalPage=rs.pagecount '总页数 PageCount = cint(Request.QueryString("ToPage")) if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数 i=0 Do While Not RS.EOF and i "&rs("username")&"" end if place2="" if rs("act")<>"" then place2 = ""&rs("act")&"" place = "『 "&rs("bbsname")&" 』" else place = "『 "&rs("bbsname")&" 』" end if allline=""&allline&""&ip&""&rs("cometime")&""&username&""&place&""&place2&""&rs("lasttime")&"" rs.movenext loop rs.close %> <%=allline%>
IP地址 登录时间 用户名 所在论坛 所在主题 活动时间
查询IP:" name="ip">
Page:[ ]
查询用户:" name="username">


<% end sub sub cutline sql="select * from bbsconfig where followid<>0 and hide=0" Set Rs=Conn.Execute(sql) %> <% i=0 Do While Not RS.EOF onlinemany=conn.execute("Select count(sessionid)from online where forumid="&rs("id")&"")(0) %> <% i=i+1 if i=10 then i=0 RS.MoveNext loop RS.Close %>
论坛名称 图形比例 在线人数
"><%=rs("bbsname")%> <%=onlinemany%>
<% end sub sub board sql="select * from bbsconfig where followid<>0 and hide=0 order by toltopic Desc" Set Rs=Conn.Execute(sql) %> <% i=0 Do While Not RS.EOF %> <% i=i+1 if i=10 then i=0 RS.MoveNext loop RS.Close %>
论坛名称 图形比例 主题数
"><%=rs("bbsname")%> %"> <%=rs("toltopic")%>
<% end sub sub tolrestore sql="select * from bbsconfig where followid<>0 and hide=0 order by tolrestore Desc" Set Rs=Conn.Execute(sql) %> <% i=0 Do While Not RS.EOF %> <% i=i+1 if i=10 then i=0 RS.MoveNext loop RS.Close %>
论坛名称 图形比例 帖子数
"><%=rs("bbsname")%> %"> <%=rs("tolrestore")%>
<% end sub sub todaypage toltoday=conn.execute("Select SUM(today)from bbsconfig")(0) if toltoday=0 then toltoday=1 sql="select * from bbsconfig where followid<>0 and hide=0 order by today Desc" Set Rs=Conn.Execute(sql) %> <% i=0 Do While Not RS.EOF %> <% i=i+1 if i=10 then i=0 RS.MoveNext loop RS.Close %>
论坛名称 图形比例 今日帖数
"><%=rs("bbsname")%> %"> <%=rs("today")%>
<% end sub sub sex count=conn.execute("Select count(id)from [user]")(0) male=conn.execute("Select count(id)from [user] where sex='male'")(0) female=conn.execute("Select count(id)from [user] where sex='female'")(0) %>
性别 图形比例 人数
<%=male%>
<%=female%>
未知 <%=count-male-female%>
<% end sub htmlend %>