📄 trash.asp

📁 一个叫做雪人的论坛源码
💻 ASP
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->
<HTML>
<HEAD>
<TITLE>列表</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="admin.css" type="text/css">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<%
if (not isempty(request("idlist"))) and (request("mode") = "resume") then
	idlist=request("idlist")
	if instr(idlist,",")>0 then
		strid=split(idlist)
		for i = 0 to ubound(strid)
			id=clng(strid(i))
			StrSql = "update sf_thread set visible = 1 where threadid = " & id
			Conn.Execute(StrSql)
			StrSql = "update sf_post set visible = 1 where threadid = " & id
			Conn.Execute(StrSql)
		next
	else
		StrSql = "update sf_thread set visible = 1 where threadid = " & clng(idlist)
		Conn.execute(StrSql)
	end if
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF" align="center">恢复指定主题完毕</TD>
  </TR>
</TABLE>
<BR><BR><BR>
<%
end if
if request("mode") = "clear" then
	StrSql = "delete from sf_thread where visible = 0"
	Conn.execute(StrSql)
	StrSql = "delete from sf_post where visible = 0"
	Conn.execute(StrSql)
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF" align="center">回收站已经清空</TD>
  </TR>
</TABLE>
<BR><BR><BR>
<%
end if
%>
<FORM name="form1" method="post" action="trash.asp">
  <TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
    <TR> 
      <TD bgcolor="#D1E3BF" align="center" colspan="2"><B>清空回收站</B></TD>
    </TR>
    <TR bgcolor="#F5F5F5"> 
          <TD width="30%"><INPUT type="checkbox" name="mode" value="clear"><FONT color="red">清空回收站(不可恢复)</FONT></TD><TD><INPUT type="submit" name="delall" value=" 确定 "></TD>
    </TR>
  </TABLE>
</FORM>
<BR><BR>
<FORM name="form3" method="post" action="trash.asp?mode=resume">
  <TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
    <TR> 
      <TD bgcolor="#D1E3BF" align="center" colspan="2"><B>快速恢复</B></TD>
    </TR>
    <TR bgcolor="#F5F5F5"> 
          <TD>主题ID:</TD><TD><INPUT type="text" name="idlist" size="6"> &nbsp; <INPUT type="submit" name="Submit" value=" 恢复 " onclick="MM_validateForm('threadid','主题ID','RisNum');return document.MM_returnValue"></TD>
    </TR>
  </TABLE>
</FORM>
<!--#INCLUDE FILE="../inc/inc.js"-->
<BR><BR>
<FORM name="form2" method="post" action="trash.asp?mode=resume">
<%
page = request("page")
if page = "" then
	page = 1
else
	if not IsNumeric(page) then
		page = 1
	else
		page = clng(page)
	end if
end if

Set rs = Server.CreateObject("ADODB.Recordset")
strsql = "select * from sf_thread where visible = 0 "
rs.Open strsql, Conn, 1, 1
if not (rs.bof or rs.eof) then
	i = 1
	rs.PageSize = 30
	if page > rs.PageCount then page = rs.PageCount
	rs.AbsolutePage = page
	pagecount = rs.PageCount
	response.write "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" align=""center"">"
	response.write "<tr bgcolor=""#D1E3BF""><td width=""5%"" align=""center""></td><td width=""40%"" align=""center"">主题 (点击查看主题)</td><td width=""20%"" align=""center"">作者 (点击修改)</td><td width=""10%"" align=""center"">帖子</td><td width=""25%"" align=""center"">最后发表</td></tr>"
	do until rs.eof or i > rs.PageSize
		if (i mod 2) = 0 then
			response.write "<tr bgcolor=""#FFFFFF"">"
		else
			response.write "<tr bgcolor=""#F5F5F5"">"
		end if
		response.write "<td><input type=""checkbox"" name=""idlist"" value=""" & rs("threadid") & """></td>"
		response.write "<td><a href=""../showthread.asp?threadid=" & rs("threadid") & """><b>" & rs("title") & "</b></a></td>"
		response.write "<td><a href=""edituser.asp?userid=" & rs("postuserid") & """><b>" & rs("postusername") & "</b><br>" & rs("dateline") & "</a></td>"
		response.write "<td align=""center"">" & rs("replycount") & "</td>"
		response.write "<td>" & rs("lastpost") & "<br><a href=""../showuser.asp?userid=" & rs("lastposterid") & """>" & rs("lastposter") & "</a></td>"
		response.write "</tr>"
		i = i + 1
		rs.MoveNext
	loop
	response.write "<tr><td colspan=""5"" align=""center""><INPUT type=""submit"" name=""Submit1"" value=""恢复选定主题""><br>回收站内当前共有"& rs.RecordCount & "个主题, 每页显示30人, 当前为第" & page & "页<BR>选择页数:"
	response.write StrHtml
	Set Conn = nothing
	Set rs = nothing
	for i=1 to pagecount
		if i = page then
			response.write " &nbsp;(" & i & ")"
		else
			response.write " &nbsp;<a href=""trash.asp?page=" & i & """><B>" & i & "</B></a>"
		end if
	next
	response.write "</td></tr></table>"
else
	response.write "当前回收站为空"
end if
%>
</FORM>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -