admin_alldel.asp

功能强大的bbs

			</td></tr>
</form>
</table>
<%
	end sub
	'删除某用户的所有帖子
	sub del()
		dim titlenum,delboardid,PostUserID,delboardida
		if request("delboardid")="0" then
			founderr=true
			Errmsg=ErrMsg + "<BR><li>非法的版面参数。"
			exit sub
		elseif request("delboardid")="all" then
			delboardid=""
			delboardida=""
		else
			delboardid=" boardid="&request("delboardid")&" and "
			delboardida=" F_boardid="&request("delboardid")&" and "
		end if
		if request("username")="" then
			founderr=true
			Errmsg=ErrMsg + "<BR><li>请输入被帖子删除用户名。"
			exit sub
		end if
		Set Rs=Dvbbs.Execute("Select UserID,UserGroupID From Dv_User Where UserName='"&replace(request("username"),"'","")&"'")
		If Rs.Eof And Rs.Bof Then
			founderr=true
			Errmsg=ErrMsg + "<BR><li>目标用户不存在，请重新输入。"
			exit sub
		End If
		If Rs(1)=1 Or Rs(1)=2 Or Rs(1)=3 Then
			founderr=true
			Errmsg=ErrMsg + "<BR><li>对管理员、超级版主、版主的贴子不能进行批量删除操作。"
			exit sub
		End If
		PostUserID=Rs(0)
		Rs.close:Set Rs=Nothing
		titlenum=0
		for i=0 to ubound(allposttable)
		set rs=Dvbbs.Execute("Select Count(*) from "&allposttable(i)&" where "&delboardid&" PostUserID="&PostUserID) 
   		titlenum=titlenum+rs(0)

		sql="Delete From "&allposttable(i)&" where "&delboardid&" PostUserID="&PostUserID
		Dvbbs.Execute(sql)
		next
		Rs.close:Set Rs=Nothing
		'精华
		Dvbbs.Execute("delete from dv_besttopic where "&delboardid&" PostUserID="&PostUserID)
		'上传
		Dvbbs.Execute("delete from Dv_UpFile where "&delboardida&" F_UserID="&PostUserID)
		'该用户发表的主题、连带跟贴一起删除
		set rs=Dvbbs.Execute("select topicid,posttable from dv_topic where "&delboardid&" PostUserID="&PostUserID)
		do while not rs.eof
			Dvbbs.Execute("Delete From "&rs(1)&" where rootid="&rs(0))
		rs.movenext
		loop
		Rs.close:Set Rs=Nothing
		Dvbbs.Execute("Delete From dv_topic where "&delboardid&" PostUserID="&PostUserID)
		if isnull(titlenum) then titlenum=0
		sql="update [dv_user] set userpost=userpost-"&titlenum&",userWealth=userWealth-"&titlenum*Dvbbs.Forum_user(3)&",userEP=userEP-"&titlenum*Dvbbs.Forum_user(8)&",userCP=userCP-"&titlenum*Dvbbs.Forum_user(13)&" where UserID="&PostUserID
		Dvbbs.Execute(sql)
		response.write "删除成功，如果要完全删除帖子请到论坛回收站<BR>建议您到更新论坛数据中更新一下论坛数据，或者<a href=admin_alldel.asp>返回</a>"
	end sub

'删除指定日期内帖子
Sub Alldel()
	Dim TimeLimited,Delboardid,DelSql
	If Request("delboardid")="0" Then
		'founderr=true
		Errmsg=ErrMsg + "<BR><li>非法的版面参数。"
		Exit Sub
	Elseif Request("delboardid")="all" Then
		Delboardid=""
	Else
		'Delboardid="And boardid="&Clng(Request("delboardid"))
		Delboardid=" boardid="&Clng(Request("delboardid"))&" and "
	End If
	TimeLimited=Request.Form("TimeLimited")
	If Not Isnumeric(TimeLimited) Then
		'founderr=true
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		Exit Sub
	Else
		For i=0 to Ubound(allposttable)
			If IsSqlDataBase=1 Then
				Dvbbs.Execute("DELETE FROM "&Allposttable(i)&" WHERE "&Delboardid&" Datediff(d,DateAndTime,"&SqlNowString&")>"&TimeLimited)
			Else
				Dvbbs.Execute("DELETE FROM "&Allposttable(i)&" WHERE "&Delboardid&" Datediff('d',DateAndTime,"&SqlNowString&")>"&TimeLimited)
			End if
			Response.Write Allposttable(i)&"表帖子删除完成！<BR>"
			Response.Flush
		Next
		If IsSqlDataBase=1 Then
			Dvbbs.Execute("DELETE FROM Dv_topic WHERE "&Delboardid&" Datediff(d,DateAndTime,"&SqlNowString&")>"&TimeLimited)
			Dvbbs.Execute("delete from dv_besttopic where "&Delboardid&" datediff(d,DateAndTime,"&SqlNowString&")>"&TimeLimited)
		Else
			Dvbbs.Execute("DELETE FROM Dv_topic WHERE "&Delboardid&" Datediff('d',DateAndTime,"&SqlNowString&")>"&TimeLimited)
			Dvbbs.Execute("DELETE FROM Dv_besttopic WHERE "&Delboardid&" Datediff('d',DateAndTime,"&SqlNowString&") > "&TimeLimited)
		End If
			Response.Write "Dv_topic主题删除完成！<BR>"
			Response.Flush
	End if
	Response.write "删除成功，如果要完全删除帖子请到论坛回收站<BR>建议您到更新论坛数据中更新一下论坛数据，或者<a href=admin_alldel.asp>返回</a>"
	Response.Flush
End sub

	sub alldelTopic()
	Dim TimeLimited,delboardid
	if request("delboardid")="0" then
		'founderr=true
		Errmsg=ErrMsg + "<BR><li>非法的版面参数。"
		exit sub
	elseif request("delboardid")="all" then
		delboardid=""
	else
		delboardid=" boardid="&request("delboardid")&" and "
	end if
	TimeLimited=request.form("TimeLimited")
	if not isnumeric(TimeLimited) then
		'founderr=true
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		exit sub
	else
	if IsSqlDataBase=1 then
		set rs=Dvbbs.Execute("select Topicid,PostTable from dv_topic where "&delboardid&"   datediff(d,DateAndTime,"&SqlNowString&")>"&TimeLimited&" and Child=0")
	else
		set rs=Dvbbs.Execute("select Topicid,PostTable from dv_topic where "&delboardid&"   datediff('d',DateAndTime,"&SqlNowString&")>"&TimeLimited&" and Child=0")
	end if
	do while not rs.eof
		Dvbbs.Execute("Delete From "&rs(1)&" where rootid="&rs(0))
		Dvbbs.Execute("delete from dv_besttopic where rootid="&rs(0))
	rs.movenext
	loop
	if IsSqlDataBase=1 then
		Dvbbs.Execute("Delete From dv_topic where "&delboardid&"   datediff(d,DateAndTime,"&SqlNowString&")>"&TimeLimited&" and Child=0")
	else
		Dvbbs.Execute("Delete From dv_topic where "&delboardid&"   datediff('d',DateAndTime,"&SqlNowString&")>"&TimeLimited&" and Child=0")
	end if
	set rs=nothing
	end if
	response.write "删除成功，如果要完全删除帖子请到论坛回收站<BR>建议您到更新论坛数据中更新一下论坛数据，或者<a href=admin_alldel.asp>返回</a>"
	end sub

	sub delUser()
	Dim TimeLimited
	TimeLimited=request.form("TimeLimited")
	if TimeLimited="all" then
	response.Write "算了吧，想开点吧，这样做会连管理员都删掉的！"
	else
	if IsSqlDataBase=1 then
	set rs=Dvbbs.Execute("select userid,username,usergroupid from [dv_user] where datediff(d,LastLogin,"&SqlNowString&")>"&TimeLimited&"")
	else
	set rs=Dvbbs.Execute("select userid,username,usergroupid from [dv_user] where datediff('d',LastLogin,"&SqlNowString&")>"&TimeLimited&"")
	end if
	'shinzeal加入删除用户的同时自动删除其帖子（包括精华贴）的功能
	do while not rs.eof
		If rs(2)>3 then
		for i=0 to ubound(allposttable)
		sql="Delete From "&allposttable(i)&" where postuserid="&rs(0)
		Dvbbs.Execute(sql)
		next
		Dvbbs.Execute("delete from dv_besttopic where postuserid="&rs(0))
		Dvbbs.Execute("Delete From Dv_UpFile Where F_UserID="&rs(0))
		Dvbbs.Execute("Delete From Dv_Message Where Sender='"&Replace(Rs(1),"'","''")&"'")
		Dvbbs.Execute("Delete From Dv_Friend Where F_UserID="&rs(0))
		Dvbbs.Execute("Delete From Dv_BookMark Where UserName='"&Replace(Rs(1),"'","''")&"'")
		dim rrs
		set rrs=Dvbbs.Execute("select topicid,posttable from dv_topic where postuserid="&rs(0))
		do while not rrs.eof
		Dvbbs.Execute("Delete From "&rrs(1)&" where rootid="&rrs(0))
		rrs.movenext
		loop
		set rrs=nothing
		Dvbbs.Execute("Delete From dv_topic where postuserid="&rs(0))
		end if
	rs.movenext
	loop
	set rs=nothing
	if IsSqlDataBase=1 then
	Dvbbs.Execute("delete from [dv_user] where datediff(d,LastLogin,"&SqlNowString&")>"&TimeLimited&"")
	else
	Dvbbs.Execute("delete from [dv_user] where datediff('d',LastLogin,"&SqlNowString&")>"&TimeLimited&"")
	end if
	end if
	response.write "删除成功，如果要完全删除帖子请到论坛回收站<BR>建议您到更新论坛数据中更新一下论坛数据，或者<a href=admin_alldel.asp>返回</a>"
	end sub

	sub MoveUserTopic()
	Dim PostUserID
	if not isnumeric(request("inboardid")) then
	response.write "错误的版面参数。"
	exit sub
	end if
	if not isnumeric(request("outboardid")) then
	response.write "错误的版面参数。"
	exit sub
	end if
	if request("username")="" then
	response.write "请填写用户名。"
	exit sub
	end if
	if Cint(request("outboardid"))=Cint(request("inboardid")) then
	response.write "不能在相同版面进行移动操作！"
	exit sub
	end if
	Set Rs=Dvbbs.Execute("Select UserID From Dv_User Where UserName='"&Replace(request("username"),"'","''")&"'")
	If Rs.Eof And Rs.Bof Then
		response.write "目标用户名并不存在，请重新输入！"
		exit sub
	End If
	PostUserID=Rs(0)
	for i=0 to ubound(allposttable)
	Dvbbs.Execute("update "&allposttable(i)&" set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and PostUserID="&PostUserID)
	next
	Rs.close:Set Rs=Nothing
	set rs=Dvbbs.Execute("select topicid,posttable from dv_topic where Boardid="&request("outboardid")&" and PostUserID="&PostUserID)
	do while not rs.eof
		Dvbbs.Execute("update "&rs(1)&" set boardid="&request("inboardid")&" where rootid="&rs(0))
	rs.movenext
	loop
	Dvbbs.Execute("update dv_topic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and PostUserID="&PostUserID)
	Dvbbs.Execute("update dv_besttopic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and PostUserID="&PostUserID)
	'shinzeal加入移动上传文件数据
	Dvbbs.Execute("update DV_Upfile set F_boardid="&request("inboardid")&" where F_Boardid="&request("outboardid")&" and F_UserID="&PostUserID)
	response.write "移动成功！"
	Rs.close:Set Rs=Nothing
	end sub

	sub MoveDateTopic()
	if not isnumeric(request("TimeLimited")) then
	response.write "错误的日期参数。"
	exit sub
	end if
	if not isnumeric(request("inboardid")) then
	response.write "错误的版面参数。"
	exit sub
	end if
	if not isnumeric(request("outboardid")) then
	response.write "错误的版面参数。"
	exit sub
	end if
	if Cint(request("outboardid"))=Cint(request("inboardid")) then
	response.write "不能在相同版面进行移动操作！"
	exit sub
	end if
	for i=0 to ubound(allposttable)
	if IsSqlDataBase=1 then
	Dvbbs.Execute("update "&allposttable(i)&" set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff(d,DateAndTime,"&SqlNowString&")>"&request.Form("TimeLimited")&"")
	else
	Dvbbs.Execute("update "&allposttable(i)&" set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,"&SqlNowString&")>"&request.Form("TimeLimited")&"")
	end if
	next
	if IsSqlDataBase=1 then
	Dvbbs.Execute("update dv_topic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff(d,DateAndTime,"&SqlNowString&")>"&request.Form("TimeLimited")&"")
	Dvbbs.Execute("update dv_besttopic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff(d,DateAndTime,"&SqlNowString&")>"&request.Form("TimeLimited")&"")
	'shinzeal加入移动上传文件数据
	Dvbbs.Execute("update DV_Upfile set F_boardid="&request("inboardid")&" where F_Boardid="&request("outboardid")&" and datediff(d,F_AddTime,"&SqlNowString&")>"&request.Form("TimeLimited")&"")
	else
	Dvbbs.Execute("update dv_topic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,"&SqlNowString&")>"&request.Form("TimeLimited")&"")
	Dvbbs.Execute("update dv_besttopic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,"&SqlNowString&")>"&request.Form("TimeLimited")&"")
	'shinzeal加入移动上传文件数据
	Dvbbs.Execute("update DV_Upfile set F_boardid="&request("inboardid")&" where F_Boardid="&request("outboardid")&" and datediff('d',F_AddTime,"&SqlNowString&")>"&request.Form("TimeLimited")&"")
	end if
	response.write "移动成功！"
	end sub
%>