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

📄 admin_manage.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<%
Dim ii,ID
Dim Admin_Class
Call Master_Us()
Header()
ii=0:ID=Request("id")
Admin_Class=",3,"
Call Master_Se()
team.SaveLog ("快捷管理 [包括：快捷管理，帖子审核] ")
Select Case Request("Action")
	Case "deltopicok"
		Call deltopicok
	Case "delforumok"
		Call delforumok
	Case "delusertopicok"
		Call delusertopicok
	Case "delliketopicok"
		Call delliketopicok
	Case "delretopicok"
		Call delretopicok
	Case "deluserretopicok"
		Call deluserretopicok
	Case "UniForum"
		Call UniForum	'合并版块
	Case "Forumsmerge"
		Call Forumsmerge
	Case "uniteok"
		Call uniteok
	Case "readkey"
		CAll readkey
	Case Else
		Call Main()
End Select

Sub readkey
	SuccessMsg "此功能未开发。"
End Sub

Sub uniteok
	Dim Source,Target,UserTips
	Source = Request.Form("source")
	Target = Request.Form("target")
	If Source="" or Target="" Then Error2 "源论坛或目标论坛不能为空!"
	If CID(Source) = CID(Target) Then Error2 "源论坛或目标论坛不能相同!"
	if Request.Form("postname") <> "" then 
		UserTips =" and UserName='"&HtmlEncode(Trim(Request.Form("postname")))&"'"
	End If
	If IsSqlDataBase=1 Then
		team.Execute( "Update ["&Isforum&"forum] Set Forumid="&Target&" Where Forumid="&Source&" and Datediff(d,Posttime, " & SqlNowString & ") > " & Cid(Request.Form("posttime"))&" "&UserTips&" ")
	Else
		team.Execute( "Update ["&Isforum&"forum] Set Forumid="&Target&" Where Forumid="&Source&" and Datediff('d',Posttime, " & SqlNowString & ") > " & Cid(Request.Form("posttime"))&" "&UserTips&" ")
	End If
	SuccessMsg "论坛移动成功，请等待系统自动返回到 <a href=Admin_Manage.asp>快捷管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Manage.asp> "
End Sub

Sub Forumsmerge
	Dim Source,Target
	Source = Request.Form("source")
	Target = Request.Form("target")
	If Source="" or Target="" Then Error2 "源论坛或目标论坛不能为空!"
	If CID(Source) = CID(Target) Then Error2 "源论坛或目标论坛不能相同!"
	team.execute("Update "&IsForum&"forum Set Forumid="&Target&" Where Forumid="&Source)
	team.execute("Delete from "&IsForum&"Bbsconfig Where id="&Source)
	SuccessMsg "论坛合并成功,源论坛已经被删除，请等待系统自动返回到 <a href=Admin_Manage.asp>快捷管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Manage.asp> "
End Sub

Sub deluserretopicok
	Call Master_Se()
	Dim BbsID,FindBoard,BoardName,Rs
	BbsID = Request.Form("bbsid")
	If Request.Form("postname") = "" Then 
		Error2 "您没有输入用户名。"
	Else
		If ( Not BbsID = "" ) or isNumeric(BbsID) Then
			Set Rs=Team.execute("Select ID From "&Isforum&"Forum Where forumid="& BbsID)
			While Not RS.EOF
				team.Execute( "Delete From ["&Isforum&""&Request.Form("Reforumname")&"] Where UserName = '"&HtmlEncode(Trim(Request.Form("postname")))&"' and Topicid="&RS(0) )
				Rs.MoveNext
			Wend
		Else
			team.Execute( "Delete From ["&Isforum&""&Request.Form("Reforumname")&"] Where UserName = '"&HtmlEncode(Trim(Request.Form("postname")))&"' ")
		End If
		
		SuccessMsg " 已经将回帖表 [ "&Request.Form("Reforumname")&" ] 里面用户"&Request.Form("postname")&" 发表的回帖删除，请等待系统自动返回到 <a href=Admin_Manage.asp>快捷管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Manage.asp> " 
	End If
End Sub

Sub delretopicok
	Call Master_Se()
	Dim BbsID,FindBoard,Rs
	BbsID = Request.Form("bbsid")
	If Request.Form("posttime") = "" or ( Not isNumeric(Request.Form("posttime")) ) Then 
		Error2 "日期必须为数字。"
	Else
		If ( Not BbsID = "" ) or isNumeric(BbsID) Then 
			Set Rs=Team.execute("Select ID From "&Isforum&"Forum Where forumid="& BbsID)
			While Not RS.EOF
				If IsSqlDataBase=1 Then
					team.Execute( "Delete From ["&Isforum&""&Request.Form("Reforumname")&"] Where Datediff(d,Posttime, " & SqlNowString & ") > " & Request.Form("posttime")&" And Topicid="&RS(0) )
				Else
					team.Execute( "Delete From ["&Isforum&""&Request.Form("Reforumname")&"] Where Datediff('d',Posttime, " & SqlNowString & " ) > "& Request.Form("posttime")&" And Topicid="& RS(0) )
				End If
				Rs.MoveNext
			Wend
		Else
			If IsSqlDataBase=1 Then
				team.Execute( "Delete From ["&Isforum&""&Request.Form("Reforumname")&"] Where Datediff(d,Posttime, " & SqlNowString & ") > " & Request.Form("posttime")&" ")
			Else
				team.Execute( "Delete From ["&Isforum&""&Request.Form("Reforumname")&"] Where Datediff('d',Posttime, " & SqlNowString & " ) > "& Request.Form("posttime")&" ")
			End If
		End If
		SuccessMsg " 已经将回帖表 [ "&Request.Form("Reforumname")&" ]里面 "&request("posttime")&" 天以前的回帖删除，请等待系统自动返回到 <a href=Admin_Manage.asp>快捷管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Manage.asp> " 
	End If
