admin_alldel.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/DvADChar.asp" -->

<%
Head()
Server.ScriptTimeout=9999999
dim iboardid(1000),idepth(1000),iboardname(1000)
dim k
dim n
dim admin_flag
admin_flag="22"
if not Dvbbs.master or instr(","&session("flag")&",",",22,")=0 then
	Errmsg=ErrMsg + "<BR><li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
	dvbbs_error()
else
	dim body
	call main()
Footer()
end if
Erase iboardid
Erase idepth
Erase iboardname

sub main()
i=0
set rs=Dvbbs.Execute("select boardid,depth,boardtype from dv_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
%>
<table cellpadding=3 cellspacing=1 border=0 width=95% align=center class="tableBorder">
	<tr>
    <td width="100%" valign=top class=forumrow>
<B>注意</B>：如果您想还原帖子，请到论坛回收站！
            <br>下面操作将大批量删除论坛帖子，<font color=red>并且所有操作不可恢复</font>。如果您确定这样做，请仔细检查您输入的信息。
</td>
</tr>
</table><BR>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<form action="admin_alldel.asp?action=alldel" method="post">
            <tr>
            <th valign=middle colspan=2 height=23 align=left>删除指定日期内帖子</b>(本功能不扣除用户帖子数和积分)</th></tr>
            <tr>
            <td valign=middle width=40% class=forumrow>删除多少天前的帖子(填写数字)</td><td class=forumrow><input name="TimeLimited" value=100 size=30>&nbsp;<input type=submit name="submit" value="提 交"></td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>论坛版面</td><td class=forumrow>
<select name="delboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	elseif k=0 then
		response.write "<option value=all>全部论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
</form>
<form action="admin_alldel.asp?action=alldelTopic" method="post">
            <tr>
            <th valign=middle colspan=2 height=23 align=left>删除指定日期内没有回复的主题(本功能不扣除用户帖子数和积分)</th></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>删除多少天前的帖子(填写数字)</td><td class=forumrow><input name="TimeLimited" value=100 size=30>&nbsp;<input type=submit name="submit" value="提 交"></td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>论坛版面</td><td class=forumrow>
<select name="delboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	elseif k=0 then
		response.write "<option value=all>全部论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
</form>
<form action="admin_alldel.asp?action=userdel" method="post">
            <tr>
            <th valign=middle colspan=2 height=23 align=left>删除某用户的所有帖子</td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>请输入用户名</td><td class=forumrow><input type=text name="username" size=30>&nbsp;<input type=submit name="submit" value="提 交"></td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>论坛版面</td><td class=forumrow>
<select name="delboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	elseif k=0 then
		response.write "<option value=all>全部论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
</form>

<form action="admin_alldel.asp?action=delUser" method="post">
            <tr>
            <td class=forumrow valign=middle>删除指定日期内没有登录的用户</td>
            <td class=forumrow valign=middle>
<select name=TimeLimited size=1> 
<option value=1>删除一天前的
<option value=2>删除两天前的
<option value=7>删除一星期前的
<option value=15>删除半个月前的
<option value=30>删除一个月前的
<option value=60>删除两个月前的
<option value=180>删除半年前的
</select>
</select><input type=submit name="submit" value="提 交"></td></tr></form>

</table>
<%end select%>
<%if founderr then Call dvbbs_error()%>
<%
end sub

	sub moveinfo()
%>
<table cellpadding=3 cellspacing=1 border=0 width=95% align=center>
	<tr>
    <td width="100%" valign=top>
<B>注意</B>：这里只是移动帖子，而不是拷贝或者删除！
            <br>下面操作将删除原论坛帖子，并移动到您指定的论坛中。如果您确定这样做，请仔细检查您输入的信息。<BR>您可以将一个论坛下属论坛的帖子移动到上级论坛，也可以将上级论坛的帖子移动到下级论坛，但作为分类的论坛由于论坛设置很可能不能发布帖子（只能浏览）
</td>
</tr>
</table>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<form action="admin_alldel.asp?action=MoveDateTopic" method="post">
            <tr>
            <th valign=middle colspan=2 height=23 align=left>按日期移动</th></tr>
            <tr>
            <td valign=middle width=40% class=forumrow>移动多少天前的帖子(填写数字)</td><td class=forumrow><input name="TimeLimited" value=0 size=30>&nbsp;<input type=submit name="submit" value="提 交"></td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>原论坛</td><td class=forumrow>
<select name="outboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>目标论坛</td><td class=forumrow>
<select name="inboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
</form>
<form action="admin_alldel.asp?action=MoveUserTopic" method="post">
            <tr>
            <th valign=middle colspan=2 height=23 align=left>按用户移动</th></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>请填写用户名</td><td class=forumrow><input name="username" size=30>&nbsp;<input type=submit name="submit" value="提 交"></td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>原论坛</td><td class=forumrow>
<select name="outboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>目标论坛</td><td class=forumrow>
<select name="inboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>