admin_forum.asp

闻名一时的bbsxp超快论坛系统现在放出最新版2008版本给希望装论坛的朋友借鉴安装调试

		<td align=right><a href="?menu=TreeView" class="CommonTextButton">切换到树型模式</a></td>
	</tr>
</table>
<%
End Sub



Sub AddGroupUp
	GroupName=HTMLEncode(Request("GroupName"))
	SortOrder=RequestInt("SortOrder")
	GroupDescription=BodyEncode(Request.Form("GroupDescription"))
	Moderated=HTMLEncode(Request("Moderated"))
	if GroupName="" then Alert("请输入论坛组名称")

	master=split(Moderated,"|")
	for i = 0 to ubound(master)
		If Execute("Select UserID From ["&TablePrefix&"Users] where UserName='"&master(i)&"'" ).eof and master(i)<>"" Then Alert(""&master(i)&"的用户资料不存在")
	next
	
	sql="Select * from ["&TablePrefix&"Groups] where GroupID="&GroupID&""
	Rs.open sql,conn,1,3
		if Rs.eof then Rs.addnew
		Rs("GroupName")=GroupName
		Rs("SortOrder")=SortOrder
		Rs("GroupDescription")=GroupDescription
		Rs("ForumColumns")=RequestInt("ForumColumns")
		Rs("Moderated")=Moderated
	Rs.update
	Rs.close
	Response.Write("添加/编辑 论坛组成功")
End Sub

Sub ForumAddUp
	
	ParentID=RequestInt("ParentID")
	SortOrder=RequestInt("SortOrder")
	ModerateNewPost=RequestInt("ModerateNewPost")
	ModerateNewThread=RequestInt("ModerateNewThread")
	IsActive=RequestInt("IsActive")
	GroupID=RequestInt("GroupID")

	ForumName=HTMLEncode(Request.Form("ForumName"))
	Moderated=HTMLEncode(Request.Form("Moderated"))
	TotalCategorys=HTMLEncode(Request.Form("TotalCategorys"))
	ForumDescription=HTMLEncode(Request.Form("ForumDescription"))
	ForumRules=HTMLEncode(Request.Form("ForumRules"))
	ForumUrl=HTMLEncode(Request.Form("ForumUrl"))

	if GroupID=0 then Alert("请先建立论坛组才能添加论坛！")
	if ForumName="" then Alert("请输入论坛名称！")

	master=split(Moderated,"|")
	for i = 0 to ubound(master)
		If Execute("Select UserID From ["&TablePrefix&"Users] where UserName='"&master(i)&"'" ).eof and master(i)<>"" Then Alert(""&master(i)&"的用户资料不存在")
	next
	sql="Select * from ["&TablePrefix&"Forums] where ForumID="&ForumID&""
	Response.Write("")
	Rs.Open sql,Conn,1,3
		if Rs.eof then Rs.addNew

		if Rs("ForumID")=ParentID  then ParentID=0

		Rs("ParentID")=ParentID
		Rs("SortOrder")=SortOrder
		Rs("ModerateNewPost")=ModerateNewPost
		Rs("ModerateNewThread")=ModerateNewThread
		Rs("IsActive")=IsActive
		Rs("GroupID")=GroupID
		Rs("ForumName")=ForumName
		Rs("Moderated")=Moderated
		Rs("TotalCategorys")=TotalCategorys
		Rs("ForumDescription")=ForumDescription
		Rs("ForumRules")=ForumRules
		Rs("ForumUrl")=ForumUrl
		Rs("DateCreated")=now()
	Rs.update
	ForumID=Rs("ForumID")
	Rs.close
	if Execute("Select RoleID From ["&TablePrefix&"ForumPermissions] where ForumID="&ForumID&" and RoleID=0").Eof then
		Execute("insert into ["&TablePrefix&"ForumPermissions] (ForumID,PermissionPost,PermissionReply,PermissionEdit,PermissionCreatePoll,PermissionVote,PermissionAttachment) values ('"&ForumID&"','0','0','0','0','0','0')")
	end if

	UpdateForumParentID GroupID,ForumID
	Response.Write("添加/编辑成功")
End Sub

