?? admin_recycle.asp
字號:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/theme.asp"-->
<!--#include file="chkuser.asp"-->
<%
dim topicid
stats="帖子管理"
topicid=request("topicid")
if request("action")<>"清空回收站" then
if topicid="" or isnull(topicid) then
Errmsg=Errmsg+"<li>"+"請選擇相關帖子后進行操作。"
Founderr=true
end if
end if
if not master then
Errmsg=Errmsg+"<li>"+"您不是系統管理員或者您還沒有登陸。"
Founderr=true
end if
call nav()
call headline(1)
if founderr=true then
call 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
end if
if founderr=true then call error()
end if
call endline()
sub delete()
conn.execute("delete from bbs1 where Announceid in ("&TopicID&")")
sql="insert into log (l_username,l_content) values ('"&membername&"','完全刪除帖子')"
conn.execute(sql)
call success()
end sub
sub redel()
sql="update bbs1 set locktopic=0 where Announceid in ("&TopicID&")"
conn.execute(sql)
set rs=conn.execute("select username from bbs1 where Announceid in ("&TopicID&")")
do while not rs.eof
sql="update [user] set article=article+1,userWealth=userWealth+"&wealthDel&",userEP=userEP+"&epDel&" where username='"&rs(0)&"'"
conn.execute(sql)
rs.movenext
loop
set rs=nothing
sql="insert into log (l_username,l_content) values ('"&membername&"','還原帖子')"
conn.execute(sql)
call success()
end sub
sub AllDel()
conn.execute("delete from bbs1 where locktopic=2")
sql="insert into log (l_username,l_content) values ('"&membername&"','清空回收站')"
conn.execute(sql)
call success()
end sub
sub success()
%>
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=Tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr align="center">
<td width="100%" bgcolor=<%=Tabletitlecolor%>><font color="<%=TablefontColor%>">成功:帖子操作</font></td>
</tr>
<tr>
<td width="100%" bgcolor=<%=Tablebodycolor%>><font color="<%=TableContentColor%>"><li>帖子操作成功。<li>您的操作信息已經記錄在案。<br></font>
</td>
</tr>
<tr align="center">
<td width="100%" bgcolor=<%=Tabletitlecolor%>>
<a href="recycle.asp"><font color="<%=TablefontColor%>"> << 返回回收站</font></a>
</td>
</tr>
</table> </td></tr></table>
<%
end sub
%>
<!--#include file="footer.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -