admin_site.asp

教师评估系统

<!-- #include file="AdminCls.asp" -->
<!-- #include file="Inc/Mail.asp" -->
<%
CheckLogin()
Log("")
id=int(Request("id"))

TimeLimit=HTMLEncode(Request("TimeLimit"))
UserName=HTMLEncode(Request("UserName"))
RoleID=HTMLEncode(Request("RoleID"))
content=HTMLEncode(Request("content"))

Select case Request("menu")
case "Message"
Message
case "broadcast"
broadcast
case "BatchSendMail"
BatchSendMail
case "BatchSendMailok"
BatchSendMailok
case "Messageok"
if TimeLimit="" then Error2("您没有选择日期！")
Conn.Execute("delete from [WxSms] where DateCreated<"&SqlNowString&"-"&TimeLimit&"")
AdminSucc "删除"&TimeLimit&"天前的短讯息","?menu=Message"
case "DelMessageUser"
if UserName="" then Error2("您没有输入用户名！")
Conn.Execute("delete from [WxSms] where UserName='"&UserName&"' or incept='"&UserName&"'")
AdminSucc "删除"&UserName&"的全部短讯息","?menu=Message"
case "DelMessagekey"
key=HTMLEncode(Request("key"))
if key="" then Error2("您没有输入关键词！")
Conn.Execute("delete from [WxSms] where content like '%"&key&"%'")
AdminSucc "删除包含"&key&"的全部短讯息","?menu=Message"
case "delReview"
Conn.Execute("update [WxLink] set Review=0 where id="&Request("ID")&"")
Link
case "Review"
Conn.Execute("update [WxLink] set Review=1 where id="&Request("ID")&"")
Link
case "Link"
Link
case "Linkok"
Linkok
case "editLink"
editLink
case "editLinkok"
Rs.Open "select * from [WxLink] where id="&id&"",Conn,1,3
Rs("name")=HTMLEncode(Request.Form("name"))
Rs("url")=Request.Form("url")
Rs("Logo")=Request.Form("Logo")
Rs("Intro")=HTMLEncode(left(Request.Form("Intro"),200))
Rs.update
Rs.close
AdminSucc "编辑友情链接","?menu=Link"
case "DelLink"
Conn.Execute("delete from [WxLink] where id="&id&"")
Link
end Select

sub BatchSendMail
if Cache("SmtpObj")="" then Error2("您没有设置发送邮件组件")
%><form method="post" action="?menu=BatchSendMailok">
<div class="tb dt">
<div id="tt">群发邮件</div>
<div class="tc b cb">
<div class="fl r si w3">收件人/主题</div>
<div class="fl si"><select name="RoleID">
<%
sql="select * from [WxRoles] where ID > 0 order by ID"
Set Rs=Conn.Execute(sql)
Do While Not Rs.Eof
%><option value="<%=Rs("ID")%>"><%=Rs("Name")%></option>
<%
Rs.MoveNext
loop
Rs.Close
%></select> <input size="40" name="Title" /></div>
</div>
<div class="tc b cb">
<div class="fl r t w3">内容</div>
<div class="fl t"><textarea name="Content" rows="1" cols="1"></textarea></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="发送" /></div>
</div>
<%
end sub

sub BatchSendMailok
Title=HTMLEncode(Request.Form("Title"))
Content=HTMLEncode(Request.Form("Content"))
if Title="" then Error2("请填写邮件主题")
if Content="" then Error2("请填写邮件内容")
if RoleID>0 then
sql="select Usermail from [WxUsers] where UserRoleID="&RoleID&""
else
sql="select Usermail from [WxUsers]"
end if
Set Rs=Conn.Execute(sql)
Do While Not Rs.Eof
Usermail=Rs(0)
SendMail Usermail,Title,Content
Rs.MoveNext
loop
Rs.close
AdminSucc "邮件发送","?menu=sendMail"
end sub

sub Message
WxManageHead("共有 "&Conn.Execute("select count(id)from [WxSms]")(0)&" 条短讯息")
%><div class="tb dt">
<div id="tt">批量删除短消息</div>
<form method="post" action="?menu=DelMessageUser">
<div class="tc b"><span class="fl">批量删除 <input size="13" name="UserName" onclick="this.value=''" onchange="javascript:VerifyText(this,'用户名','bt1')" value="用户名" /> 的短讯息</span>
<span class="fr w3"><input type="submit" value="确定" id="bt1" disabled="disabled" /></span>
</div>
</form>
<form method="post" action="?menu=DelMessagekey">
<div class="tc b"><span class="fl">批量删除内容含有 <input size="20" name="key" onclick="this.value=''" onchange="javascript:VerifyText(this,'关键字','nrkey')" value="关键词" /> 的短讯息</span>
<span class="fr w3"><input type="submit" value="确定" id="nrkey" disabled="disabled" /></span>
</div>
</form>
<form method="post" action="?menu=Messageok">
<div class="tc"><span class="fl">删除 <select name="TimeLimit">
<option value="30">30</option>
<option value="60">60</option>
<option value="90">90</option>
</select> 天以前的短讯息</span>
<span class="fr w3"><input type="submit" value="确定" /></span>
</div>	
</form>
</div>
<%
end sub

Dim Link1,Link2

sub Link
%><form method="post" action="?menu=Linkok">
<div class="tb dt">
<div id="tt">联盟网站管理</div>
<div class="tc b cb">
<div class="fl r w5">网站名称：<input name="name" size="40" /></div>
<div class="fl w4">地址Url：<input name="url" size="40" value="http://" /></div>
</div>
<div class="tc b cb">
<div class="fl r w5">网站简介：<input name="Intro" size="40" maxlength="200" /></div>
<div class="fl w4">图标Url：<input name="Logo" size="40" value="http://" /></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="添 加" /></div>
</div>
</form>
<div class="tb dt">
<div id="tt">已通过的网站</div>
<div class="tc b cb">
<%
Set Rs=Conn.Execute("select * from [WxLink] where Review=1 order by id asc")
do while Not Rs.Eof
ShowLinkHtml(0)
Rs.MoveNext
loop
Rs.close%>
<%=Link1%>
<br /><br />
<%=Link2%>
</div></div>
<div class="tb dt">
<div id="tt">待审核的网站</div>
<div class="tc b cb">
<%
Link1=""
Link2=""
Set Rs=Conn.Execute("select * from [WxLink] where Review=0 order by id asc")
do while Not Rs.Eof
ShowLinkHtml(1)
Rs.MoveNext
loop
Rs.close%>
<%=Link1%>
<br /><br />
<%=Link2%>
</div></div>
<%
end sub

sub ShowLinkHtml(Way)
if Way=1 Then
ReviewMenu="Review"
ReviewTag="通过"
Else
ReviewMenu="delReview"
ReviewTag="屏蔽"
end if
if Rs("Logo")="" or Rs("Logo")="http://" then
Link1=Link1+"<a onmouseover="&chr(34)&"showmenu(event,'<div class=menuitems><a href=?menu="&ReviewMenu&"&id="&Rs("id")&">"&ReviewTag&"</a></div><div class=menuitems><a href=?menu=editLink&id="&Rs("id")&">编辑</a></div><div class=menuitems><a href=?menu=DelLink&id="&Rs("id")&">删除</a></div>')"&chr(34)&" title='"&Rs("Intro")&"' href="&Rs("url")&" target=_blank>"&Rs("name")&"</a>　　"
else
Link2=Link2+"<a onmouseover="&chr(34)&"showmenu(event,'<div class=menuitems><a href=?menu="&ReviewMenu&"&id="&Rs("id")&">"&ReviewTag&"</a></div><div class=menuitems><a href=?menu=editLink&id="&Rs("id")&">编辑</a></div><div class=menuitems><a href=?menu=DelLink&id="&Rs("id")&">删除</a></div>')"&chr(34)&" title='"&Rs("name")&""&chr(10)&""&Rs("Intro")&"' href="&Rs("url")&" target=_blank><img src="&Rs("Logo")&" width=88 height=31 /></a>　　"
end if
end sub

sub editLink
sql="select * from [WxLink] where id="&id&""
Set Rs=Conn.Execute(sql)
%>
<form method="post" action="?menu=editLinkok">
<input type="hidden" name="id" value=<%=id%> />
<div class="tb dt">
<div id="tt">联盟网站编辑</div>
<div class="tc b cb">
<div class="fl r w5">网站名称：<input name="name" size="40" value="<%=Rs("name")%>" /></div>
<div class="fl w4">地址Url：<input name="url" size="40" value="<%=Rs("url")%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w5">网站简介：<input name="Intro" size="40" maxlength="200" value="<%=Rs("Intro")%>" /></div>
<div class="fl w4">图标Url：<input name="Logo" size="40" value="<%=Rs("Logo")%>" /></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="编辑" /></div>
</div>
</form>
<%
Rs.Close
end sub

sub Linkok
Name=HTMLEncode(Request.Form("name"))
Url=Request.Form("Url")
if Len(Url)<7 then Error2("请填写网站Url")
if Not Conn.Execute("select ID from [WxLink] where Name='"&Name&"' or Url='"&Url&"'").Eof Then Error2("该网站已存在")
Rs.Open "[WxLink]",Conn,1,3
Rs.addNew
Rs("name")=Name
Rs("Url")=Url
Rs("Logo")=Request.Form("Logo")
Rs("Intro")=HTMLEncode(left(Request.Form("Intro"),200))
Rs("Review")=1
Rs.update
Rs.close
Link
end sub

AdminBottom%>