load.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<!-- #include file="Inc/UBBPost.asp" -->
<%
Menu=Request.QueryString("menu")
if Menu="BirthdayUser" Then
Response.Expires = 1
Else
Response.ExpiresAbsolute = Now() - 99
Response.Expires = 0 
Response.CacheControl = "no-cache"
end if

Select case Menu
case "BirthdayUser"
if Cache("DisplayBirthdays")>0 Then
if Cache("BirthCache")<>"" Then
Rs.Open "select top "&Cache("DisplayBirthdays")&" UserName from [WxUsers] where Month(Birthday)="&Month(now())&" and day(Birthday)="&day(now())&"",Conn,1
if Rs.Eof or Rs.Bof Then
CacheAdd "BirthCache",""
Else
CacheAdd "BirthCache",Rs.GetRows(,1,"UserName")
end if
Rs.Close
end if
%><div class="tb dt">
<div id="tt">生日祝福</div>
<div class="tc">
<div class="ac ficon w0c"><img alt="" src="images/birthday.gif" /></div>
<div class="fl"><%=Cache("BrithCache")%></div></div></div><%
end if
case "ForumList"
sql="select ID,ForumName from [WxForums] where ParentID=0 order by SortNum"
Rs1.Open sql,Conn,1
do while Not rs1.Eof
alltree=""&alltree&"<div class=menuitems><a href=Forums.asp?Fid="&rs1(0)&">"&rs1(1)&"</a></div>"
rs1.MoveNext
loop
Rs1.close
%><a onmouseover="showmenu(event,'<%=alltree%>')" href=Default.asp><%=Cache("SiteName")%></a><%
case "ThreadStatus"
ThreadID=ChkNumeric(Request("ThreadID"))
if ThreadID>0 then
ThreadStatus=int(Request("ThreadStatus"))
Conn.Execute("update [WxThreads] set ThreadStatus="&ThreadStatus&" where id="&ThreadID&"")
end if
case "AdminBar"
if UserRoleID=1 or UserRole=2 Then
%><a onmouseover="showmenu(event,'<div class=menuitems><a href=Moderation.asp?menu=Recycle&checkbox=1 target=_top>回 收 站</a></div><div class=menuitems><a href=Moderation.asp?menu=Censorship&checkbox=1>审核帖子</a></div>')" href="#"<%if UserRoleID=1 then%> onclick="ShowModal('登录后台管理','Admin.asp?menu=Login')"<%end if%>>管理</a><%
end if
case "ForumTree"
id=int(Request("id"))
sql="select ID,ForumName from [WxForums] where ParentID="&id&" order by SortNum"
Rs1.Open sql,Conn,1
do while Not rs1.Eof
alltree=""&alltree&"<div class=menuitems><a href=Forums.asp?Fid="&rs1(0)&">"&rs1(1)&"</a></div>"
rs1.MoveNext
loop
Rs1.close
%><a onmouseover="showmenu(event,'<%=alltree%>')" href=Forums.asp?Fid=<%=id%>><%=Conn.Execute("select ForumName from [WxForums] where id="&id&"")(0)%></a><%
case "ForumVisit"
ForumID=ChkNumeric(Request.QueryString("ForumID"))
if ForumID=0 then
sql="select * from [WxUsersOnline] where eremite<>1"
else
sql="select * from [WxUsersOnline] where ForumID="&ForumID&" and eremite<>1"
end if
i=1
Rs.Open sql,Conn,1
Do While Not Rs.Eof
i=i+1
if Rs("UserName")<>"" then
UserRole=Conn.Execute("select UserRoleID from [WxUsers] where UserName='"&Rs("UserName")&"'")(0)
Select case UserRole
case 1
OnlineImg="admin"
OnlineIntro="管理员"
case 2
OnlineImg="mod"
OnlineIntro="超级版主"
case Else
OnlineImg="member"
OnlineIntro="成员"
end Select
end if
if Rs("UserName")<>Empty Then
content=""&content&"<div class=""fl""><img src='Images/online_"&OnlineImg&".gif' alt='"&OnlineIntro&"'>&nbsp;<a href='User.asp?Name="&Rs("UserName")&"'>"&Rs("UserName")&"</a>&nbsp;&nbsp;</div>"
Else
content=""&content&"<div class=""fl""><img src='Images/online_visitor.gif'>&nbsp;游客&nbsp;&nbsp;</div>"
end if
Rs.MoveNext
loop
Rs.close
%><%=content%><%
case "Themes"
CookiesAdd "Themes",Server.HTMLEncode(Request("no")),30
ReturnPage()
case "Online"
CookiesAdd "Eremite","0",30
ReturnPage()
case "Eremite"
CookiesAdd "Eremite","1",30
ReturnPage()
case "CheckVerifyCode"
if Request("VerifyCode")<>Session("VerifyCode") Then
 Response.write "<span class=red>您输入的验证码错误</span>"
Else
 Response.write "<span class=gr>您输入的验证码正确</span>"
end if
case "Confirm"
%><iframe class="frame" src="" name="Temp"></iframe>
<form method="post" name="Confirm" action="Manage.asp" target="Temp">
<input type="hidden" name="menu" value="<%=HTMLEncode(Request.QueryString("Item"))%>" />
<input type="hidden" name="ThreadID" value="<%=ChkNumeric(Request.QueryString("Tid"))%>">
<div class="tc ac" style="padding:15px;">您确定要执行该操作？</div>
<div class="tc ac"><input type="submit" id="submit" value="继续" /><input type="button" id="cancel" onclick="ShadeDiv.Close();" value="关闭" /></div></form>
<%
case "PromptMsg"
%><div class="tc ac"><br />提示：您有新的短消息，请注意查收</div>
<div class="tc ac"><a href="MyPanel.asp?menu=Msg" target="_blank">点这里查看</a></div>
<div class="tc ac"><input type="button" id="submit" onclick="ShadeDiv.Close();" value="关闭" /></div>
<%
case "IsObjInstalled"
objName=Request.QueryString("Object")
if objName<>"" Then
On Error Resume Next
IsInstalled = "&nbsp;<img src='images/check0.gif' /> 您的服务器不支持 "&objName&" 组件"
Set xTestObj = Server.CreateObject(objName)
if 0 = Err Then IsInstalled = "&nbsp;<img src='images/check1.gif' />"
Set xTestObj = Nothing
On Error GoTo 0
Response.write(IsInstalled)
end if
end Select

sub ReturnPage()
ReturnUrl=Request.ServerVariables("http_referer")
if ReturnUrl<>Empty then
Response.redirect ReturnUrl
else
Response.write "<script>top.location='"&Cache("SiteUrl")&"';</script>"
end if
end sub
CloseDatabase%>