admin_forum.asp

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

<!-- #include file="Setup.asp" -->
<!-- #include file="../wolib/function.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<%
if RequestCookies("Userpass")="" or RequestCookies("Userpass")<>session("pass") then Response.Write ("<script>top.location.href='login.asp';</script>")
if UserRoleID <> 1 then Alert("您没有权限进入后台")
UserName=HTMLEncode(Request("UserName"))
Posts=HTMLEncode(Request("Posts"))
RoleID=RequestInt("RoleID")
ForumID=RequestInt("ForumID")
GroupID=RequestInt("GroupID")
TimeLimit=RequestInt("TimeLimit")

ForumIDList=""
select case Request("menu")
	case ""
		Alert("请选择您要操作的项目")
	case "ApplyManage"
		ApplyManage
	case "bbsManage"
		bbsManage
	case "ViewForumPermissions"
		ViewForumPermissions
	case "DelPermissions"
		Conn.execute("Delete from [Wo_ForumPermissions] where ForumID="&ForumID&" and RoleID="&RoleID&"")
		response.redirect "?menu=ForumAdd&ForumID="&ForumID&""
	case "RoleAdd"
		if Conn.Execute("Select RoleID From [Wo_ForumPermissions] where ForumID="&ForumID&" and RoleID="&RoleID&"" ).Eof then
			Conn.Execute("insert into [Wo_ForumPermissions] (ForumID,RoleID) values ('"&ForumID&"','"&RoleID&"')")
		end if
		response.redirect "?menu=ForumAdd&ForumID="&ForumID&""
	case "ForumPermissionsUP"

		Rs.Open "[Wo_ForumPermissions] where ForumID="&ForumID&" and RoleID="&RoleID&"",Conn,1,3
			for each ho in Request.Form
				Rs(ho)=Request(ho)
			next
		Rs.update
		Rs.close
		response.redirect "?menu=ForumAdd&ForumID="&ForumID&""

	case "ManageGroups"
		ManageGroups


	case "AddGroup"
		AddGroup
	case "AddGroupUp"
		AddGroupUp
	case "GroupManageDel"
		Conn.execute("Delete from [Wo_Groups] where GroupID="&GroupID&"")
		Alert("已经将该群组的所有数据删除了！")
	case "ForumAdd"
		ForumAdd
	case "ForumAddUp"
		ForumAddUp
	case "upSiteSettings"
		upSiteSettings
	case "upSiteSettingsok"
		upSiteSettingsok
	case "bbsManageDel"
		Conn.execute("Delete from [Wo_Forums] where ForumID="&ForumID&"")				'只删除该群组，下属群组仍在
		Alert("已经将该群组的所有数据删除了！")
	case "DelThreads"
		if ForumID>0 then ForumIDList="and ForumID="&ForumID&""
		Conn.execute("Delete from [Wo_Threads] where LastViewedDate<"&SqlNowString&"-"&TimeLimit&" "&ForumIDList&"")
		Alert("已经将"&TimeLimit&"天没有人查看过的主题删除了！")
	case "DelUserTopicok"
		if UserName="" then Alert("您没有输入窝友名！")
		if ForumID>0 then ForumIDList=" and ForumID="&ForumID&""
		Conn.execute("Delete from [Wo_Threads] where PostAuthor='"&UserName&"'"&ForumIDList&"")
		Alert("已经将"&UserName&"发表的主题删除了！")
	case "DelUserPost"
		if UserName="" then Alert("您没有输入窝友名！")
		Conn.execute("Delete from ["&Posts&"] where PostAuthor='"&UserName&"' and ParentID>0")
		Alert("已经将 "&UserName&" 发表的回复从 ["&Posts&"] 表中删除了！")
		
	case "DellikeTopicok"
		Topic=HTMLEncode(Request("Topic"))
		if Topic="" then Alert("您没有输入字符！")
		if ForumID>0 then ForumIDList="and ForumID="&ForumID&""
		Conn.execute("Delete from [Wo_Threads] where Topic like '%"&Topic&"%' "&ForumIDList&" ")
		Alert("已经将标题里包含有 "&Topic&" 的主题全部删除了！")
		
	case "DellikeTopicPost"
		Topic=HTMLEncode(Request("Topic"))
		if Topic="" then Alert("您没有输入字符！")
		Conn.execute("Delete from ["&Posts&"] where Subject like '%"&Topic&"%' and ParentID>0")
		Alert("已经将标题里包含有 "&Topic&" 的回复从 ["&Posts&"] 表中删除了！")

	case "uniteok"

		ForumSource=RequestInt("ForumSource")
		ForumTarget=RequestInt("ForumTarget")
		if ForumSource=0 or ForumTarget=0 then Alert("该操作不能选择群组！")
		if ForumSource = ForumTarget then Alert("不能选择相同群组！")
		if UserName<>"" then UserNamelist="and PostAuthor='"&UserName&"'"
		Conn.execute("update [Wo_Threads] set ForumID="&ForumTarget&" where ForumID="&ForumSource&" and lasttime<"&SqlNowString&"-"&TimeLimit&" "&UserNamelist&"")
		Alert("移动群组资料成功！")

	case "Delapplication"
		Application.contents.ReMoveAll()
		Alert("已经清除服务器上所有的application缓存！")
	case "TreeView"
		FroumTreeView
