admin_forum.asp

教师评估系统

master=split(Request("Moderated"),"|")
for i = 0 to UBound(master)
if Conn.Execute("select id from [WxUsers] where UserName='"&HTMLEncode(master(i))&"'" ).Eof and master(i)<>"" Then Error2(""&master(i)&"的用户资料还未注册")
next
sql="select * from [WxForums] where id="&ForumID&""
Rs.Open sql,Conn,1,3
if Rs.Eof then Rs.addNew
if Request("ParentID")<>"" then Rs("ParentID")=ChkNumeric(Request("ParentID"))
if Request("SortNum")<>"" then Rs("SortNum")=Int(Request("SortNum"))
if Request("IsModerated")<>"" then Rs("IsModerated")=Request("IsModerated")
Rs("ForumName")=HTMLEncode(Request("ForumName"))
Rs("Moderated")=Request("Moderated")
Rs("Categories")=Request("Categories")
Rs("ForumIntro")=HTMLEncode(Request.Form("ForumIntro"))
Rs("ForumRules")=HTMLEncode(Request.Form("ForumRules"))
Rs("ForumIcon")=Request("ForumIcon")
Rs.update
ForumID=Rs("ID")
Rs.close
if Conn.Execute("select RoleID from [WxForumPermissions] where ForumID="&ForumID&" and RoleID=0" ).Eof then
Conn.Execute("insert into [WxForumPermissions] (ForumID) values ('"&ForumID&"')")
end if
AdminSucc "添加/编辑版块","?menu=ManageForums"
end sub

sub ForumAdd
ParentID=Request("ParentID")
if ForumID<>0 then
sql="select * from [WxForums] where id="&ForumID&""
Set Rs=Conn.Execute(sql)
if Rs.Eof then Error2("该版块不存在")
ForumIntro=Replace(""&Rs("ForumIntro")&"","<br />",vbCrlf)
ForumRules=Replace(""&Rs("ForumRules")&"","<br />",vbCrlf)
ForumName=Rs("ForumName")
SortNum=Rs("SortNum")
ParentID=Rs("ParentID")
Moderated=Rs("Moderated")
Categories=Rs("Categories")
ForumIcon=Rs("ForumIcon")
IsModerated=Rs("IsModerated")
Rs.close
end if%>
<form method="post" name="form" action="?menu=ForumAddUp&ForumID=<%=ForumID%>">
<div class="tb dt">
<div id="tt">添加/编辑版块资料</div>
<div class="tc b cb">
<div class="fl r si w3"><b>名称</b></div>
<div class="fl si"><input size="30" name="ForumName" value="<%=ForumName%>" />&nbsp;&nbsp;<b>排序</b> <input size="2" name="SortNum" value="<%=SortNum%>" onkeyup="ChkNaN(this)" /> 从小到大排序</div>
</div>
<div class="tc b cb">
<div class="fl r i w3"><b>个性图标(Url)</b><br />版块前显示的个性图标地址</div>
<div class="fl i"><input type="text" name="ForumIcon" size="30" value="<%=Forumicon%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r i w3"><b>父版块</b><br />该版块属于父版块的子版</div>
<div class="fl i"><select name="ParentID"><option value="<%=ParentID%>">默认</option><option value="0">作为分类</option><%BBSList(0)%><%=ForumsList%></select></div>
</div>
<div class="tc b cb">
<div class="fl r i w3"><b>版主</b><br />多版主添加请用“|”分隔</div>
<div class="fl i"><input size="40" name="Moderated" value="<%=Moderated%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r i w3"><b>帖子分类</b><br />添加请用“|”分隔</div>
<div class="fl i"><input size="40" name="Categories" value="<%=Categories%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r t w3"><b>版块简介</b><br />版块的简介，支持<span class="red">YBB语法</span></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 t w3"><b>版块导读</b><br />进入版块会看到该导读内容，支持<span class="red">YBB语法</span></div>
<div class="fl t"><textarea name="ForumRules" rows="1" cols="1"><%=ForumRules%></textarea></div>
</div>
<div class="tc b cb">
<div class="fl r i w3"><b>帖子需要审核</b><br />该版主题是否需要审核后显示</div>
<div class="fl i"><input type="radio" <%if IsModerated=1 then%>checked<%end if%> value="1" name="IsModerated" />是 <input type="radio" <%if IsModerated=0 then%>checked<%end if%> value="0" name="IsModerated" />否</div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="添加/编辑" /></div>
</div>
</form>
<%if ForumID<>0 then%>
<div class="tb dt">
<div id="tt">版块权限</div>
<div class="intro cb">
<div class="fl r w0b">角色</div>
<div class="fl r w0a">浏览</div>
<div class="fl r w0a">阅读</div>
<div class="fl r w0a">发帖</div>
<div class="fl r w0a">回复</div>
<div class="fl r w0a">编辑</div>
<div class="fl r w0a">删除</div>
<div class="fl r w0a">发起投票</div>
<div class="fl r w0a">投票</div>
<div class="fl r w0a">附件</div>
<div class="fl r w0a">管理</div>
<div class="fr">动作</div>
</div>
<form method="post" name="form" action="?menu=RoleAdd&ForumID=<%=ForumID%>">
<div class="tc b cb"><span class="fl"><select name="RoleID"><%
sql="select * from [WxRoles] 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></span>
<span class="fr"><input type="submit" value="增加" /></span>
</div> 
</form><%
sql="select * from [WxForumPermissions] where ForumID="&ForumID&" order by RoleID"
Set Rs=Conn.Execute(sql)
Do While Not Rs.Eof 
%>
<div class="tc b cb">
<div class="fl r w0b ha ac"><a href="?menu=ViewForumPermissions&ForumID=<%=ForumID%>&RoleID=<%=Rs("RoleID")%>"><u><%=Conn.Execute("Select Name From [WxRoles] where id="&Rs("RoleID")&"")(0)%></u></a></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsView")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsRead")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsPost")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsReply")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsEdit")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsDelete")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsCreatePoll")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsVote")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsAttachment")%>.gif" /></div>
<div class="fl r w0a ha ac"><img alt="" src="Images/check<%=Rs("PermissionsManage")%>.gif" /></div>
<div class="fr"><input type="button" value="删除" onclick="document.location.href='?menu=DelPermissions&ForumID=<%=ForumID%>&RoleId=<%=Rs("RoleID")%>'" /></div>
</div>
<%
Rs.MoveNext
loop
Rs.Close
%>
</table>
<%end if%><%
end sub

sub ViewForumPermissions
sql="select * from [WxForumPermissions] where ForumID="&ForumID&" and RoleID="&RoleID&""
Set Rs=Conn.Execute(sql)
%><form method="post" name="form" action="?menu=ForumPermissionsUP&ForumID=<%=ForumID%>&RoleId=<%=RoleId%>">
<div class="tb dt">
<div id="tt">版块权限</div>
<div class="tc b cb">
<div class="fl r si w4"><b>版块名称</b></div>
<div class="fl si"><a href="?menu=ForumAdd&ForumID=<%=ForumID%>"><%=Conn.Execute("select ForumName from [WxForums] where id="&ForumID&"")(0)%></a></div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>角色名称</b></div>
<div class="fl"><a href="Admin_Role.asp?menu=ViewRole&RoleId=<%=RoleId%>"><%=Conn.Execute("select Name from [WxRoles] where id="&RoleID&"")(0)%></a></div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>浏览</b><br />角色里的成员能够浏览帖子列表 </div>
<div class="fl i"><input type="radio" value="1" name="PermissionsView"<%if Rs("PermissionsView")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsView"<%if Rs("PermissionsView")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>阅读</b><br />角色里的成员能够阅读个人的帖子</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsRead"<%if Rs("PermissionsRead")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsRead"<%if Rs("PermissionsRead")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>发帖</b><br />角色里的成员能够在版块上发表新帖</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsPost"<%if Rs("PermissionsPost")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsPost"<%if Rs("PermissionsPost")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>回复</b><br />角色里的成员能够回复帖子</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsReply"<%if Rs("PermissionsReply")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsReply"<%if Rs("PermissionsReply")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>编辑</b><br />角色里的成员能够编辑他们自己的帖子</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsEdit"<%if Rs("PermissionsEdit")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsEdit"<%if Rs("PermissionsEdit")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>删除</b><br />角色里的成员能够删除他们自己的帖子</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsDelete"<%if Rs("PermissionsDelete")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsDelete"<%if Rs("PermissionsDelete")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>发起投票</b><br />角色里的成员能够创建投票的选举</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsCreatePoll"<%if Rs("PermissionsCreatePoll")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsCreatePoll"<%if Rs("PermissionsCreatePoll")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>投票</b><br />角色里的成员能够在已有的选举上投票</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsVote"<%if Rs("PermissionsVote")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsVote"<%if Rs("PermissionsVote")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>附件</b><br />角色里的成员能够添加附件到本版块的帖子中</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsAttachment"<%if Rs("PermissionsAttachment")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsAttachment"<%if Rs("PermissionsAttachment")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<div class="tc b cb">
<div class="fl r i w4"><b>管理</b><br />角色里的成员能够管理本版块</div>
<div class="fl i"><input type="radio" value="1" name="PermissionsManage"<%if Rs("PermissionsManage")=1 then%> checked="checked"<%end if%> />允许 <input type="radio" value="0" name="PermissionsManage"<%if Rs("PermissionsManage")=0 then%> checked="checked"<%end if%> />拒绝</div>
 </div>
<%
saveit
Rs.Close
end sub

sub bbsManage1
BBSList(0)
%>
<div class="tb dt">
<div id="tt">批量删除主题</div>
<form method="post" name="form1" action="Admin_Forum.asp?menu=DelThreads">
<div class="tc b cb">
<div class="fl w6">删除在 <select name="ForumID">
 <option value="">所有版块</option><%=ForumsList%></select> 版块的 <select name="TimeLimit">
 <option value="30">30</option>
 <option value="60">60</option>
 <option value="90" selected="selected">90</option>
 <option value="180">180</option>
 <option value="360">360</option>
 </select> 天没有人查看过的主题</div>
 <div class="fr w3a"><input type="button" value=" 确 定 " onclick="XmlPost('form1','result1')" /><span id="result1"></span></div>
 </div>
 </form>
 <form method="post" name="form2" action="Admin_Forum.asp?menu=DelUserTopicok">
<div class="tc b cb">
<div class="fl w6">删除在 <select name="ForumID">
  <option value="">所有版块</option>
  <%=ForumsList%></select> 版块并由 <input type="text" size="10" name="UserName" /> 发表的所有主题</div>
 <div class="fr w3a"><input type="button" value=" 确 定 " onclick="XmlPost('form2','result2')" /><span id="result2"></span></div>
 </div>
 </form>
 <form method="post" name="form3" action="Admin_Forum.asp?menu=DellikeTopicok">
<div class="tc b cb">
<div class="fl w6">删除在 <select name="ForumID">
  <option value="">所有版块</option>
  <%=ForumsList%></select> 版块且标题中包含 <input type="text" size="10" name="Topic" /> 的所有主题</div>
 <div class="fr w3a"><input type="button" value=" 确 定 " onclick="XmlPost('form3','result3')" /><span id="result3"></span></div>
 </div>
 </form>
<form method="post" name="form4" action="Admin_Forum.asp?menu=DelUserPost">
<div id="tt">批量删除回帖</div>
<div class="tc b cb">
<div class="fl">删除在 <select name="ForumID"><option value="">所有版块</option><%=ForumsList%></select> 版块、存放于 <select name="Posts"><%
set Rs=Conn.openSchema(20)
Do Until Rs.Eof
Tablename=Rs("TABLE_NAME")
if instr(Tablename,"WxPosts")>0 and Rs("TABLE_TYPE")="TABLE" then
%><option value="<%=Tablename%>"><%=Tablename%></option><%
end if
Rs.MoveNext
Loop
%></select> 表，由 <input type="text" size="10" name="UserName" /> 发表的所有回帖</div>
 <div class="fr w3a"><input type="button" value=" 确 定 " onclick="XmlPost('form4','result4')" /><span id="result4"></span></div>
 </div>
</form>
</div>
<%
end sub

sub bbsManage3
BBSList(0)
%>
<form method="post" name="form" action="Admin_Forum.asp?menu=uniteok">
<div class="tb dt">
<div id="tt">批量移动主题</div>
<div class="tc cb">
<div class="fl">将 <input type="text" size="2" name="TimeLimit" value="0" /> 天前 由 <input type="text" size="8" name="UserName" /> 发表 在 <select name="YBBs"><%=ForumsList%></select> 版块的主题 移动到 <select name="hbbs"><%=ForumsList%></select></div>
<div class="fr w2a"><input type="button" value=" 确 定 " onclick="XmlPost('form','result')" /><span id="result"></span></div>
</div>
</div>
</form>
<%
end sub
AdminBottom%>