admincls.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<!-- #include file="Inc/ADO.asp" -->
<%
if Not IsUser then Response.Redirect "Default.asp"
if UserRoleID<>1 then Response.Redirect "Default.asp"
Response.ExpiresAbsolute = Now() - 99
Response.Expires = -1
Response.CacheControl = "no-cache"
Startime=timer()
top "后台管理",False
%><script src="inc/AdminAjax.js" type="text/javascript"></script><%
function GetHtmlStr(str)
if IsNull(str) Then
Str = ""
Else
Str = Replace(str,"\'","'")
Str = Replace(str,"\"&chr(34),chr(34))
Str = Replace(str,"\/","/")
end if
GetHtmlStr = str
end function

function CheckAdmin()
UName=HTMLEncode(Session(Prefix&"Adminname"))
UPwd=Session(Prefix&"Adminpass")
if UName=Empty or UPwd=Empty Then
UName=HTMLEncode(Cookies("Adminname"))
UPwd=Cookies("Adminpass")
Session(Prefix&"Adminname")=UName
Session(Prefix&"Adminpass")=UPwd
end if
if UName=Empty Or UPwd=Empty then
 CheckAdmin=false
 exit function
end if
Set Rs=Conn.Execute("select Adminpass from [WxAdmin] where adminname='"&UName&"' and Forumname='"&CookieUserName&"'")
if Rs.Eof then
 CheckAdmin=false
 Rs.Close
 exit function
end if
Correctpass=Rs(0)
Rs.Close
if UPwd=Correctpass then
 CheckAdmin=true
Else
 CookiesAdd "AdminName","",1
 CookiesAdd "AdminPass","",1
 Session(Prefix&"AdminName")=""
 Session(Prefix&"AdminPass")=""
 CheckAdmin=false
 exit function
end if
end Function

function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Set xTestObj = Server.CreateObject(strClassString)
if 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
On Error GoTo 0
end function

sub WxManageHead(str)
%><div class="tb dt"><div id="tt" class="ac"><%=str%></div></div><%
end sub

sub CheckLogin()
if Not CheckAdmin() Then
 Response.redirect "Admin.asp?menu=Login"
Else
Conn.Execute("Update [WxAdmin] set Loginip='"&Replace(Request.ServerVariables("REMOTE_ADDR"),"'","")&"' where forumname='"&CookieUserName&"'")
end if
end sub

sub ShowError(text)
%><br /><br /><br /><br /><div class="ac"><b><%=text%></b></div><%
AdminBottom
end sub

sub AdminBottom
CreateCache()%>
<div class="small ac">Powered By WxBBS Version <%=SysVersion%><br />Processed in <%=FormatNumber(Timer()-Startime,4,true)%> Second(s)</div>
</body>
</html>
<%
CloseDataBase
end sub

sub AdminSucc(name,back)
if InStr(name,"<textarea")>0 Then
 textarea=Mid(name,InStr(name,"<t"),InStr(name,"</textarea>")+10)
 name=Replace(name,textarea,"")
 textarea=textarea&"<br />"
end if
%><div class="tb dt w8"><div id="tt">操作成功</div>
<div class="tc ac">
操作完成 --&gt;<b><%=name%></b>&lt;--<br />
<%=textarea%>
<%if Back<>Empty Then%><a href="<%=Back%>"><%Else%><a onclick="javascript:history.back()"><%end if%>
点这里返回</a>
</div>
</div><%
AdminBottom
end sub

sub saveit%>
<div class="tc ac">
<input type="submit" id="submit" value="保 存" /><input type="reset" id="cancel" value="重置" />
</div>
</div>
</form>
<%
end sub

sub CheckFso
 if Not IsObjInstalled("Scripting.FileSystemObject") Then ShowError("抱歉，您的服务器不支持FSO，不能使用本功能")
end sub%>