?? admin_alldel.asp
字號:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<title><%=Forum_info(0)%>--管理頁面</title>
<link rel="stylesheet" href="forum_admin.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
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+"<br>"+"<li>本頁面為管理員專用，請<a href=admin_index.asp target=_top>登陸</a>后進入。<br><li>您沒有管理本頁面的權限。"
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
%>
<table cellpadding=3 cellspacing=1 border=0 width=95% align=center>
<tr>
<td width="100%" valign=top>
<B>注意</B>：如果您想還原帖子，請到論壇回收站！
<br>下面操作將大批量刪除論壇帖子。如果您確定這樣做，請仔細檢查您輸入的信息。
</td>
</tr>
</table>
<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=0 size=30> <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=0 size=30> <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> <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 bgcolor="<%=Forum_body(4)%>" valign=middle><font color="<%=Forum_body(7)%>">刪除指定日期內沒有登陸的用戶</font></td>
<td bgcolor="<%=Forum_body(4)%>" valign=middle>
<select name=TimeLimited size=1>
<option value=all>刪除所有的
<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> <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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -