⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_forum.asp

📁 闻名一时的bbsxp超快论坛系统现在放出最新版2008版本给希望装论坛的朋友借鉴安装调试
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!-- #include file="Setup.asp" -->
<%
AdminTop
if RequestCookies("UserPassword")="" or RequestCookies("UserPassword")<>session("pass") then response.redirect "Admin_Default.asp"
Log("")
UserName=HTMLEncode(Request("UserName"))
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"
		Execute("Delete from ["&TablePrefix&"ForumPermissions] where ForumID="&ForumID&" and RoleID="&RoleID&"")
		response.redirect "?menu=ForumAdd&ForumID="&ForumID&""
	case "RoleAdd"
		if Execute("Select RoleID From ["&TablePrefix&"ForumPermissions] where ForumID="&ForumID&" and RoleID="&RoleID&"" ).Eof then
			if RoleID=0 then
				Execute("insert into ["&TablePrefix&"ForumPermissions] (ForumID,PermissionPost,PermissionReply,PermissionEdit,PermissionCreatePoll,PermissionVote,PermissionAttachment) values ('"&ForumID&"','0','0','0','0','0','0')")
			else
				Execute("insert into ["&TablePrefix&"ForumPermissions] (ForumID,RoleID) values ('"&ForumID&"','"&RoleID&"')")
			end if
		end if
		response.redirect "?menu=ForumAdd&ForumID="&ForumID&""
	case "ForumPermissionsUP"

		Rs.Open "["&TablePrefix&"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"
		Execute("Delete from ["&TablePrefix&"Groups] where GroupID="&GroupID&"")
		Alert("已经将该论坛组的所有数据删除了！")
	case "ForumAdd"
		ForumAdd
	case "ForumAddUp"
		ForumAddUp
	case "bbsManageDel"
		Execute("Delete from ["&TablePrefix&"Forums] where ForumID="&ForumID&"")				'只删除该论坛，下属论坛仍在
		Alert("已经将该论坛的所有数据删除了！")
	case "DelThreads"
		if ForumID>0 then ForumIDList="and ForumID="&ForumID&""
		Execute("Delete from ["&TablePrefix&"Threads] where DateDiff("&SqlChar&"d"&SqlChar&",LastViewedDate,"&SqlNowString&") > "&TimeLimit&" "&ForumIDList&"")
		Alert("已经将"&TimeLimit&"天没有人查看过的主题删除了！")
	case "DelUserTopicok"
		if UserName="" then Alert("您没有输入用户名！")
		if ForumID>0 then ForumIDList=" and ForumID="&ForumID&""
		Execute("Delete from ["&TablePrefix&"Threads] where PostAuthor='"&UserName&"'"&ForumIDList&"")
		Alert("已经将"&UserName&"发表的主题删除了！")
	case "DelUserPost"
		if UserName="" then Alert("您没有输入用户名！")
		Execute("Delete from ["&TablePrefix&"Posts] where PostAuthor='"&UserName&"' and ParentID>0")
		Alert("已经将 "&UserName&" 发表的回帖删除了！")
		
	case "ClearRecyclePost"
		TimeLimit=RequestInt("TimeLimit")
		if TimeLimit < 1 then error("只能清空24小时之前的回帖")
		Execute("Delete from ["&TablePrefix&"Posts] where Visible=2 and DateDiff("&SqlChar&"d"&SqlChar&",PostDate,"&SqlNowString&") > "&TimeLimit&"")
		Alert("已经将 "&TimeLimit&" 天以前删除的回帖清空了！")
		
	case "DellikeTopicok"
		Topic=HTMLEncode(Request("Topic"))
		if Topic="" then Alert("您没有输入字符！")
		if ForumID>0 then ForumIDList="and ForumID="&ForumID&""
		Execute("Delete from ["&TablePrefix&"Threads] where Topic like '%"&Topic&"%' "&ForumIDList&" ")
		Alert("已经将标题里包含有 "&Topic&" 的帖子全部删除了！")
		
	case "DellikeTopicPost"
		Topic=HTMLEncode(Request("Topic"))
		if Topic="" then Alert("您没有输入字符！")
		Execute("Delete from ["&TablePrefix&"Posts] where Subject like '%"&Topic&"%' and ParentID>0")
		Alert("已经将标题里包含有 "&Topic&" 的回帖删除了！")

	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&"'"
		Execute("update ["&TablePrefix&"Threads] Set ForumID="&ForumTarget&" where ForumID="&ForumSource&" and DateDiff("&SqlChar&"d"&SqlChar&",lasttime,"&SqlNowString&") > "&TimeLimit&" "&UserNamelist&"")
		Alert("移动论坛资料成功！")

	case "TreeView"
		FroumTreeView



	case "Tags"
		ShowTags
	case "EditTagsUp"
		for each ho in Request.Form("TagID")
			Execute("update ["&TablePrefix&"PostTags] set TagName='"&HTMLEncode(Request.Form("TagName"&ho))&"',IsEnabled='"&Request.Form("IsEnabled"&ho)&"' where TagID="&ho&"")
		next
		response.write "标签更新成功<br><br><a href=javascript:history.back()>返 回</a>"
	case "DelTag"
		TagID=RequestInt("TagID")
		Execute("delete from ["&TablePrefix&"PostTags] where TagID="&TagID&"")
		response.write "标签删除成功<br><br><a href=javascript:history.back()>返 回</a>"
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 ["&TablePrefix&"Groups] order by GroupID desc"
	Set Rs=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" cellpadding="5" width="100%" border="0" class=CommonListArea>
	<tr class=CommonListTitle>
		<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 ["&TablePrefix&"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 class="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 ["&TablePrefix&"Groups] where GroupID="&GroupID&""
		Set Rs=Execute(sql)
		if Rs.EOF then Alert("系统不存在该组论坛组的资料")
			GroupName=Rs("GroupName")
			GroupDescription=Rs("GroupDescription")
			SortOrder=Rs("SortOrder")
			ForumColumns=Rs("ForumColumns")
			Moderated=Rs("Moderated")
		Rs.close
	end if
%>
<table cellspacing="1" cellpadding="5" width="90%" border="0" class=CommonListArea align="center">
<form name="form" method="POST" action="?menu=AddGroupUp&GroupID=<%=GroupID%>">
	<tr class=CommonListTitle>
		<td align=center colspan="2">新建/编辑论坛组</td>
	</tr>
	<tr class="CommonListCell">
		<td valign="top"><b>名称</b><br />论坛组名称</td>
		<td><input name="GroupName" value="<%=GroupName%>" /></td>
	</tr>
	<tr class="CommonListCell">
		<td valign="top"><b>排序</b><br />从小到大排序设置，为“0”则隐藏此论坛组</td>
		<td><input name="SortOrder" value="<%=SortOrder%>" /></td>
	</tr>
	<tr class="CommonListCell">
		<td><b>论坛横排</b><br />设置论坛组下的所有论坛横排时每行版块数量，如果设置为 0，则按正常方式排列</td>
		<td><input type="text" name="ForumColumns" value="<%=ForumColumns%>" /></td>
	</tr>
	<tr class="CommonListCell">
		<td><b>论坛组版主</b><br />用于管理论坛组下的所有论坛。多版主添加请用“|”分隔，如：yuzi|裕裕</td>
		<td><input type="text" name="Moderated" value="<%=Moderated%>" /></td>
	</tr>
	<tr class="CommonListCell">
		<td valign="top"><b>论坛组描述</b><br />简单描述一下此论坛组</td>
		<td><textarea cols=54 rows=3 name=GroupDescription><%=GroupDescription%></textarea></td>
	</tr>
	<tr class="CommonListCell">
		<td colspan="2" align="center"><input type="submit" value=" 保存 " /></td>
	</tr>
</form>
</table>
<%
End Sub


Sub ManageGroups
%>
<table cellspacing="1" cellpadding="1" width="90%" border="0" align="center"><tr><td align=right><a href="?menu=AddGroup" class="CommonTextButton">新建论坛组</a></td></tr></table>
<table cellspacing="1" cellpadding="5" width="90%" border="0" class=CommonListArea align="center">
<tr class=CommonListTitle>
	<td width="20%">名称</td>
	<td align=center>描述</td>
	<td align="center" width="25%">动作</td>
</tr>
<%
sql="Select * from ["&TablePrefix&"Groups] order by SortOrder"
Rs.open sql,conn,1
do while not rs.eof
%>
<tr class="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="90%" align="center">
	<tr>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -