view.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<%
UserName=HTMLEncode(Request("UserName"))
count=Conn.Execute("select count(sessionid)from [WxUsersOnline]")(0)
ForumThreads=Conn.Execute("select SUM(ForumThreads)from [WxForums]")(0)
tolReTopic=Conn.Execute("select SUM(ForumPosts)from [WxForums]")(0)
TopEnd=0

ForumName="论坛统计"

Select case Request("menu")
case ""
WxLine
ShowLine()
index
ShowLineEnd()
case "AdminList"
WxLine
ShowLine()
UserTop
ShowLineEnd()
case "UserTop"
WxLine
ShowLine()
UserTop
ShowLineEnd()
case "Online"
WxLine
ShowLine()
Online
ShowLineEnd()
case "cutline"
ShowLine()
cutline
ShowLineEnd()
case "board"
ShowLine()
board
ShowLineEnd()
case "ForumPosts"
ShowLine()
ForumPost
ShowLineEnd()
case "TodayPage"
ShowLine()
TodayPage
ShowLineEnd()
case "UserSex"
ShowLine()
UserSex
ShowLineEnd()
case "0"
PageName="最新主题"
CheckLogin()
sql="select top 200 * from [WxThreads] where IsDel=0 order by id Desc"
ShowList()
case "7"
PageName="未回复帖"
CheckLogin()
sql="select top 200 * from [WxThreads] where IsDel=0 and Replies=0 order by PostTime Desc"
ShowList()
case "1"
PageName="人气主题"
CheckLogin()
sql="select top 200 * from [WxThreads] where IsDel=0 and PostTime>"&SqlNowString&"-7 order by Views Desc"
ShowList()
case "2"
PageName="热门主题"
CheckLogin()
sql="select top 200 * from [WxThreads] where IsDel=0 and PostTime>"&SqlNowString&"-7 order by replies Desc"
ShowList()
case "3"
PageName="精华主题"
CheckLogin()
sql="select top 200 * from [WxThreads] where IsGood=1 and IsDel=0 order by id Desc"
ShowList()
case "4"
PageName="投票主题"
CheckLogin()
sql="select top 200 * from [WxThreads] where IsVote=1 and IsDel=0 order by id Desc"
ShowList()
case "5"
PageName=UserName&" 的主题"
CheckLogin()
if UserName=Empty Then UserName=CookieUserName
sql="select top 200 * from [WxThreads] where UserName='"&UserName&"' and IsDel=0 order by id Desc"
ShowList()
case "6"
PageName=UserName&" 的回帖"
CheckLogin()
if UserName=Empty Then UserName=CookieUserName
sql="select top 500 * from [WxThreads] where UserName<>'"&UserName&"' and IsDel=0 and ID in (Select ThreadID from [WxPosts"&PostsTableName&"] Where UserName='"&UserName&"') Order by LastTime Desc"
ShowList()
case else
Response.redirect "Default.asp"
end Select

sub CheckLogin()
if Not IsUser And (Not Cache("GuestList")) then Error("<li>您还未<a href=Login.asp>登录</a>论坛")
top PageName,true
end sub

sub ShowLine
top "论坛状态",true
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → 论坛统计</div>
<div class="dt cb">
<div class="fl tb w0" id="sidebar">
<div id="tt">导航</div>
<div class="tc ac"><a href="View.asp">论坛概况</a></div>
<div class="tc ac"><a href="?menu=Online">在线情况</a></div>
<div class="tc ac"><a href="?menu=cutline">在线分布</a></div>
<div class="tc ac"><a href="?menu=UserSex">性别分布</a></div>
<div class="tc ac"><a href="?menu=TodayPage">新帖分布</a></div>
<div class="tc ac"><a href="?menu=board">主题分布</a></div>
<div class="tc ac"><a href="?menu=ForumPosts">帖子分布</a></div>
<div class="tc ac"><a href="?menu=AdminList">管理团队</a></div>
<div class="tc ac"><a href="?menu=UserTop">用户排行</a></div>
</div>
<div class="fl" id="mainarea">
<%
end sub

sub ShowLineEnd()
%></div></div><%
end sub

sub index()
%>
<div class="tb">
<div id="tt">会员统计</div>
<%PostedUser=Conn.Execute("select count(id) from [WxUsers] where PostTopic>0 or PostRevert>0")(0)%>
<div class="tc b cb">
<div class="fl r w0">注册会员</div>
<div class="fl r w2"><%=Cache("TotalUsers")%></div>
<div class="fl r w0">发帖会员</div>
<div class="fl r w2"><%=PostedUser%></div>
<div class="fl r w0">未发帖会员</div>
<div class="fl w2"><%=int(Cache("TotalUsers")-PostedUser)%></div>
</div>
<div class="tc cb">
<div class="fl r w0">管理成员</div>
<div class="fl r w2"><%=Conn.Execute("select count(id) from [WxUsers] where UserRoleID=1 or UserRoleID=2")(0)%></div>
<div class="fl r w0">人均发帖</div>
<div class="fl r w2"><%=FormatNumber(Cache("TotalPosts")/Cache("TotalUsers"),2,true)%></div>
<div class="fl r w0">发帖会员比例</div>
<div class="fl w2"><%=FormatNumber(PostedUser/Cache("TotalUsers")*100,2,true)%>%</div>
</div>
</div>
<div class="tb">
<div id="tt">论坛统计</div>
<%
Set Rs=Conn.Execute("select top 1 ID,ForumName from [WxForums] order by ForumPosts desc")
PopularForumID=Rs(0)
PopularForumName=Rs(1)
Rs.Close

Set Rs=Conn.Execute("select top 1 UserRegTime from [WxUsers] order By UserRegTime asc")
if Rs.eof Then
 EveryDayPosts=0
Else
 PastDays=DateDiff("d",Rs(0),Date())
 if PastDays=0 Then
  EveryDayPosts=0
 Else
  EveryDayPosts=FormatNumber(Cache("TotalPosts")/PastDays,2,true)
 end if
end if
%>
<div class="tc b cb">
<div class="fl r w1a">版块数</div>
<div class="fl r w1a"><%=Conn.Execute("select count(id) from [WxForums]")(0)%></div>
<div class="fl r w1a">帖子数</div>
<div class="fl r w1a"><%=Cache("TotalPosts")%></div>
<div class="fl r w1a">主题数</div>
<div class="fl w1a"><%=Cache("TotalTopics")%></div>
</div>
<div class="tc b cb">
<div class="fl r w1a">最热门版块</div>
<div class="fl r w1a"><a href="Forums.asp?Fid=<%=PopularForumID%>"><%=PopularForumName%></a></div>
<div class="fl r w1a">今日新增帖子</div>
<div class="fl r w1a"><%=Cache("daysPosts")%></div>
<div class="fl r w1a">今日新增主题</div>
<div class="fl w2"><%=Cache("daysTopics")%></div>
</div>
<div class="tc cb">
<div class="fl r w1a">平均每主题有帖子</div>
<div class="fl r w1a"><%if Cache("TotalTopics")=0 Then:Response.write "0.00":Else:Response.write FormatNumber((Cache("TotalPosts")-Cache("TotalTopics"))/Cache("TotalTopics"),2,true):end if%></div>
<div class="fl r w1a">日均新增帖子</div>
<div class="fl r w1a"><%=EveryDayPosts%></div>
<div class="fl r w1a">当前在线人数</div>
<div class="fl w1a"><%=Onlinemany%></div>
</div>
</div>
<%
end sub

dim ForumID,ID,Icon,IsGood,IsTop,IsLocked,Replies,Views,ThreadStatus,PayTopicMoney,Topic,Category,LastName,LastTime,PostTime

sub ShowList
%>
<div class="nav dt"><img alt='' src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <%=PageName%></div>
<div class="tb dt">
<div id="tt">主题列表</div>
<div class="intro cb">
<div class="fl r w1a"><a href="?menu=0">最新帖子</a></div>
<div class="fl r w0"><a href="?menu=1">人气帖子</a></div>
<div class="fl r w0"><a href="?menu=2">热门帖子</a></div>
<div class="fl r w0"><a href="?menu=7">未回复帖</a></div>
<div class="fl r w0"><a href="?menu=3">精华帖子</a></div>
<div class="fl r w0"><a href="?menu=4">投票帖子</a></div>
<div class="fl r w1a"><a href="?menu=5&UserName=<%=CookieUserName%>">我的帖子</a></div>
<div class="fl w0 ac"><a href="?menu=6&UserName=<%=CookieUserName%>">我的回帖</a></div>
</div>
</div>
<div class="tb dt">
<%=Replace(Cache("boardtb"),"$category$","")%>
<%
Rs.Open sql,Conn,1

PageSetup=Cache("ThreadsPerPage") '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
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<pagesetup
i=i+1
ForumID=Rs("ForumID")
ID=Rs("ID")
Icon=Rs("Icon")
IsGood=Rs("IsGood")
IsTop=Rs("IsTop")
IsLocked=Rs("IsLocked")
Replies=Rs("Replies")
Views=Rs("Views")
ThreadStatus=Rs("ThreadStatus")
PayTopicMoney=Rs("PayTopicMoney")
Topic=Rs("Topic")
Category=Rs("Category")
UserName=Rs("UserName")
LastName=Rs("LastName")
LastTime=Rs("LastTime")
PostTime=Rs("PostTime")
ShowThreads
Rs.MoveNext
loop
Rs.Close
%></div>
<div class="dt"><%ShowPage()%></div>
<%
end sub

sub Online
if Request.ServerVariables("Request_method") = "POST" and BestRole<>1 then Error2("您的权限不够")
Key=HTMLEncode(Request.Form("Key"))
Find=HTMLEncode(Request.Form("Find"))
if Len(Find)>10 then Error "系统错误","<li>非法操作</li>"

if Key<>empty then SqlFind=" where "&Find&"='"&Key&"'"

sql="select * from [WxUsersOnline] "&SqlFind&" order by lasttime Desc"
Rs.Open sql,Conn,1

PageSetup=20 '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数
i=0%>
<div class="tb dt">
<div id="tt">用户列表</div>
<div class="intro cb">
<div class="fl r w1a">IP地址</div>
<div class="fl r w1a">登录时间</div>
<div class="fl r w1a">用户名</div>
<div class="fl r w1a">所在论坛</div>
<div class="fl r w2">所在主题</div>
<div class="fl w1a">活动时间</div>
</div>
<%
Do While Not Rs.Eof and i<PageSetup
i=i+1