Sub UpdateForumParentID(GroupID,ParentID)
	sql="Select ForumID,GroupID,ParentID from ["&TablePrefix&"Forums] where ParentID="&ForumID&""
	rs.open sql,conn,1,3
	if rs.eof then
		exit sub
	else
	do while not rs.eof
		ParentID=Rs("ForumID")
		rs("GroupID")=GroupID
		rs.update
		rs.movenext
	loop
	end if
	rs.close
	UpdateForumParentID GroupID,ParentID
End Sub

Sub ForumAdd
	IsActive=1
	SortOrder=1
	ParentID=RequestInt("ParentID")
	if ForumID > 0 then
		sql="Select * from ["&TablePrefix&"Forums] where ForumID="&ForumID&""
		Set Rs=Execute(sql)
		if Rs.EOF then Alert("系统不存在该论坛的资料")
			ForumDescription=replace(""&Rs("ForumDescription")&"","<br>",vbCrlf)
			ForumRules=replace(""&Rs("ForumRules")&"","<br>",vbCrlf)
			ForumName=Rs("ForumName")
			SortOrder=Rs("SortOrder")
			ParentID=Rs("ParentID")
			Moderated=Rs("Moderated")
			TotalCategorys=Rs("TotalCategorys")
			ModerateNewPost=Rs("ModerateNewPost")
			ModerateNewThread=Rs("ModerateNewThread")
			IsActive=Rs("IsActive")
			ForumUrl=Rs("ForumUrl")
		Rs.close
	end if
	if GroupID=0 then
		Set Rs=Execute("Select top 1 * from ["&TablePrefix&"Groups] order by GroupID")
		if Rs.EOF then Alert("请先创建论坛组")
		GroupID=Rs("GroupID")
		Rs.close
	end if
%>
<form method="POST" action="?menu=ForumAddUp&ForumID=<%=ForumID%>" name="form">
	<table cellspacing="1" cellpadding="5" width="100%" border="0" class=CommonListArea>
		<tr class=CommonListTitle>
			<td align=center colspan="2">添加/编辑论坛资料</td>
		</tr>
		<tr class="CommonListCell">
			<td width="40%"><b>名称</b><br />版块名称</td>
			<td><input size="30" name="ForumName" value="<%=ForumName%>" /> </td>
		</tr>
		<tr class="CommonListCell">
			<td width="40%"> <b>排序</b><br />
			从小到大排序设置，为“0”则隐藏此论坛</td>
			<td> 
			<input name="SortOrder" value="<%=SortOrder%>"></td>
		</tr>
		<tr class="CommonListCell">
			<td><b>版面链接</b><br />在这里输入一个网址，每当用户点击这个版面时就会链接到那个地址</td>
			<td><input type="text" name="ForumUrl" size="30" value="<%=ForumUrl%>" /></td>
		</tr>
		<tr class="CommonListCell">
			<td><b>论坛组</b><br />选择该论坛的论坛组</td>
			<td>
				<select name="GroupID" onchange="Ajax_CallBack(false,'ParentForum','loading.asp?menu=ForumList&GroupID='+this.options[this.selectedIndex].value)">


<%
	sql="Select * from ["&TablePrefix&"Groups] order by GroupID"
	Rs.open sql,conn,1
		do while not Rs.eof
			if Rs("GroupID")=GroupID then
				response.write "<option value="&Rs("GroupID")&" selected>"&rs("GroupName")&"</option>"
			else
				response.write "<option value="&Rs("GroupID")&">"&rs("GroupName")&"</option>"
			end if
		Rs.movenext
		loop
	Rs.close
	ForumList GroupID,0,ParentID
