forummanage.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<%
top "版块管理",true
ChkUser
ForumID=ChkNumeric(Request("Fid"))
ForumData=GetForumData(ForumID)
Moderated=ForumData(3)
%>
<!-- #include file="inc/ForumPermissions.asp" -->
<%if PermissionsManage=0 then Error 0,""

select case Request("menu")
case ""
Error2("请选择您要操作的项目")

case "Fix"
UpForumData(ForumID)
Error2("修复论坛统计数据成功")

case "ForumDataUp"
ForumName=HTMLEncode(Request.Form("ForumName"))
Categories=HTMLEncode(Request.Form("Categories"))
ForumIcon=HTMLEncode(Request.Form("ForumIcon"))
Moderated=HTMLEncode(Request.Form("Moderated"))
ForumIntro=HTMLEncode(Request.Form("ForumIntro"))
ForumRules=HTMLEncode(Request.Form("ForumRules"))
if ForumName="" then ErrMsg="<li>请输入版块名称</li>"
if Len(ForumName)>30 then  ErrMsg=ErrMsg&"<li>版块名称应小于30字符</li>"
if Len(ForumIntro)>255 then  ErrMsg=ErrMsg&"<li>版块简介应小于255字符</li>"
master=split(Moderated,"|")
for i = 0 to UBound(master)
if Conn.Execute("select id from [WxUsers] where UserName='"&master(i)&"'" ).Eof and master(i)<>"" Then ErrMsg=ErrMsg&"<li>用户 "&master(i)&" 不存在</li>"
next
if ErrMsg<>"" Then Error 3,ErrMsg
sql="select * from [WxForums] where id="&ForumID&""
Rs.Open sql,Conn,1,3
Rs("ForumName")=ForumName
if BestRole=1 then Rs("Moderated")=Moderated
Rs("Categories")=Categories
Rs("ForumIntro")=ForumIntro
Rs("ForumRules")=ForumRules
Rs.update
Rs.close
Log("更新版块（ID:"&ForumID&"）信息")
ForumCache(ForumID)
Succ "更新版块","<li><a href=Forums.asp?Fid="&ForumID&">返回版块</a></li>","Forums.asp?Fid="&ForumID

case "ForumData"
sql="select * from [WxForums] where id="&ForumID&""
Set Rs=Conn.Execute(sql)
ForumIntro=Replace(""&Rs("ForumIntro")&"","<br />",vbCrlf)
ForumRules=Replace(""&Rs("ForumRules")&"","<br />",vbCrlf)
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <%ForumTree(Rs("ParentID"))%><%=ForumTreeList%> <a href="Forums.asp?Fid=<%=ForumID%>"><%=Rs("ForumName")%></a> → 版块管理</div>
<div class="cb dt">
<div id="sidebar" class="tb fl w2">
<div id="tt">版块信息</div>
<div class="tc">今日帖：<%=Rs("ForumToday")%></div>
<div class="tc">主题数：<%=Rs("ForumThreads")%></div>
<div class="tc">帖子数：<%=Rs("ForumPosts")%></div>
<div id="tt">管理选项</div>
<div class="tc"><a href="Moderation.asp?ForumID=<%=ForumID%>&checkbox=1">批量管理帖子</a></div>
<div class="tc"><a href="Moderation.asp?menu=Censorship&ForumID=<%=ForumID%>&checkbox=1">主题审查</a></div>
<div class="tc"><a href="Moderation.asp?menu=Recycle&ForumID=<%=ForumID%>&checkbox=1">回 收 站</a></div>
<div class="tc"><a href="ForumManage.asp?menu=Fix&Fid=<%=ForumID%>">修复论坛统计数据</a></div>
</div>
<div id="mainarea" class="tb fl">
<form method="post" name="form" action="?Fid=<%=ForumID%>">
<input type="hidden" name="menu" value="ForumDataUp" />
<div id="tt">版块资料</div>
<div class="tc b cb">
<div class="fl r w2 si"><b>版块名称</b></div>
<div class="fl si"><input type="text" name="ForumName" size="30" maxlength="12" value="<%=Rs("ForumName")%>" /></div>
</div>
<%if BestRole=1 then%>
<div class="tc b cb">
<div class="fl r w2 i"><b>版主</b><br />多版主请用“|”分隔</div>
<div class="fl i"><input size="30" name="Moderated" value="<%=Rs("Moderated")%>" /></div>
</div>
<%end if%>
<div class="tc b cb">
<div class="fl r w2 i"><b>帖子分类</b><br />添加请用“|”分隔</div>
<div class="fl i"><input size="30" name="Categories" value="<%=Rs("Categories")%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 t"><b>版块简介</b></div>
<div class="fl t"><textarea name="ForumIntro" rows="1" cols="1"><%=ForumIntro%></textarea></div>
</div>
<div class="tc b cb">
<div class="fl r w2 t"><b>版块导读</b></div>
<div class="fl t"><textarea name="ForumRules" rows="4" cols="50"><%=Replace(ForumRules,"<br&#32;/>",chr(10))%></textarea></div>
</div>
<div class="tc cb ac"><input type="submit" id="submit" value="更 新" /></div>
</div>
</form>
</div>
<%
Rs.close
HtmlEnd
end select
%>