admin_recycle.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<!--#include file="Admin_Check.asp"-->
<!--#include file="inc/page_Cls.asp"-->
<!--#include file="inc/Ubb_Cls.asp"-->
<%Dim Action,username,bbsID,ID
username=AdminName
Server.ScriptTimeOut=999999
AdminHead()
Action=request.querystring("Action")
Select Case Action
Case "Submit"
	Submit()
Case "See"
	See()
Case "Del"
	Del()
Case "TBInfo"
	TBInfo()
Case "Giveback"
	Giveback()
Case "DelAll"
	DelAll()
Case Else
	Main()
End Select
AdminFooter()
Set BBS94KK=Nothing

Sub Main()
Response.Write"<form name='kk'  style='margin:0' method='POST' action='?Action=Submit'>"
%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
	<tr bgcolor="#4D65A4"><td colspan="4" height="25"><b><font color="#FFFFFF">回收站</font></b></td></tr>	
	<tr>
	  <td height="25" colspan="4"><table width="100%%"  border="0" cellspacing="5" cellpadding="0">
          <tr>
            <td width="84%">【<a href="?"><font color="red">列出全部主题</font></a>】<%=TBList(0)%> </td>
            <td width="16%">【<a onclick=checkclick('您确定要清空回收站的全部帖子吗？') href="?Action=DelAll"><img src="Images/del.gif" width="18" height="18" border="0" align="absmiddle">清空回收站</a>】</td>
          </tr>
        </table></td>
    </tr>
	<tr bgcolor="#D7DAEA">
	  <td width="5%" height="25" align="center"><b>选择</b></td>
	  <td width="55%" align="center"><b>帖子</b></td>
	  <td width="18%" align="center"><b>作者</b></td>
	  <td width="22%" align="center"><b>最后时间</b></td></tr>
<%
	Dim intPageNow,arr_Rs,i,Pages,Conut,page,strPageInfo
	Dim Temp,BbsID
	intPageNow = Request.QueryString("page")
	Set Pages = New Cls_PageView
	Pages.strTableName = "[KK_Topic]"
	Pages.strFieldsList = "TopicID,SqlTableID,Face,Caption,Name,LastTime,BoardID"
	Pages.strCondiction = "IsDel=True"
	Pages.strOrderList = "TopicID desc"
	Pages.strPrimaryKey = "TopicID"
	Pages.intPageSize = 25
	Pages.intPageNow = intPageNow
	Pages.strCookiesName = "Recycle"&BBS94KK.TB'客户端记录总数
	Pages.Reloadtime=3'每三分钟更新Cookies
	Pages.strPageVar = "page"
	Pages.InitClass
	Arr_Rs = Pages.arrRecordInfo
	strPageInfo = Pages.strPageInfo
	Set Pages = nothing
	If IsArray(Arr_Rs) Then
	For i = 0 to UBound(Arr_Rs, 2)
	Set Rs=BBS94KK.Execute("Select BbsID From[KK_Bbs"&Arr_Rs(1,i)&"] Where TopicID="&Arr_Rs(0,i)&" and BoardID="&Arr_Rs(6,i))
	If Not Rs.Eof Then BbsID=Rs(0)
	Rs.Close
		Response.Write"<tr><td><input type='checkbox' name='Topic' value='"&Arr_Rs(0,i)&"|"&Arr_Rs(6,i)&"|"&Arr_Rs(1,i)&"'></td>"&_
		"<td onmouseover=javascript:this.bgColor='#eeeeee' onmouseout=javascript:this.bgColor=''>&nbsp;"&_
		"<img src='pic/face/"&Arr_Rs(2,i)&".gIf' align='absmiddle'><a href=?Action=See&BbsID="&BbsID&">"&BBS94KK.Fun.StrLeft(Arr_Rs(3,i),25)&"</a></td>"&_
		"<td align=center><a target=_blank  href='UserInfo.asp?name="&Arr_Rs(4,i)&"' title='查看 "&Arr_Rs(4,i)&" 的资料'>"&Arr_Rs(4,i)&"</a></td>"&_
		"<td align=center>"&Arr_Rs(5,i)&"</td></tr>"
	Next
	Else
	Response.Write"<tr><td height=25 colspan='6'>没有发现删除的主题帖</td></tr>"
	End If
	%>
<tr bgcolor="#D7DAEA"><td colspan="4"><input type=checkbox name=chkall value=on onClick="CheckAll(this.form)"> 全选
&nbsp;&nbsp;<input type="submit"  value="删除所选" name="Go"><input type="submit" class="submit" value="还原所选" name="Go"></td></tr></form>
<tr bgcolor="#E8F4EF"><td height=20 colspan="4"><%=strPageInfo%></td></tr></tbody></table>
<%
End Sub

Sub TBInfo()
Response.Write"<form name='kk'  style='margin:0' method='POST' action='?Action=Submit'>"
%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
	<tr bgcolor="#4D65A4"><td colspan="4" height="25"><b><font color="#FFFFFF">回收站</font></b></td></tr>	
	<tr>
	  <td height="25" colspan="4">
	  <table width="100%%"  border="0" cellspacing="5" cellpadding="0">
          <tr>
            <td width="84%">【<a href="?">列出全部主题</a>】<%=TBList(BBS94KK.TB)%></td>
            <td width="16%">【<a onclick=checkclick('您确定要清空回收站的全部帖子吗？') href="?Action=DelAll"><img src="Images/del.gif" width="18" height="18" border="0" align="absmiddle">清空回收站</a>】</td>
          </tr>
        </table>
    </tr>
	<tr bgcolor="#D7DAEA">
	  <td width="5%" height="25" align="center"><b>选择</b></td>
	  <td width="55%" align="center"><b>帖子</b></td>
	  <td width="18%" align="center"><b>作者</b></td>
	  <td width="22%" align="center"><b>最后时间</b></td></tr>
<%
	Dim intPageNow,arr_Rs,i,Pages,Conut,page,strPageInfo
	Dim Temp
	intPageNow = Request.QueryString("page")
	Set Pages = New Cls_PageView
	Pages.strTableName = "[KK_BBS"&BBS94KK.TB&"]"
	Pages.strPageUrl = "?TB="&BBS94KK.TB
	Pages.strFieldsList = "BbsID,TopicID,Face,Caption,Name,LastTime,ReplyTopicID,BoardID"
	Pages.strCondiction = "IsDel=True"
	Pages.strOrderList = "BbsID desc"
	Pages.strPrimaryKey = "BbsID"
	Pages.intPageSize = 25
	Pages.intPageNow = intPageNow
	Pages.strCookiesName = "Recycle"&BBS94KK.TB'客户端记录总数
	Pages.Reloadtime=3'每三分钟更新Cookies
	Pages.strPageVar = "page"
	Pages.InitClass
	Arr_Rs = Pages.arrRecordInfo
	strPageInfo = Pages.strPageInfo
	Set Pages = nothing
	If IsArray(Arr_Rs) Then
	For i = 0 to UBound(Arr_Rs, 2)
	Response.Write"<tr><td><input type='checkbox' "
	IF Arr_Rs(1,i)=0 Then
		Response.Write "name='Reply' value='"&Arr_Rs(0,i)&"|"&Arr_Rs(6,i)&"|"&Arr_Rs(7,i)&"|"&BBS94KK.TB&"'"
	Else
		Response.Write "name='Topic' value='"&Arr_Rs(1,i)&"|"&Arr_Rs(7,i)&"|"&BBS94KK.TB&"'"
	End If
	Response.Write"></td>"&_
		"<td onmouseover=javascript:this.bgColor='#eeeeee' onmouseout=javascript:this.bgColor=''>&nbsp;"&_
		"<img src='pic/face/"&Arr_Rs(2,i)&".gIf' align='absmiddle'><a href=?Action=See&BbsID="&Arr_Rs(0,i)&">"&BBS94KK.Fun.StrLeft(Arr_Rs(3,i),25)&"</a></td>"&_
		"<td align=center><a target=_blank  href='UserInfo.asp?name="&Arr_Rs(4,i)&"' title='查看 "&Arr_Rs(4,i)&" 的资料'>"&Arr_Rs(4,i)&"</a></td>"&_
		"<td align=center>"&Arr_Rs(5,i)&"</td></tr>"
	Next
	Else
	Response.Write"<tr><td height=25 colspan='4'>这个数据表中没有发现被删除的帖子</td></tr>"
	End If
	%>
<tr bgcolor="#D7DAEA"><td colspan="4"><input type=checkbox name=chkall value=on onClick="CheckAll(this.form)"> 全选
&nbsp;&nbsp;<input type="submit"  value="删除所选" name="Go"> 
<input type="submit" class="submit" value="还原所选" name="Go"></td>
</tr></form>
<tr bgcolor="#E8F4EF"><td height=20 colspan="4"><%=strPageInfo%></td>
</tr></tbody></table>
<%
End Sub

Sub See()
Dim BbsID,BBS94KK_ubb,EssayType,Sql,TopicID
BbsID=Trim(Request.querystring("BbsID"))

Set Rs=BBS94KK.execute("select BbsID,Caption,Content,Name,LastTime,BoardID,TopicID,ReplyTopicID,UbbString,Face,IP from [KK_Bbs"&BBS94KK.TB&"] where BbsID="&BbsID)
IF Rs.eof then 
	Call GoBack("","该帖不存在或者已经被永久删除")
	Exit Sub
End if
If Rs(7)=0 Then
	EssayType="主题帖：" 
	TopicID=Rs(6)
Else
	EssayType="回复帖："
End If
Set BBS94KK_ubb=New BBS94KKubb_Cls
BBS94KK_ubb.UbbString=Rs(8)
ID=Rs(6)
%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE">
<tbody>
<tr><td bgcolor="#4D65A4" height="25" colspan="2" ><a style="FLOAT: right;" href="?"><b><font color="#FFFFFF">回收站</font></b></a>　<b><font color="#FFFFFF">查看帖子</font></b></td></tr>
<tr bgcolor="#D7DAEA">