<% Server.ScriptTimeout=9999999 dim iboardid(100),idepth(100),iboardname(100) dim k dim n dim admin_flag admin_flag="31,32" if not master or instr(session("flag"),"31")=0 or instr(session("flag"),"32")=0 then Errmsg=Errmsg+"
"+"

本页面为管理员专用，请登陆后进入。

您没有管理本页面的权限。" call dvbbs_error() else dim body call main() conn.close set conn=nothing end if Erase iboardid Erase idepth Erase iboardname sub main() i=0 set rs=conn.execute("select boardid,depth,boardtype from board order by rootid,orders") if rs.eof and rs.bof then iboardid(0)=0 idepth(0)=0 iboardname(0)="没有论坛" else do while not rs.eof iboardid(i)=rs(0) idepth(i)=rs(1) iboardname(i)=rs(2) i=i+1 rs.movenext loop end if set rs=nothing select case request("action") case "alldel" call alldel() case "userdel" call del() case "alldelTopic" call alldelTopic() case "deluser" call deluser() case "moveinfo" call moveinfo() case "MoveUserTopic" call moveusertopic() case "MoveDateTopic" call movedatetopic() case else %>

注意：如果您想还原帖子，请到论坛回收站！ 下面操作将大批量删除论坛帖子。如果您确定这样做，请仔细检查您输入的信息。

删除指定日期内帖子(本功能不扣除用户帖子数和积分)
删除多少天前的帖子(填写数字)
论坛版面	<% for k=0 to i-1 if iboardid(k)=0 then response.write "没有论坛" elseif k=0 then response.write "全部论坛" end if response.write "" if idepth(k)>0 then for n=1 to idepth(k) response.write "－" next end if response.write iboardname(k)&"" next %>
删除指定日期内没有回复的主题(本功能不扣除用户帖子数和积分)
删除多少天前的帖子(填写数字)
论坛版面	<% for k=0 to i-1 if iboardid(k)=0 then response.write "没有论坛" elseif k=0 then response.write "全部论坛" end if response.write "" if idepth(k)>0 then for n=1 to idepth(k) response.write "－" next end if response.write iboardname(k)&"" next %>
删除某用户的所有帖子
请输入用户名
论坛版面	<% for k=0 to i-1 if iboardid(k)=0 then response.write "没有论坛" elseif k=0 then response.write "全部论坛" end if response.write "" if idepth(k)>0 then for n=1 to idepth(k) response.write "－" next end if response.write iboardname(k)&"" next %>

<%end select%> <%if founderr then call dvbbs_error()%> <% end sub sub moveinfo() %>

注意：这里只是移动帖子，而不是拷贝或者删除！ 下面操作将删除原论坛帖子，并移动到您指定的论坛中。如果您确定这样做，请仔细检查您输入的信息。 您可以将一个论坛下属论坛的帖子移动到上级论坛，也可以将上级论坛的帖子移动到下级论坛，但作为分类的论坛由于论坛设置很可能不能发布帖子（只能浏览）

按日期移动
移动多少天前的帖子(填写数字)
原论坛	<% for k=0 to i-1 if iboardid(k)=0 then response.write "没有论坛" end if response.write "" if idepth(k)>0 then for n=1 to idepth(k) response.write "－" next end if response.write iboardname(k)&"" next %>
目标论坛	<% for k=0 to i-1 if iboardid(k)=0 then response.write "没有论坛" end if response.write "" if idepth(k)>0 then for n=1 to idepth(k) response.write "－" next end if response.write iboardname(k)&"" next %>
按用户移动
请填写用户名
原论坛	<% for k=0 to i-1 if iboardid(k)=0 then response.write "没有论坛" end if response.write "" if idepth(k)>0 then for n=1 to idepth(k) response.write "－" next end if response.write iboardname(k)&"" next %>
目标论坛	<% for k=0 to i-1 if iboardid(k)=0 then response.write "没有论坛" end if response.write "" if idepth(k)>0 then for n=1 to idepth(k) response.write "－" next end if response.write iboardname(k)&"" next %>

<% end sub sub del() dim titlenum,delboardid if request("delboardid")="0" then founderr=true errmsg=errmsg+"
"+"

非法的版面参数。" exit sub elseif request("delboardid")="all" then delboardid="" else delboardid=" boardid="&request("delboardid")&" and " end if if request("username")="" then founderr=true errmsg=errmsg+"
"+"

请输入被帖子删除用户名。" exit sub end if titlenum=0 for i=0 to ubound(allposttable) set rs=conn.execute("Select Count(announceID) from "&allposttable(i)&" where "&delboardid&" username='"&replace(request("username"),"'","")&"'") titlenum=titlenum+rs(0) sql="update "&allposttable(i)&" set locktopic=2 where "&delboardid&" username='"&replace(request("username"),"'","")&"'" conn.Execute(sql) next set rs=conn.execute("select topicid,posttable from topic where "&delboardid&" postusername='"&replace(request("username"),"'","")&"'") do while not rs.eof conn.execute("update "&rs(1)&" set locktopic=2 where rootid="&rs(0)) rs.movenext loop set rs=nothing conn.execute("update topic set locktopic=2 where "&delboardid&" postusername='"&replace(request("username"),"'","")&"'") if isnull(titlenum) then titlenum=0 sql="update [user] set article=article-"&titlenum&",userWealth=userWealth-"&titlenum*Forum_user(3)&",userEP=userEP-"&titlenum*Forum_user(8)&",userCP=userCP-"&titlenum*Forum_user(13)&" where username='"&replace(request("username"),"'","")&"'" conn.Execute(sql) response.write "删除成功，如果要完全删除帖子请到论坛回收站
建议您到更新论坛数据中更新一下论坛数据，或者返回" end sub sub alldel() Dim TimeLimited,delboardid if request("delboardid")="0" then founderr=true errmsg=errmsg+"
"+"

非法的版面参数。" exit sub elseif request("delboardid")="all" then delboardid="" else delboardid=" and boardid="&request("delboardid")&" " end if TimeLimited=request.form("TimeLimited") if not isnumeric(TimeLimited) then founderr=true errmsg=errmsg+"
"+"

非法的参数。" exit sub else for i=0 to ubound(allposttable) conn.execute("update "&allposttable(i)&" set LockTopic=2 where datediff('d',DateAndTime,Now())>"&TimeLimited&" "&delboardid&"") next conn.execute("update topic set LockTopic=2 where datediff('d',DateAndTime,Now())>"&TimeLimited&" "&delboardid&"") end if response.write "删除成功，如果要完全删除帖子请到论坛回收站
建议您到更新论坛数据中更新一下论坛数据，或者返回" end sub sub alldelTopic() Dim TimeLimited,delboardid if request("delboardid")="0" then founderr=true errmsg=errmsg+"
"+"

非法的版面参数。" 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+"
"+"

非法的参数。" exit sub else conn.execute("update topic set LockTopic=2 where "&delboardid&" datediff('d',DateAndTime,Now())>"&TimeLimited&" and Child=0") set rs=conn.execute("select Topicid,PostTable from topic where "&delboardid&" datediff('d',DateAndTime,Now())>"&TimeLimited&" and Child=0") do while not rs.eof conn.execute("update "&rs(1)&" set locktopic=2 where rootid="&rs(0)) rs.movenext loop set rs=nothing end if response.write "删除成功，如果要完全删除帖子请到论坛回收站
建议您到更新论坛数据中更新一下论坛数据，或者返回" end sub sub delUser() Dim TimeLimited TimeLimited=request.form("TimeLimited") if TimeLimited="all" then conn.execute("delete from [user]") else conn.execute("delete from [user] where datediff('d',LastLogin,Now())>"&TimeLimited&"") end if response.write "删除成功，如果要完全删除帖子请到论坛回收站
建议您到更新论坛数据中更新一下论坛数据，或者返回" end sub sub MoveUserTopic() 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 for i=0 to ubound(allposttable) conn.execute("update "&allposttable(i)&" set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and username='"&request("username")&"'") next set rs=conn.execute("select topicid,posttable from topic where Boardid="&request("outboardid")&" and Postusername='"&request("username")&"'") do while not rs.eof conn.execute("update "&rs(1)&" set boardid="&request("inboardid")&" where rootid="&rs(0)) rs.movenext loop conn.execute("update topic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and Postusername='"&request("username")&"'") conn.execute("update besttopic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and Postusername='"&request("username")&"'") response.write "移动成功！" 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) conn.execute("update "&allposttable(i)&" set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,Now())>"&request.Form("TimeLimited")&"") next conn.execute("update topic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,Now())>"&request.Form("TimeLimited")&"") conn.execute("update besttopic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,Now())>"&request.Form("TimeLimited")&"") response.write "移动成功！" end sub %>