admin_forum.asp

秘密网源代码 传闻拉了 100W风投

Sub AddGroupUp

GroupName=HTMLEncode(Request("GroupName"))
SortOrder=RequestInt("SortOrder")
GroupDescription=BodyEncode(Request.Form("GroupDescription"))

	if GroupName="" then Alert("请输入群组名称")
	
	sql="select * from Wo_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.update
	Rs.close
	Response.Write("添加/编辑 群组成功")
End Sub

Sub ForumAddUp
	
	ParentID=0
	SortOrder=RequestInt("SortOrder")
	IsModerated=RequestInt("IsModerated")
	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 request("Forumlogo")<>"" then
	Forumlogo=request("Forumlogo")
	else
	forumlogo="images/group_logo001.jpg"
	end if

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

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

		ParentID=0

		Rs("ParentID")=ParentID
		Rs("SortOrder")=SortOrder
		Rs("IsModerated")=IsModerated
		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("ForumLogo")=Forumlogo
	Rs.update
	ForumID=Rs("ForumID")
	Rs.close
	if Conn.Execute("Select RoleID From [Wo_ForumPermissions] where ForumID="&ForumID&" and RoleID=0").Eof then
		Conn.Execute("insert into [Wo_ForumPermissions] (ForumID) values ('"&ForumID&"')")
	end if

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

Sub UpdateForumParentID(GroupID,ParentID)
	sql="select ForumID,GroupID,ParentID from [Wo_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 [Wo_Forums] where ForumID="&ForumID&""
		Set Rs=Conn.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")
			IsModerated=Rs("IsModerated")
			IsActive=Rs("IsActive")
			ForumUrl=Rs("ForumUrl")
			ForumLogo=Rs("ForumLogo")
		Rs.close
	end if
%>
<form method="POST" action="?menu=ForumAddUp&ForumID=<%=ForumID%>" name="form">
	<table cellspacing="1" width="99%" border="0" id=CommonListArea>
		<tr id=CommonListTitle3>
			<td align=center colspan="2">添加/编辑群组资料</td>
		</tr>
		<tr id=CommonListCell>
			<td width="40%"><b>名称</b><br>版块名称</td>
			<td><input size="30" name="ForumName" value="<%=ForumName%>"> </td>
		</tr>
		<tr id=CommonListCell>
			<td width="40%"> <b>排序</b><br>
			从小到大排序设置，为“0”则隐藏此群组</td>
			<td> 
			<input name="SortOrder" value="<%=SortOrder%>"></td>
		</tr>
		<tr id=CommonListCell>
			<td><b>版面链接</b><br>在这里输入一个网址，每当窝友点击这个版面时就会链接到那个地址</td>
			<td><input type="text" name="ForumUrl" size="30" value="<%=ForumUrl%>"></td>
		</tr>
		<tr id=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 [Wo_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 id=CommonListCell>
			<td><b>群组组长<br></b>多组长添加请用“|”分隔，如：wodig|乌托邦 </td>
			<td><input size="40" name="Moderated" value="<%=Moderated%>"> </td>
		</tr>
		<tr id=CommonListCell>
			<td><b>主题类别</b><br>添加请用“|”分隔，如：原创|转载</td>
			<td align="Left" valign="middle"><input size="40" name="TotalCategorys" value="<%=TotalCategorys%>"></td>
		</tr>
		<tr id=CommonListCell>
			<td><b>LOGO图片</b><br>有就加，没有就不要加了，有默认图片LOGO,可自己修改</td>
			<td align="Left" valign="middle"><input size="40" name="Forumlogo" value="<%=Forumlogo%>">
			</td>
			</tr>
		<tr id=CommonListCell>
			<td valign="top"><b>描述</b><br>简单描述一下该版，可以使用YBB语法</td>
			<td><textarea rows="5" name="ForumDescription" cols="50"><%=ForumDescription%></textarea></td>
		
		</tr>
		<tr id=CommonListCell>
			<td valign="top"><b>规则与导读<br></b>简单描述一下该版的规则与导读，可以使用YBB语法</td>
			<td><textarea rows="5" name="ForumRules" cols="50"><%=ForumRules%></textarea></td>
		</tr>
		<tr id=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 id=CommonListCell>
			<td><b>主题需要审批</b><br>启用该功能后，该版的主题需要审批通过了才会显示出来</td>
			<td><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">否</td>
		</tr>
		<tr id=CommonListCell>
			<td align="center" colspan="2"><input type="submit" value=" 保存 "></td>
		</tr>
	</table>
</form>
<%	if ForumID<>0 then%>
<table cellspacing="1" width="100%" border="0" id=CommonListArea>
	<tr id=CommonListTitle3>
		<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 id=CommonListCell>
		<td>
			<select name="RoleID">
<%
		sql="select * from [Wo_Roles] order by RoleID"
		Set Rs=Conn.Execute(sql)
			Do While Not Rs.EOF
				Response.write("<option value='"&Rs("RoleID")&"'>"&Rs("Name")&"</option>")	
				Rs.MoveNext
			loop
		Rs.Close
%>	
			</select>
		</td>
		<td align="center" colspan="10">　</td>
		<td align="center"><input type="submit" value="增加"></td>
	</tr>
</form>
<%
		sql="select * from [Wo_ForumPermissions] where ForumID="&ForumID&" order by RoleID"
		Set Rs=Conn.Execute(sql)
			Do While Not Rs.EOF		
%>
	<tr id=CommonListCell>
		<td><a href="?menu=ViewForumPermissions&ForumID=<%=ForumID%>&RoleID=<%=Rs("RoleID")%>"><%=Conn.Execute("Select Name From [Wo_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

Sub ViewForumPermissions
	sql="select * from [Wo_ForumPermissions] where ForumID="&ForumID&" and RoleID="&RoleID&""
	Set Rs=Conn.Execute(sql)