admin_recycle.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
Server.ScriptTimeOut=999999
dim topicid
dim tablename
dim trs,UpdateBoardID
stats="帖子管理"
topicid=request("topicid")
if request("action")<>"清空回收站" then
	if topicid="" or isnull(topicid) then
		Errmsg=Errmsg+"<li>"+"请选择相关帖子后进行操作。"
		Founderr=true
	end if
end if
if request("tablename")="topic" then
	tablename="topic"
elseif instr(request("tablename"),"bbs")>0 then
	tablename=request("tablename")
else
	Errmsg=Errmsg+"<li>"+"错误的系统参数！"
	Founderr=true
end if
if not master then
	Errmsg=Errmsg+"<li>"+"您不是系统管理员或者您还没有登陆。"
	Founderr=true
end if

call nav()
call head_var(0,0,"回收站","recycle.asp")
if founderr=true then
	call dvbbs_error()
else
	if request("action")="删除" then
		call delete()
	elseif request("action")="还原" then
		call redel()
	elseif request("action")="清空回收站" then
		call Alldel()
	else
		Errmsg=Errmsg+"<li>"+"请指定所需参数。"
		Founderr=true
		call dvbbs_error()
	end if
end if
call footer()

'删除回收站内容
sub delete()
if instr(tablename,"bbs")>0 then
	conn.execute("delete from "&tablename&" where locktopic=2 and Announceid in ("&TopicID&")")
elseif tablename="topic" then
	for i=0 to ubound(allposttable)
	conn.execute("delete from "&allposttable(i)&" where locktopic=2 and rootid in ("&TopicID&")")
	next
	conn.execute("delete from topic where locktopic=2 and topicid in ("&TopicID&")")
end if

sucmsg="<li>帖子操作成功。<li>您的操作信息已经记录在案。"
call dvbbs_suc()
end sub

'还原回收站内容
sub redel()
dim tempnum,todaynum
if instr(tablename,"bbs")>0 then
	sql="update "&tablename&" set locktopic=0 where Announceid in ("&TopicID&")"
	conn.execute(sql)
	'如果该回复帖对应主题已删除，则同时还原该主题帖
	set rs=conn.execute("select topicid,posttable,boardid from topic where locktopic=0 and topicid in (select distinct rootid from "&tablename&" where Announceid in ("&TopicID&"))")
	do while not rs.eof
		conn.execute("update "&rs(1)&" set locktopic=0 where parentid=0 and rootid="&rs(0))
		set trs=conn.execute("select count(*) from "&rs(1)&" where locktopic=0 and not parentid=0 and rootid="&rs(0))
		conn.execute("update topic set child="&trs(0)&",locktopic=0 where topicid="&rs(0))
		conn.execute("update board set LastTopicNum=LastTopicNum+1 where boardid="&rs(2))
	rs.movenext
	loop
	set rs=conn.execute("select PostUserID,BoardID,DateAndtime,ParentID from "&tablename&" where Announceid in ("&TopicID&")")
	do while not rs.eof
	sql="update [user] set article=article+1,userWealth=userWealth+"&Forum_user(3)&",userEP=userEP+"&Forum_user(8)&",userdel=userdel-1 where userid="&rs(0)
	conn.execute(sql)
	set trs=conn.execute("select ParentStr,LastPost from board where boardid="&rs(1))
	if datediff("d",rs(2),split(trs(1),"$")(2))=0 then
	todaynum=1
	else
	todaynum=0
	end if
	call AllboardNumAdd(todayNum,1,0)
	UpdateBoardID=trs(0) & "," & rs(1)
	conn.execute("update board set todaynum=todaynum+"&todaynum&",LastbbsNum=LastbbsNum+1 where boardid in ("&UpdateBoardID&")")
	LastCount(rs(1))
	rs.movenext
	loop
	set rs=nothing
elseif tablename="topic" then
	dim TotalUseTable,LastPost_a
	i=0
	todaynum=0
	sql="update topic set locktopic=0 where topicid in ("&TopicID&")"
	conn.execute(sql)
	set rs=conn.execute("select topicid,posttable,boardid from topic where topicid in ("&topicid&")")
	do while not rs.eof
		set trs=conn.execute("select ParentStr,LastPost from board where boardid="&rs(2))
		UpdateBoardID=trs(0) & "," & rs(2)
		LastPost_a=split(trs(1),"$")(2)
		conn.execute("update "&rs(1)&" set locktopic=0 where rootid="&rs(0))
		set trs=conn.execute("select postuserid,dateandtime from "&rs(1)&" where rootid="&rs(0))
		do while not trs.eof
		i=i+1
		sql="update [user] set article=article+1,userWealth=userWealth+"&Forum_user(3)&",userEP=userEP+"&Forum_user(8)&",userdel=userdel-1 where userid="&trs(0)
		conn.execute(sql)
		if datediff("d",trs(1),now())=0 then
			todaynum=todaynum+1
		else
			todaynum=todaynum
		end if
		trs.movenext
		loop
		call AllboardNumAdd(todayNum,i,1)
		conn.execute("update board set todaynum=todaynum+"&todaynum&",LastbbsNum=LastbbsNum+"&i&",LastTopicNum=LastTopicNum+1 where boardid in ("&UpdateBoardID&")")
		LastCount(rs(2))
		i=0
		todaynum=0
	rs.movenext
	loop
	set rs=nothing
	set trs=nothing
end if
sucmsg="<li>帖子操作成功。<li>您的操作信息已经记录在案。"
call dvbbs_suc()
end sub

'全部删除回收站内容
sub AllDel()
for i=0 to ubound(allposttable)
	conn.execute("delete from "&allposttable(i)&" where locktopic=2")
next
conn.execute("delete from topic where locktopic=2")
sucmsg="<li>帖子操作成功。<li>您的操作信息已经记录在案。"
call dvbbs_suc()
end sub

function LastCount(boardid)
Dim LastTopic,body,LastRootid,LastPostTime,LastPostUser
Dim LastPost,uploadpic_n,Lastpostuserid,Lastid
set trs=conn.execute("select top 1 T.title,b.Announceid,b.dateandtime,b.username,b.postuserid,b.rootid from "&NowUseBBS&" b inner join Topic T on b.rootid=T.TopicID where b.boardid="&boardid&" and  b.locktopic<2 order by b.announceid desc")
if not(trs.eof and trs.bof) then
	Lasttopic=replace(left(trs(0),15),"$","")
	LastRootid=trs(1)
	LastPostTime=trs(2)
	LastPostUser=trs(3)
	LastPostUserid=trs(4)
	Lastid=trs(5)
else
	LastTopic="无"
	LastRootid=0
	LastPostTime=now()
	LastPostUser="无"
	LastPostUserid=0
	Lastid=0
end if
set trs=nothing

LastPost=LastPostUser & "$" & LastRootid & "$" & LastPostTime & "$" & LastTopic & "$" & uploadpic_n & "$" & LastPostUserID & "$" & LastID & "$" & BoardID
Dim SplitUpBoardID,SplitLastPost
SplitUpBoardID=split(UpdateBoardID,",")
For i=0 to ubound(SplitUpBoardID)
	set trs=conn.execute("select LastPost from board where boardid="&SplitUpBoardID(i))
	if not (trs.eof and trs.bof) then
	SplitLastPost=split(trs(0),"$")
	if ubound(SplitLastPost)=7 and clng(LastRootID)<>clng(SplitLastPost(1)) then
		conn.execute("update board set LastPost='"&LastPost&"' where boardid="&SplitUpBoardID(i))
	end if
	end if
Next
set trs=nothing
'sql="update board set LastPost='"&LastPost&"' where boardid in ("&UpdateBoardID&")"
'conn.execute(sql)
end function


'当还原时,所有论坛发帖数增加
function AllboardNumAdd(todayNum,postNum,topicNum)
sql="update config set TodayNum=todayNum+"&todaynum&",BbsNum=bbsNum+"&postNum&",TopicNum=topicNum+"&TopicNum
conn.execute(sql)
end function


%>