End Sub

Sub delliketopicok
	Call Master_Se()
	Dim BbsID,FindBoard,BoardName
	BbsID = Request.Form("bbsid")
	If Request.Form("topic") = "" Then 
		Error2 "您没有输入字符。"
	Else
		If ( Not BbsID = "" ) or isNumeric(BbsID) Then 
			FindBoard = " and forumid= "& BbsID 
		End If
		team.Execute( "Delete From ["&Isforum&"forum] Where Topic Like  '%"&HtmlEncode(Trim(Request.Form("topic")))&"%'  "& FindBoard )
		SuccessMsg " 已经将标题里包含有 "&Request.Form("topic")&"  的主题删除，请等待系统自动返回到 <a href=Admin_Manage.asp>快捷管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Manage.asp> " 
	End If
End Sub

Sub delusertopicok
	Call Master_Se()
	Dim BbsID,FindBoard,BoardName
	BbsID = Request.Form("bbsid")
	If Request.Form("postname") = "" Then 
		Error2 "您没有输入用户名。"
	Else
		If ( Not BbsID = "" ) or isNumeric(BbsID) Then 
			FindBoard = " and forumid= "& BbsID 
			BoardName = " 在版块 <a href=../BoardList.asp?ID="& BbsID &" "
		End If
		team.Execute( "Delete From ["&Isforum&"forum] Where UserName = '"&HtmlEncode(Trim(Request.Form("postname")))&"'  "& FindBoard )
		SuccessMsg " 已经将 "&Request.Form("postname")&"  "&BoardName&" 发表的主题删除，请等待系统自动返回到 <a href=Admin_Manage.asp>快捷管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Manage.asp> " 
	End If
End Sub

Sub delforumok
	Call Master_Se()
	Dim BbsID,FindBoard
	BbsID = Request.Form("bbsid")
	If Request.Form("posttime") = "" or ( Not isNumeric(Request.Form("posttime")) ) Then 
		Error2 "日期必须为数字。"
	Else
		If ( Not BbsID = "" ) or isNumeric(BbsID) Then 
			FindBoard = " and forumid= "& BbsID 
		End If
		If IsSqlDataBase=1 Then
			team.Execute( "Delete From ["&Isforum&"forum] Where Datediff(d,Lasttime, " & SqlNowString & ") > " & Request.Form("posttime")&" "& FindBoard )
		Else
			team.Execute( "Delete From ["&Isforum&"forum] Where Datediff('d',Lasttime, " & SqlNowString & " ) > "& Request.Form("posttime")&" "& FindBoard )
		End If
		SuccessMsg " 已经将"&request("posttime")&"天没有更新过的主题删除，请等待系统自动返回到 <a href=Admin_Manage.asp>快捷管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Manage.asp> " 
	End If
End Sub

Sub deltopicok
	Call Master_Se()
	Dim BbsID,FindBoard
	BbsID = Request.Form("bbsid")
	If Request.Form("posttime") = "" or ( Not isNumeric(Request.Form("posttime")) ) Then 
		Error2 "日期必须为数字。"
	Else
		If ( Not BbsID = "" ) or isNumeric(BbsID) Then 
			FindBoard = " and forumid= "& BbsID 
		End If
		If IsSqlDataBase=1 Then
			team.Execute( "Delete From ["&Isforum&"forum] Where Datediff(d,Posttime, " & SqlNowString & ") > " & Request.Form("posttime")&" "& FindBoard  )
		Else
			team.Execute( "Delete From ["&Isforum&"forum] Where Datediff('d',Posttime, " & SqlNowString & " ) > "& Request.Form("posttime")&" "& FindBoard  )
		End If
		SuccessMsg " 已经将"&request("posttime")&"天以前的主题删除，请等待系统自动返回到 <a href=Admin_Manage.asp>快捷管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Manage.asp> " 
	End If
End Sub

Sub Main()
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2" >
  <tr class="a1">
    <td>技巧提示</td>
  </tr>
  <tr class="a3">
    <td><BR>
      <ul>
        <li>请在论坛关闭的情况下进行下列操作，并在操作完成后 <a href=Admin_Update.asp><B>更新论坛统计</B></a> 信息。</li>
      </ul>
      <ul>
        <li>此操作是不可逆转的，所以推荐在 <a href=Admin_MDBS.asp><B>备份好数据库</B></a> 以后操作，并确认您的每一个步骤。</li>
      </ul>
      <ul>
        <li>此操作的时间将因你的数据库大小而异，数据库越大，时间越长。</li>
      </ul>
      <ul>
        <li> 本论坛共有论坛数：<B><%=team.execute("Select count(id)from bbsconfig")(0)%></B> ，
          主贴数：<B><%=team.execute("Select count(id)from forum")(0)%></font></B> ，
          当前回帖表数：<B><%=team.execute("Select count(id)from ["&team.Club_Class(11)&"]")(0)%></B>，如果您论坛首页的统计和当前的统计有误差，请 <a href=Admin_Update.asp><B>更新论坛统计</B> 。</li>
      </ul></td>
  </tr>
</table>
<BR>
<table cellspacing="1" cellpadding="3" width="90%" border="0" class="a2" align="center">
  <tr>
    <td class="a1" colspan="3">批量删除主题</td>
12

⌨️ 快捷键说明

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