%>
				</select>
			</td>
		</tr>
		<tr class="CommonListCell">
			<td><b>父版块</b><br />选择该论坛的父版块</td>
			<td>
				<span id=ParentForum>
				<select name="ParentID" id="ParentID">
					<option value="0">--</option>
					<%=ForumsList%>
				</select></span>
			</td>
		</tr>
		<tr class="CommonListCell">
			<td><b>论坛版主</b><br />多版主添加请用“|”分隔，如：yuzi|裕裕 </td>
			<td><input size="40" name="Moderated" value="<%=Moderated%>" /> </td>
		</tr>
		<tr class="CommonListCell">
			<td><b>帖子类别</b><br />添加请用“|”分隔，如：原创|转帖</td>
			<td align="Left" valign="middle"><input size="40" name="TotalCategorys" value="<%=TotalCategorys%>" /></td>
		</tr>
		<tr class="CommonListCell">
			<td valign="top"><b>描述</b><br />简单描述一下该版，可以使用BBCode语法</td>
			<td><textarea rows="5" name="ForumDescription" cols="50"><%=ForumDescription%></textarea></td>
		</tr>
		<tr class="CommonListCell">
			<td valign="top"><b>规则与导读</b><br />简单描述一下该版的规则与导读，可以使用BBCode语法</td>
			<td><textarea rows="5" name="ForumRules" cols="50"><%=ForumRules%></textarea></td>
		</tr>
		<tr class="CommonListCell">
			<td><b>启用这个论坛</b><br />禁用此论坛后，该论坛将无法访问</td>
			<td><input type="radio" <%if IsActive=1 then%>checked<%end if%> value="1" name="IsActive" />是 <input type="radio" <%if IsActive=0 then%>checked<%end if%> value="0" name="IsActive" />否</td>
		</tr>
		<tr class="CommonListCell">
			<td><b>主题需要审批</b><br />启用该功能后，非信任用户该版的新主题需要审批通过了才会显示出来</td>
			<td><input type="radio" <%if ModerateNewThread=1 then%>checked<%end if%> value="1" name="ModerateNewThread" />是 <input type="radio" <%if ModerateNewThread=0 then%>checked<%end if%> value="0" name="ModerateNewThread" />否</td>
		</tr>
		<tr class="CommonListCell">
			<td><b>帖子需要审批</b><br />启用该功能后，非信任用户该版的新帖子需要审批通过了才会显示出来</td>
			<td><input type="radio" <%if ModerateNewPost=1 then%>checked<%end if%> value="1" name="ModerateNewPost" />是 <input type="radio" <%if ModerateNewPost=0 then%>checked<%end if%> value="0" name="ModerateNewPost" />否</td>
		</tr>
		<tr class="CommonListCell">
			<td align="center" colspan="2"><input type="submit" value=" 保存 " /></td>
		</tr>
	</table>
</form>
<%	if ForumID<>0 then%>
<table cellspacing="1" cellpadding="5" width="100%" border="0" class=CommonListArea>
	<tr class=CommonListTitle>
		<td>版块权限</td>
		<td align="center" width="8%">浏览</td>
		<td align="center" width="8%">阅读</td>
		<td align="center" width="8%">发帖</td>
		<td align="center" width="8%">回复</td>
		<td align="center" width="8%">编辑</td>
		<td align="center" width="8%">删除</td>
		<td align="center" width="8%">发起投票</td>
		<td align="center" width="8%">投票</td>
		<td align="center" width="8%">附件</td>
		<td align="center" width="8%">管理</td>
		<td align="center" width="8%">动作</td>
	</tr>
<form method="POST" action="?menu=RoleAdd&ForumID=<%=ForumID%>" name="form">
	<tr class="CommonListCell">
		<td>
			<select name="RoleID">
<%
		sql="Select * from ["&TablePrefix&"Roles] order by RoleID"
		Set Rs=Execute(sql)
			Do While Not Rs.EOF
				Response.write("<option value='"&Rs("RoleID")&"'>"&Rs("Name")&"</option>")	
				Rs.MoveNext
			loop
		Rs.Close
%>	
			</select>
		</td>
		<td colspan="10">操作提示：您可以点击“角色名称”链接来设置该角色在该版块的权限</td>
		<td align="center"><input type="submit" value="增加" /></td>
	</tr>
</form>
<%
		sql="Select * from ["&TablePrefix&"ForumPermissions] where ForumID="&ForumID&" order by RoleID"
		Set Rs=Execute(sql)
			Do While Not Rs.EOF		
%>
	<tr class="CommonListCell">
		<td><a href="?menu=ViewForumPermissions&ForumID=<%=ForumID%>&RoleID=<%=Rs("RoleID")%>"><%=Execute("Select Name From ["&TablePrefix&"Roles] where RoleID="&Rs("RoleID")&"")(0)%></a></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionView")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionRead")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionPost")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionReply")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionEdit")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionDelete")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionCreatePoll")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionVote")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionAttachment")%>.gif" /></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionManage")%>.gif" /></td>
		<td align="center"><input type="button" value="删除" onclick="document.location.href='?menu=DelPermissions&ForumID=<%=ForumID%>&RoleID=<%=RS("RoleID")%>'" /></td>
	</tr>
<%
				Rs.MoveNext
			loop
		Rs.Close
%>
</table>
<%
	end if
End Sub