end select
Sub ApplyManage
%>
<table cellspacing="1" cellpadding="1" width="100%" border="0" align="center">
	<tr>
		<td align=right>
			<select name=Groups onchange="window.location='?menu=ApplyManage&GroupID='+this.options[this.selectedIndex].value">
			<option value="">所有的群组</option>
<%
	sql="select * from [Wo_Groups] order by GroupID desc"
	Set Rs=Conn.Execute(sql)
		Do While Not Rs.EOF
			selec=""
			if Rs("GroupID")=GroupID then selec="selected"
			Response.Write("<option value='"&Rs("GroupID")&"'"&selec&">"&Rs("GroupName")&"</option>")
			Rs.MoveNext
		loop
	Rs.Close
%>
			</select>
		</td>
	</tr>
</table>
<table cellspacing="1" width="100%" border="0" id=CommonListArea>
	<tr id=CommonListTitle3>
		<td align="center"><a href="?menu=ApplyManage&fashion=ForumID">ID</a></td>
		<td width="20%" align="center"><a href="?menu=ApplyManage&fashion=ForumName">群组</a></td>
		<td align="center"><a href="?menu=ApplyManage&fashion=TodayPosts">今日</a></td>
		<td align="center"><a href="?menu=ApplyManage&fashion=TotalThreads">主题</a></td>
		<td align="center"><a href="?menu=ApplyManage&fashion=TotalPosts">主题</a></td>
		<td align="center"><a href="?menu=ApplyManage&fashion=Moderated">组长</a></td>
		<td align="center"><a href="?menu=ApplyManage&fashion=IsActive">已启用</a></td>
		<td align="center" width="20%">操作</td>
	</tr>
<%
	fashion=HTMLEncode(Request("fashion"))
	if fashion="" then fashion="TotalPosts"
	
	if GroupID>0 then GroupSql=" where GroupID="&GroupID&""
	sql="select * from [Wo_Forums] "&GroupSql&" order by "&fashion&" Desc"
	
	Rs.Open sql,Conn,1
	PageSetup=20 '设定每页的显示数量
	Rs.Pagesize=PageSetup
	TotalPage=Rs.Pagecount  '总页数
	PageCount = RequestInt("PageIndex")
	if PageCount <1 then PageCount = 1
	if PageCount > TotalPage then PageCount = TotalPage
	if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数
	i=0
	Do While Not Rs.EOF and i<PageSetup
		i=i+1
%>
	<tr id=CommonListCell>
		<td align="center"><%=Rs("ForumID")%></td>
		<td><a href="?menu=ForumAdd&ForumID=<%=Rs("ForumID")%>&GroupID=<%=Rs("GroupID")%>"><%=Rs("ForumName")%></a></td>
		<td align="center"><b><font color="red"><%=Rs("TodayPosts")%></font></b></td>
		<td align="center"><b><font color="red"><%=Rs("TotalThreads")%></font></b></td>
		<td align="center"><b><font color="red"><%=Rs("TotalPosts")%></font></b></td>
		<td align="center" width="200"><%=Rs("Moderated")%></td>
		<td align="center"><%if Rs("IsActive")=1 then%><font color="#FF0000"><img src="../images/ForumPermissions1.gif"></font><%else%><img src="../images/ForumPermissions0.gif"><%end if%></td>
		<td align="center"><a href="?menu=ForumAdd&ForumID=<%=Rs("ForumID")%>&GroupID=<%=Rs("GroupID")%>" class="CommonTextButton">编辑</a> <a target="_blank" href="../ShowForum.asp?ForumID=<%=Rs("ForumID")%>" class="CommonTextButton">浏览</a> <a onclick="return window.confirm('您确定要删除该群组的所有资料?')" href="?menu=bbsManageDel&ForumID=<%=Rs("ForumID")%>" class="CommonTextButton">删除</a> </td>
<%
		Rs.MoveNext
	loop
	Rs.Close
%>
	</tr>
</table>
<table border="0" width="100%" align="center">
	<tr>
		<td><%ShowPage()%></td>
		<td align=right><a href="?menu=ForumAdd&GroupID=<%=GroupID%>" class="CommonTextButton">新建群组</a> <a href="?menu=TreeView" class="CommonTextButton">切换到树型模式</a></td>
	</tr>
</table>
<%
End Sub

Sub AddGroup
	SortOrder=1
	if GroupID>0 then
		sql="select * from [Wo_Groups] where GroupID="&GroupID&""
		Set Rs=Conn.Execute(sql)
		if Rs.EOF then Alert("系统不存在该群组的资料")
			GroupName=Rs("GroupName")
			GroupDescription=Rs("GroupDescription")
			SortOrder=Rs("SortOrder")
		Rs.close
	end if
%>
<table cellspacing="1" width="90%" border="0" id=CommonListArea align="center">
<form name="form" method="POST" action="?menu=AddGroupUp&GroupID=<%=GroupID%>">
	<tr id=CommonListTitle3>
		<td align=center colspan="2">新建/编辑群组</td>
	</tr>
	<tr id=CommonListCell>
		<td valign="top"><b>名称</b><br>群组名称</td>
		<td>
		<input name="GroupName" value="<%=GroupName%>">
		</td>
	</tr>
	<tr id=CommonListCell>
		<td valign="top"><b>排序</b><br>从小到大排序设置，为“0”则隐藏此群组</td>
		<td>
		<input name="SortOrder" value="<%=SortOrder%>"></td>
	</tr>
	<tr id=CommonListCell>
		<td valign="top"><b>群组描述</b><br>
		简单描述一下此群组</td>
		<td><textarea cols=54 rows=3 name=GroupDescription><%=GroupDescription%></textarea></td>
	</tr>
	<tr id=CommonListCell>
		<td colspan="2" align="center">
			<input type="submit" value=" 保存 ">
		</td>
	</tr>
</form>
</table>
<%
End Sub


Sub ManageGroups
%>
<table cellspacing="1" cellpadding="1" width="99%" border="0" align="center"><tr><td align=right><a href="?menu=AddGroup" class="CommonTextButton">新建群组</a></td></tr></table>
<table cellspacing="1" width="99%" border="0" id=CommonListArea align="center">
<tr id=CommonListTitle3>
	<td width="20%">名称</td>
	<td align=center>描述</td>
	<td align="center" width="25%">动作</td>
</tr>
<%
sql="select * from [Wo_Groups] order by SortOrder"
Rs.open sql,conn,1
do while not rs.eof
%>
<tr id=CommonListCell>
	<td><a href="?menu=AddGroup&GroupID=<%=rs("GroupID")%>"><%=Rs("GroupName")%></a></td>
	<td><%=Rs("GroupDescription")%></td>
	<td align=center><a href="?menu=AddGroup&GroupID=<%=rs("GroupID")%>" class="CommonTextButton">编辑</a> 
	<a href="?menu=ApplyManage&GroupID=<%=Rs("GroupID")%>" class="CommonTextButton">管理</a> 
	<a onclick="return window.confirm('您确定要删除该群组内的所有群组?')" href="?menu=GroupManageDel&GroupID=<%=rs("GroupID")%>" class="CommonTextButton">删除</a></td>

</tr>
<%
	Rs.movenext
loop
%>
</table>
<table border="0" width="99%" align="center">
	<tr>
		<td align=right><a href="?menu=TreeView" class="CommonTextButton">切换到树型模式</a></td>
	</tr>
</table>
<%
End Sub