<%=ForumName%>--管理页面

<%@ LANGUAGE="VBSCRIPT" %> <%=ForumName%>--管理页面 <% if not master then Errmsg=Errmsg+"
"+"

本页面为管理员专用，请登陆后进入。" call Error() else dim rs,sql dim tmprs dim allarticle dim topic,username,dateandtime,body call main() set rs=nothing conn.close set conn=nothing end if sub main() %> align=center>

欢迎<%=session("mastername")%>进入管理页面

<%call leftmenu()%>

<% if request("action")="update" then call update() response.write body else %> <% end if %>

>
更新论坛数据：
注意：这里将重新统计所有论坛的最新帖子、最新发表时间、发表帖子数等信息。

<% ' response.write ""&body&"" end sub sub update() set rs=server.createobject("adodb.recordset") sql="select boardid,boardtype from board" rs.open sql,conn,1,1 if rs.eof and rs.bof then Errmsg=Errmsg+"
"+"

论坛还没有版面，请先添加版面。" call error() exit sub else do while not rs.eof tmprs=conn.execute("Select count(announceid) from bbs1 where boardid="&rs("boardid")&"") allarticle=tmprs(0) set tmprs=nothing if isnull(allarticle) then allarticle=0 tmprs=conn.execute("Select count(announceid) from bbs1 where boardid="&rs("boardid")&" and parentID=0") alltopic=tmprs(0) set tmprs=nothing if isnull(alltopic) then alltopic=0 set Ers=server.createobject("adodb.recordset") Ers=conn.execute("select Max(announceid) from bbs1 where boardid="&rs("boardid")&"") Maxid=Ers(0) if isnull(Maxid) then username="无" dateandtime=now() rootid=0 topic="无" else Ers=conn.execute("select username,dateandtime,rootid,topic,body from bbs1 where announceid="&Maxid&"") username=Ers("username") dateandtime=Ers("dateandtime") rootid=Ers("rootid") if Ers("topic")="" then topic=left(Ers("body"),20) else topic=left(Ers("topic"),20) end if end if Esql="update board set lastpostuser='"&username&"',lastposttime='"&dateandtime&"',lastbbsnum="&allarticle&",lasttopicnum="&alltopic&",TodayNum="&todays(rs("boardid"))&" where boardid="&rs("boardid")&"" conn.execute(Esql) body=body &"更新论坛数据成功，"&rs("boardtype")&"共有"&allarticle&"篇贴子，"&alltopic&"篇主题，今日有"&todays(rs("boardid"))&"篇帖子。
" rs.movenext loop end if rs.close Esql="update config set TopicNum="&titlenum()&",BbsNum="&gettipnum()&",TodayNum="&alltodays()&",UserNum="&allusers()&",lastUser='"&newuser()&"'" conn.execute(Esql) body=body &"更新论坛数据成功，全部论坛共有"&gettipnum()&"篇贴子，"&titlenum()&"篇主题，今日有"&alltodays()&"篇帖子，有"&allusers()&"用户，最新加入为"&newuser()&"。
" end sub function todays(boardid) tmprs=conn.execute("Select count(announceid) from bbs1 Where year(dateandtime)=year(Now()) and month(dateandtime)=month(Now()) and day(dateandtime)=day(Now()) and boardid="&boardid&"") todays=tmprs(0) set tmprs=nothing if isnull(todays) then todays=0 end function function alltodays() tmprs=conn.execute("Select count(announceid) from bbs1 Where year(dateandtime)=year(Now()) and month(dateandtime)=month(Now()) and day(dateandtime)=day(Now())") alltodays=tmprs(0) set tmprs=nothing if isnull(alltodays) then alltodays=0 end function 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 newuser() set tmprs=server.createobject("adodb.recordset") sql="Select top 1 username from [user] order by userid desc" tmprs.open sql,conn,1,1 if tmprs.eof and tmprs.bof then newuser="没有会员" else newuser=tmprs("username") end if set tmprs=nothing 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 function titlenum() tmprs=conn.execute("Select Count(announceID) from bbs1 where parentID=0") titlenum=tmprs(0) set tmprs=nothing if isnull(titlenum) then titlenum=0 end function %>