recycle.asp

感谢您使用BBSXP

<!-- #include file="Setup.asp" --><%
top
if Request.Cookies("UserName")=empty then error("<li>您还未<a href=Login.asp>登录</a>社区")

if membercode < 4 then error2("您的权限不够，无法进入！")

select case Request("menu")

case "deoxidize"
for each ho in request.form("id")
ho=int(ho)
Conn.execute("update [BBSXP_Threads] set IsDel=0,lasttime='"&now()&"',lastname='"&Request.Cookies("UserName")&"' where id="&ho&" and IsDel=1")
next

case "clean"
Delday=int(Request("Delday"))
if delday < 1 then error2("非法操作")
conn.execute("delete from [BBSXP_Threads] where IsDel=1 and lasttime<"&SqlNowString&"-"&delday&"")
log("清空回收站内 "&delday&" 天以前的文章！")
error2("已经清空回收站内 "&delday&" 天以前的文章！")
end select


sql="select * from [BBSXP_Threads] where IsDel=1 order by lasttime Desc"
Rs.Open sql,Conn,1

PageSetup=20 '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数


%>
<script>
function CheckAll(form){for (var i=0;i<form.elements.length;i++){var e = form.elements[i];if (e.name != 'chkall')e.checked = form.chkall.checked;}}
</script>
<table border="0" width="100%" align="center" cellspacing="1" cellpadding="4" class="a2">
	<tr class="a3">
		<td height="25">&nbsp;<img src="images/Forum_nav.gif">&nbsp; <%ClubTree%> 
		→ <a href="Recycle.asp">回收站</a></td>
	</tr>
</table>
<br>
<table cellspacing="1" cellpadding="1" width="100%" align="center" border="0" class="a2">
	<form method="POST" action="Recycle.asp?menu=deoxidize">
		<tr height="25" class="a1">
			<td align="middle" width="3%">　</td>
			<td align="middle" width="3%">
			<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON"></td>
			<td width="46%" height="24" align="middle">主题</td>
			<td align="middle" width="9%" height="24">作者</td>
			<td align="middle" width="5%" height="24">回复</td>
			<td align="middle" width="4%" height="24">点击</td>
			<td width="30%" height="24">　　 删除时间　　　　 删除者</td>
		</tr>
		<%

i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1


if Rs("IsTop")=2 then
reimage="<img src=images/top.gif border=0>"
elseif Rs("IsTop")=1 then
reimage="<img src=images/f_top.gif border=0>"
elseif Rs("IsLocked")=1 then
reimage="<img src=images/f_locked.gif border=0>"
elseif Rs("IsVote")="1" then
reimage="<img src=images/f_poll.gif border=0>"
elseif Rs("replies")=>SiteSettings("PopularPostThresholdPosts") or  Rs("Views")=>SiteSettings("PopularPostThresholdViews") then
reimage="<img src=images/f_hot.gif border=0>"
elseif Rs("replies")>0 then
reimage="<img src=images/f_New.gif border=0>"
else
reimage="<img src=images/f_norm.gif border=0>"
end if


if Rs("replies")=0 then
replies="-"
else
replies=Rs("replies")
end if

%>
		<tr height="25">
			<td align="middle" width="3%" class="a4" height="24">
			<a target="_blank" href="ShowPost.asp?ThreadID=<%=Rs("id")%>"><%=reimage%></a></td>
			<td align="middle" width="3%" class="a3">
			<input type="checkbox" value="<%=Rs("id")%>" name="id"></td>
			<td width="46%" align="Left" class="a4">&nbsp;<%if Rs("icon")>0 then%><img border="0" src="images/brow/<%=Rs("icon")%>.gif">
			<%end if%><a href="ShowPost.asp?ThreadID=<%=Rs("id")%>"><%=Rs("Topic")%></a></td>
			<td align="middle" width="9%" class="a3">
			<a href="Profile.asp?UserName=<%=Rs("UserName")%>"><%=Rs("UserName")%>　</a></td>
			<td align="middle" width="5%" class="a4"><%=replies%>　</td>
			<td align="middle" width="4%" class="a3"><%=Rs("views")%>　</td>
			<td align="Left" width="30%" class="a4">&nbsp;<%=Rs("lasttime")%> |
			<a href="Profile.asp?UserName=<%=Rs("lastname")%>"><%=Rs("lastname")%></a></td>
		</tr>
		<%
Rs.MoveNext
loop
Rs.Close
%>
	
</table>

<table cellspacing="0" cellpadding="1" width="100%" align="center" border="0">
	<tr height="25">
		<td width="100%" height="2">
		<table cellspacing="0" cellpadding="3" width="100%" border="0">
			<tr>
				<td height="2" valign="top">
				<input type="submit" onclick="checkclick('您确定要还原所选的主题?');" value="还 原"></form></td>
				<td height="2" align="center">
				<form method="POST" action="?menu=clean">
					清空 <select name="delday" size="1">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="7" selected>7</option>
<option value="15">15</option>
<option value="30">30</option>
</select> 天以前的主题 
					<input type="submit" value="确定">
				</form>				
</td>
				<td align="right" height="2" valign="top">
<script>ShowPage(<%=TotalPage%>,<%=PageCount%>,"")</script>
</td>
			</tr>
		</table>
		</td>
	</tr>
</table>
</form>
<%


htmlend
%>