view.asp

教师评估系统

if BestRole<>1 then
ips=split(Rs("ip"),".")
ShowIP=""&ips(0)&"."&ips(1)&".*.*"
else
ShowIP=""&Rs("ip")&""
end if

if Rs("eremite")=1 and BestRole<>1 then
UserName="隐 身"
else
UserName="<a href=User.asp?Name="&Rs("UserName")&">"&Rs("UserName")&"</a>"
end if

place2=""
if Rs("act")<>"" then
place2 = "<a href="&Rs("actUrl")&">"&Rs("act")&"</a>"
place = "『 "&Rs("ForumName")&" 』"
else
place = "『 <a href="&Rs("actUrl")&">"&Rs("ForumName")&"</a> 』"
end if
%>
<div class="tc b cb">
<div class="fl r ac w1a ha small"><%=ShowIP%></div>
<div class="fl r ac w1a ha small"><%=Rs("Cometime")%></div>
<div class="fl r ac w1a ha small"><%=UserName%></div>
<div class="fl r ac w1a ha small"><%=place%></div>
<div class="fl r aci w2 ha small"><%=place2%></div>
<div class="fl ac ha w1a small"><%=Rs("lasttime")%></div>
</div>
<%
Rs.MoveNext
loop
Rs.close
%>
</div>
<div class="cb dt">
<div class="fl"><%ShowPage()%></div>
<div class="fr">
<form method="post" action="Online.asp">
<select name=Find>
<option value="UserName">查询用户</option>
<option value="IP">查询ＩＰ</option>
</select>
<input size="15" value="<%=Key%>" name="Key">
<input type="submit" value=" 确定 "></form>
</div>
</div>
<%
end sub

sub UserTop%>
<div class="tb dt">
<div id="tt">用户列表</div>
<div class="intro cb">
<div class="fl r w1a"><a href="?order=UserName">用户名</a></div>
<div class="fl r w0b">短讯息</div>
<div class="fl r w0"><a href="?menu=UserTop&order=PostTopic">发表主题</a></div>
<div class="fl r w0"><a href="?menu=UserTop&order=Postrevert">发表回复</a></div>
<div class="fl r w0"><a href="?menu=UserTop&order=UserMoney">金币</a></div>
<div class="fl r w0"><a href="?menu=UserTop&order=Experience">经验</a></div>
<div class="fl r w2"><a href="?menu=UserTop&order=UserLandTime">最后登录</a></div>
<div class="fl w0"><a href="?menu=UserTop&order=UserDegree">登录次数</a></div>
</div>
<%
order=Request("order")
if Request("menu")="AdminList" Then AdminSql=" where UserRoleID=2 or UserRoleID=1"
if Len(order)>15 then Error2("非法操作")
if Order<>"" then SqlOrder=" order by "&order&" Desc"

TotalCount=Conn.Execute("select count(ID) from [WxUsers]"&AdminSql)(0) '获取数据数量

PageSetup=20 '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = cint(Request.QueryString("PageIndex")) '获取当前页
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage

sql="select * from [WxUsers]"&AdminSql&""&SqlOrder&""
if PageCount<11 then
Set Rs=Conn.Execute(sql)
else
rs.Open sql,Conn,1
end if

if TotalPage>1 then RS.Move (PageCount-1) * pagesetup

i=0
Do While Not Rs.Eof and i<PageSetup
i=i+1

if Rs("Userhome")<>"http://" then
Userhome="<a href="&Rs("Userhome")&" target=_blank><img  src=Images/home.gif></a>"
else
Userhome=""
end if
%>
<div class="tc b cb">
<div class="fl r si w1a ac"><a href="User.asp?Name=<%=Rs("UserName")%>"><%=Rs("UserName")%></a></div>
<div class="fl r si w0b ac"><a onclick="return ShowModal('发送讯息','MyPanel.asp?menu=Post&incept=<%=Rs("UserName")%>');"><img alt='' src="Images/message.gif" /></a></div>
<div class="fl r si w0 ac"><%=Rs("PostTopic")%></div>
<div class="fl r si w0 ac"><%=Rs("PostRevert")%></div>
<div class="fl r si w0 ac"><%=Rs("UserMoney")%></div>
<div class="fl r si w0 ac"><%=Rs("Experience")%></div>
<div class="fl r si w2 ac"><%=Rs("UserLandTime")%></div>
<div class="fl si w0 ac"><%=Rs("UserDegree")%></div>
</div>
<%
Rs.MoveNext
loop
Rs.Close
%>
</div>
<div class="cb dt">
<div class="fl"><%ShowPage()%></div>
<div class="fr"><form method="post" action="User.asp">查询用户名：<input size="15" name="UserName"> <input type="submit" value=" 确定 "></form></div>
</div>
<%
end sub

sub cutline
sql="select * from [WxForums] where ParentID<>0"
Set Rs=Conn.Execute(sql)
%>
<div class="tb dt">
<div id="tt">在线分布</div>
<div class="intro cb">
<div class="fl r w3">版块</div>
<div class="fl r w5">图形比例</div>
<div class="fl w1a">在线人数</div>
</div>
<%
i=0
Do While Not Rs.Eof
Onlinemany=Conn.Execute("select count(sessionid)from [WxUsersOnline] where ForumID="&Rs("id")&"")(0)
%>
<div class="tc b cb">
<div class="fl r w3 ac"><a href="Forums.asp?Fid=<%=Rs("id")%>"><%=Rs("ForumName")%></a></div>
<div class="fl r w5 al"><div class='percent'><div id="per" style='width:<%=int(Onlinemany/count*100)%>%'></div></div></div>
<div class="fl w1a ac"><%=Onlinemany%></div>
</div><%
i=i+1
if i=9 then i=0

Rs.MoveNext
loop
Rs.Close   
%></div>
<%
end sub

sub board
sql="select * from [WxForums] where ParentID<>0 order by ForumThreads Desc"
Set Rs=Conn.Execute(sql)
%>
<div class="tb dt">
<div id="tt">主题分布</div>
<div class="intro cb">
<div class="fl r w3">版块</div>
<div class="fl r w5">图形比例</div>
<div class="fl w1a">帖数</div>
</div>
<%
i=0
Do While Not Rs.Eof
if ForumThreads=0 then
BarWidth=0
Else
BarWidth=Rs("ForumThreads")/ForumThreads*100
end if
%>
<div class="tc b cb">
<div class="fl r w3 ac"><a href="Forums.asp?Fid=<%=Rs("id")%>"><%=Rs("ForumName")%></a></div>
<div class="fl r w5 al"><div class='percent'><div id="per" style='width:<%=BarWidth%>%'></div></div></div>
<div class="fl w1a ac"><%=Rs("ForumThreads")%></div>
</div>
<%
i=i+1
if i=10 then i=0
Rs.MoveNext
loop
Rs.Close   
%></div>
<%
end sub

sub ForumPost
sql="select * from [WxForums] where ParentID<>0 order by ForumPosts Desc"
Set Rs=Conn.Execute(sql)
%>
<div class="tb dt">
<div id="tt">帖子分布</div>
<div class="intro cb">
<div class="fl r w3">版块</div>
<div class="fl r w5">图形比例</div>
<div class="fl w1a">帖数</div>
</div>
<%
i=0
Do While Not Rs.Eof
if tolRetopic=0 then
BarWidth=0
Else
BarWidth=Rs("ForumPosts")/tolReTopic*100
end if
%>
<div class="tc b cb">
<div class="fl r w3 ac"><a href="Forums.asp?Fid=<%=Rs("id")%>"><%=Rs("ForumName")%></a></div>
<div class="fl r w5 al"><div class='percent'><div id="per" style='width:<%=BarWidth%>%'></div></div></div>
<div class="fl w1a ac"><%=Rs("ForumPosts")%></div>
</div>
<%
i=i+1
if i=10 then i=0
Rs.MoveNext
loop
Rs.Close   
%></div>
<%
end sub

sub TodayPage
tolForumToday=Conn.Execute("select SUM(ForumToday)from [WxForums]")(0)
if tolForumToday=0 then tolForumToday=1
sql="select * from [WxForums] where ParentID<>0 order by ForumToday Desc"
Set Rs=Conn.Execute(sql)
%>
<div class="tb dt">
<div id="tt">新帖分布</div>
<div class="intro cb">
<div class="fl r w3">版块</div>
<div class="fl r w5">图形比例</div>
<div class="fl w1a">帖数</div>
</div>
<%
i=0
Do While Not Rs.Eof
if tolForumToday=0 then
BarWidth=0
Else
BarWidth=Rs("ForumToday")/tolForumToday*100
end if
%>
<div class="tc b cb">
<div class="fl r w3 ac"><a href="Forums.asp?Fid=<%=Rs("id")%>"><%=Rs("ForumName")%></a></div>
<div class="fl r w5 al"><div class='percent'><div id="per" style='width:<%=BarWidth%>%'></div></div></div>
<div class="fl w1a ac"><%=Rs("ForumToday")%></div>
</div><%
i=i+1
if i=10 then i=0
Rs.MoveNext
loop
Rs.Close   
%></div>
<%
end sub

sub UserSex
count=Conn.Execute("select count(id)from [WxUsers]")(0)
male=Conn.Execute("select count(id)from [WxUsers] where UserSex='male'")(0)
female=Conn.Execute("select count(id)from [WxUsers] where UserSex='female'")(0)
%>
<div class="tb dt">
<div id="tt">性别分布</div>
<div class="intro cb">
<div class="fl r w3">性别</div>
<div class="fl r w5">图形比例</div>
<div class="fl w1a">人数</div>
</div>
<div class="tc b cb">
<div class="fl r w3 ac"><img alt='' src="Images/male.gif" /></div>
<div class="fl r w5 al"><div class='percent'><div id="per" style='width:<%=male/count*100%>%'></div></div></div>
<div class="fl w1a ac"><%=male%></div>
</div>
<div class="tc b cb">
<div class="fl r w3 ac"><img alt='' src="Images/female.gif" /></div>
<div class="fl r w5 al"><div class='percent'><div id="per" style='width:<%=female/count*100%>%'></div></div></div>
<div class="fl w1a ac"><%=female%></div>
</div>
<div class="tc cb">
<div class="fl r w3 ac">未知</div>
<div class="fl r w5 al"><div class='percent'><div id="per" style='width:<%=(count-male-female)/count*100%>%'></div></div></div>
<div class="fl w1a ac"><%=count-male-female%></div>
</div>
</dov>
<%
end sub
HtmlEnd%>