admin.asp

教师评估系统

<!-- #include file="AdminCls.asp" -->
<!-- #include file="inc/MD5.asp" --><%
if Request("menu")="out" then
CookiesAdd "AdminName","",0
CookiesAdd "AdminPass","",0
Session(Prefix&"AdminName")=""
Session(Prefix&"AdminPass")=""
Log("退出后台管理")
Response.redirect ""&Request.ServerVariables("script_name")&"/../"
end if

select case Request("menu")
case "Left"
Left
case "pass"
pass
case "Header"
Header
case "Login"
Login
case "index"
index
case "main"
main
case else
if Not CheckAdmin Then Response.redirect "Admin.asp?menu=Login"
index
end select

sub pass
if Not CheckAdmin() Then
VerifyCode=ChkNumeric(Request.Form("VerifyCode"))
if VerifyCode<>Int(Session("VerIfyCode")) then Alert("错误：验证码错误")
ErrCode=0
Set Rs=Conn.Execute("select Adminpass from [WxAdmin] where Adminname='"&HTMLEncode(Request.Form("Username"))&"' and Forumname='"&CookieUserName&"'")
if Rs.Eof Then
 ErrCode=1
 Rs.Close
Else
 if md5(Request.Form("pass"))<>Rs(0) Then ErrCode=1
 Rs.Close
end if
if ErrCode=1 Then Alert("登录失败\n可能因为\n1.管理员不存\n2.密码错误\n3.后台缓存已过期，请检查")
Session(Prefix&"Adminname")=HTMLEncode(Request.Form("username"))
Session(Prefix&"Adminpass")=md5(Request.Form("pass"))
CookiesAdd "Adminname",HTMLEncode(Request.Form("username")),2
CookiesAdd "Adminpass",md5(Request.Form("pass")),2
end if
Log("登录后台管理")
Response.write "<script type=text/javascript>top.location.href='Admin.asp';</script>"
end sub

sub main
CheckLogin()
WxManageHead("无限官方公告：<span id=""Announce"">读取中..</span>")
NeverPostedUsers=Conn.Execute("select count(id) from [WxUsers] where PostTopic+PostRevert=0")(0)
AllUsers=Conn.Execute("select count(id) from [WxUsers]")(0)
NeverPostedRate=FormatNumber(NeverPostedUsers/AllUsers*100,2,true)
%>
<div class="tb dt">
<div id="tt">系统信息 <a href="Admin_Other.asp?menu=ServerInfo">&gt;&gt;服务器详情</a></div>
<div class="tc b cb">
系统共有版块 <b><%=Conn.Execute("select count(id) from [WxForums]")(0)%></b> 个，用户 <b><%=AllUsers%></b> 人，主题 <b><%=Conn.Execute("select count(id) from [WxForums]")(0)%></b> 篇。未发帖用户 <b><%=NeverPostedUsers%></b> 人，比例 <b><%=NeverPostedRate%>%</b>
</div>
<div class="tc b cb">
 <div class="fl r w1a">服务器域名</div>
 <div class="fl r w3a"><%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("LOCAL_ADDR")%></div>
 <div class="fl r w1a">服务器软件</div>
 <div class="fl w3"><%=Request.ServerVariables("SERVER_SOFTWARE")%></div>
</div>
<div class="tc b cb">
 <div class="fl r w1a">脚本解释引擎</div>
 <div class="fl r w3a"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></div>
 <div class="fl r w1a">缓存创建时间</div>
 <div class="fl w3"><%=Cache("System")%></div>
</div>
<div class="tc b cb">
<div class="fl w3a">
<fieldset>
<legend><b>建议</b></legend>
<%if NeverPostedRate>=50 Then%>存在极多未发帖用户，建议批量清理<%Else%>未发帖用户比例在正常值内<%end if%><br />系统管理员中<%if Conn.Execute("select count(id) from [WxUsers] where (UserRoleID=1 or UserRoleID=2) and (UserLandTime<"&SqlDateChar&Now()-15&SqlDateChar&")")(0)>0 Then%>存在玩忽职守者，建议询问其原因<%Else%>没有玩忽职守者<%end if%><br />短讯数据条数<%if Conn.Execute("select count(id) from [WxSms]")(0)>200 Then%>过多，建议批量清理<%Else%>在正常值内<%end if%><br /><%if Conn.Execute("select count(id) from [WxLink] where Review=0")(0) Then%>系统中有待审核的友情链接，建议审核<%end if%><br />
</fieldset>
</div>
<div class="fl w3a">
<fieldset>
<legend><b>查找用户</b></legend>
<form method="post" action="Admin_User.asp?menu=EditUser"><input type="text" size="20" name="UserName" /> <input type="submit" value=" 查找 " /></form>
</fieldset>
<fieldset>
<legend><b>查找版块</b></legend>
<form method="post" action="Admin_Forum.asp?menu=ManageByName"><input type="text" size="20" name="ForumName" /> <input type="submit" value=" 查找 " /></form>
</fieldset> 
 </div>
<div class="fl w2a">
<fieldset>
<legend><b>审核</b></legend>
待审核用户：<%=Conn.Execute("select count(id) from [WxUsers] where UserStatus=0")(0)%> 人<br />
待审核链接：<%=Conn.Execute("select count(id) from [WxLink] where Review=0")(0)%> 个<br />
待审核帖子：<%=Conn.Execute("select count(id) from [WxThreads] where IsDel=1 and PostTime=lasttime")(0)%> 篇<br />
</fieldset>
</div>
</div>
</div>
<div class="tb dt">
<div id="tt">关于程序</div>
<div class="tc b cb">
<div class="fl r w2">检查更新</div>
<div class="fl">当前版本为：系统当前版本为 <%=SysVersion%> ，最新版本为 <a target="_blank" href="http://www.wxsky.cn/download.html"><span id="NewVer">读取中..</span></a> 。</div>
</div>
<div class="tc b cb">
<div class="fl r w2">链接无限</div>
<div class="fl"><a href="http://www.wxsky.cn/guide/" target="_blank">使用帮助</a> | <a href="http://www.wxsky.cn/bbs/Forums.asp?Fid=13" target="_blank">技术支持</a> | <a href="http://www.wxsky.cn/bbs/" target="_blank">官方论坛</a> | <a href="mailto:[e-mail]" target="_blank">改进建议</a> | <a href="http://www.wxsky.cn/download.html" target="_blank">检查更新</a> | <a href="http://www.wxsky.cn/sponsor.html" target="_blank">捐助无限</a></div>
</div>
</div>
<script src="http://www.wxsky.cn/Program/Upgrade.asp?Name=<%=Cache("SiteName")%>&Url=<%=Cache("SiteUrl")%>&Ver=<%=SysVersion%>" type="text/javascript"></script>
<%
Conn.Execute("delete from [WxLog] where DateCreated<"&SqlNowString&"-7")
Conn.execute("delete from [WxActivation] where DateCreated<"&SqlNowString&"-14")
AdminBottom
end sub

sub Login%>
<iframe class="frame" src="" name="Temp"></iframe>
<form method="post" action="Admin.asp" target="Temp">
<input type="hidden" value="pass" name="menu" />
<div class="tc b cb">
<div class="fl r si w2">后台管理员名称</div>
<div class="fl si"><input type="text" name="Username" size="30" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w2">后台管理员密码</div>
<div class="fl si"><input type="password" name="pass" size="30" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w2">验证码</div>
<div class="fl si"><%=WriteVerifyCode%></div>
</div>
<div class="tc b cb">
<div class="fl r si w2">提示</div>
<div class="fl si">若您在一天内登录过，可点击按钮直接进入管理</div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="进入管理" /></div>
</form>
<%
CloseDataBase
end sub

sub Left
Head"系统设置",1,false
Body0"系统参数设置","Admin_Config.asp?menu=variable"
Body0"系统统计设置","Admin_Config.asp?menu=SiteStat"
Body0"论坛公告管理","Admin_Config.asp?menu=Affichelist"
Body0"论坛广告管理","Admin_Config.asp?menu=Showbanner"
Body0"联盟网站管理","Admin_Site.asp?menu=Link"
Body0"系统维护中心","Admin_Config.asp?menu=upSiteSettings"
Body0"主题附件管理","Admin_Fso.asp?menu=PostAttachment"
Body0"后台管理员管理","Admin_Config.asp?menu=groupman"
Bottom
Head"用户管理",2,false
Body0"管理注册用户","Admin_User.asp?menu=Showall"
Body0"用户角色管理","Admin_User.asp?menu=Default"
Body0"用户级别管理","Admin_User.asp?menu=UserRank"
Body0"用户审核系统","Admin_User.asp?menu=Activation"
Body0"用户更名系统","Admin_User.asp?menu=Rename"
Bottom
Head"版块与主题",3,false
Body0"版块数据管理","Admin_Forum.asp?menu=ManageForums"
Body0"调用主题列表","Admin_Config.asp?menu=ForumInclude"
Body0"自定调用内容","Admin_Menu.asp?menu=incshow"
Bottom
Head"菜单与外观",4,false
Body1"系统菜单管理","Admin_Menu.asp","添加","Admin_Menu.asp?menu=add"
Bottom
Head"其他设置",5,false
Body1"群发邮件","Admin_Site.asp?menu=BatchSendMail","html存档","Admin_Forum.asp?menu=makehtml"
Body1"数据备份","Admin_Fso.asp?menu=bak1","数据恢复","Admin_Fso.asp?menu=bak2"
Body1"数据压缩","Admin_Fso.asp?menu=bak3","主机检测","Admin_Other.asp?menu=ServerInfo"
Body1"数据分卷","Admin_Fso.asp?menu=Posts","空间占用","Admin_Fso.asp?menu=statroom"
Body1"缓存查看","Admin_Other.asp?menu=ShowCache","系统日志","Admin_Other.asp?menu=Log"
Bottom
end sub

sub index
Response.Clear()
%>
<title>后台管理 - <%=Cache("SiteName")%></title>
<frameset rows="25,*" cols="*" frameborder="no" border="0" framespacing="0">
  <frame src="Admin.asp?menu=Header" name="Header" scrolling="No" noresize="noresize" id="Header" />
  <frameset cols="144,*" frameborder="no" border="0" framespacing="0">
    <frame src="Admin.asp?menu=Left" name="left" scrolling="No" noresize="noresize" id="left" />
    <frame src="Admin.asp?menu=main" name="main" id="main" />
  </frameset>
</frameset>
<%
end sub

sub Head(Name,i,dsp)
if Not dsp then
 dsp=""
else
 dsp="none"
end if
%><div class="tb dt">
<div id="tt" onclick="MenuOn('m<%=i%>')"><%=name%></div>
<div class="tc lh" id="m<%=i%>" style="display:<%=dsp%>"><%
end sub

sub Body0(Name,Url)
%><a target="main" href="<%=Url%>"><%=name%></a><br />
<%
end sub

sub Body1(Name,Url,Name2,Url2)
%><a target="main" href="<%=Url%>"><%=Name%></a> ┆ <a target="main" href="<%=Url2%>"><%=Name2%></a><br />
<%
end sub

sub Bottom
%></div></div><%
end sub

sub Header
%><div class="tb">
<div id="tt"><span class="fl">欢迎登录后台管理 (WxBBS Version <%=SysVersion%>)</span><span class="fr ar"><a href="Default.asp" target="_blank">论坛首页</a> <a href="Admin.asp?menu=pass" target="main">管理首页</a> <a target="_top" href="Admin.asp?menu=out">退出管理</a>
</span></div></div><%
end sub%>