admin_recycle.asp

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

  <td height="25" colspan="2" bgcolor="#E6F8FF"><%=EssayType&BBS94KK.Fun.HtmlCode(Rs(1))%><hr size="1" color=#DCE2E4>
  <blockquote><span style='line-height:150%;table-layout:fixed;word-wrap:break-word;word-break:break-all; width:100%'>
<img src='pic/face/<%=Rs(9)%>.gIf' align='absmiddle'>
<%If Rs(7)=0 Then Response.Write "<b>"&BBS94KK.Fun.HtmlCode(Rs(1))&"</b>"%>
<br>
<%=BBS94KK_ubb.UBB(Rs(2),1)%></Span></blockquote>
<hr size="1" color=#DCE2E4>
<div style="FLOAT: right;">【<a href="?Action=Del&BbsID=<%=Rs(0)%>&TopicID=<%=Rs(6)%>&TB=<%=BBS94KK.TB%>"><img src="Images/del.gif" width="18" height="18" border="0" align="absmiddle">永久删除</a>】 【<a href="?Action=Giveback&BbsID=<%=Rs(0)%>&TB=<%=BBS94KK.TB%>&BoardID=<%=Rs(5)%>"><img src="Images/giveback.gif" width="16" height="16" border="0" align="absmiddle">还原帖子</a>】</div>
<font color="#224021">帖子作者：<%=Rs(3)%>&nbsp;&nbsp;IP：<%=Rs(10)%>&nbsp;&nbsp;更新时间：<%=Rs(4)%></font></td>
</tr>
<%Rs.Close
If EssayType="主题帖：" Then
Set Rs=BBS94KK.execute("select BbsID,Caption,Content,Name,LastTime,BoardID,TopicID,ReplyTopicID,UbbString,Face,IP from [KK_Bbs"&BBS94KK.TB&"] where ReplyTopicID="&TopicID)
Do while not Rs.Eof
BBS94KK_ubb.UbbString=Rs(8)
ID=Rs(6)%>
<tr bgcolor="#DEF0FE">
  <td height="25" colspan="2" bgcolor="#F4FBFF"><%=BBS94KK.Fun.HtmlCode(Rs(1))%><hr size="1" color=#DCE2E4>
    <blockquote><span style='line-height:150%;table-layout:fixed;word-wrap:break-word;word-break:break-all; width:100%'>
<img src='pic/face/<%=Rs(9)%>.gIf' align='absmiddle'>
<%If Rs(7)=0 Then Response.Write "<b>"&BBS94KK.Fun.HtmlCode(Rs(1))&"</b>"%>
<br><%=BBS94KK_ubb.UBB(Rs(2),1)%></Span></blockquote><hr size="1" color=#DCE2E4>
<div style="FLOAT: right;">【<a href="?Action=Del&BbsID=<%=Rs(0)%>&TopicID=<%=Rs(6)%>&TB=<%=BBS94KK.TB%>"><img src="Images/del.gif" width="18" height="18" border="0" align="absmiddle">永久删除</a>】</div><font color="#224021">&nbsp;帖子作者：<%=Rs(3)%>&nbsp;&nbsp;IP：<%=Rs(10)%>&nbsp;&nbsp;更新时间：<%=Rs(4)%></font>  </td>
  </tr>
<%
Rs.movenext
Loop
Rs.close
End If

Set BBS94KK_ubb=Nothing
%><tr bgcolor="#E8F4EF"><td height="25" colspan="2" align="center"><a href=javascript:history.go(-1)>【返回】</a></td>
    </tr>
</tbody>
</table>
<%
End Sub


Sub Del()
	Dim BbsID,TopicID
	BbsID=Request.querystring("BbsID")
	TopicID=request.querystring("TopicID")
	If TopicID=0 then
	BBS94KK.Execute("Delete From [KK_Bbs"&BBS94KK.TB&"] where IsDel=True And BbsID="&BbsID)
	BBS94KK.Execute("Delete From [KK_Appraise] where BbsID="&BbsID&" And TopicID="&TopicID)
	Call Suc("","成功删除了这个回复帖！","?")
	Else
	BBS94KK.Execute("Delete From [KK_Topic] where IsDel=True And TopicID="&TopicID)
	BBS94KK.Execute("Delete From [KK_TopicVote] where TopicID="&TopicID)
	BBS94KK.Execute("Delete From [KK_TopicVoteUser] where TopicID="&TopicID)
	BBS94KK.Execute("Delete From [KK_Bbs"&BBS94KK.TB&"] where IsDel=True And (BbsID="&BbsID&" or ReplyTopicID="&TopicID&")")
	BBS94KK.Execute("Delete From [KK_Appraise] where TopicID="&TopicID)
	Call Suc("","成功删除这个主题（包括其回复帖）！","?")
	End if
End Sub

Sub DelAll()
	Dim AllTable,I
	AllTable=Split(BBS94KK.BBSTable(0),",")
	For i=0 To uBound(AllTable)
		BBS94KK.Execute("Delete From [KK_Bbs"&AllTable(i)&"] where IsDel=True")
	Next
	BBS94KK.Execute("Delete From [KK_Topic] where IsDel=True")
	BBS94KK.execute("delete * from [KK_TopicVote] where  not exists (select name from [KK_Topic] where [KK_TopicVote].TopicID=[KK_Topic].TopicId)")
	BBS94KK.execute("delete * from [KK_TopicVoteUser] where  not exists (select name from [KK_Topic] where [KK_TopicVoteUser].TopicID=[KK_Topic].TopicId)")
	BBS94KK.execute("delete * from [KK_Appraise] where  not exists (select TopicID from [KK_Topic] where [KK_Appraise].TopicID=[KK_Topic].TopicId)")
	Call Suc("","成功清空了回收站！","?")
End Sub

Sub Giveback
	Dim BbsID,TopicID,ReplyTopicID,BoardID,Temp
	BbsID=request.querystring("BbsID")
	Set Rs=BBS94KK.Execute("Select TopicID,ReplyTopicID,BoardID,IsDel From[KK_Bbs"&BBS94KK.TB&"] where BbsID="&BbsID)
	IF Rs.eof Then
		Call GoBack("","该帖不存在或者已经被永久删除"):Exit Sub
	ElseIf Rs(3)=False Then
		Call Suc("","该帖已经恢复了","?"):Exit Sub
	End IF
	If Rs(0)=0 And Rs(1)<>0 then
		BBS94KK.Execute("Update [KK_Config] Set AllEssayNum=AllEssayNum+1")
		BBS94KK.Execute("Update [KK_Board] Set EssayNum=EssayNum+1 Where BoardID="&Rs(2)&" And ParentID<>0")
		BBS94KK.Execute("Update [KK_Topic] Set ReplyNum=ReplyNum+1,IsDel=False where TopicID="&Rs(1))
		BBS94KK.Execute("Update [KK_Bbs"&BBS94KK.TB&"] Set IsDel=False where TopicID="&Rs(1)&" or BbsID="&BbsID)
	Else
		Temp=BBS94KK.Execute("Select Count(BbsID) From[KK_bbs"&BBS94KK.TB&"] where ReplyTopicID="&Rs(0)&" And BoardID="&rs(2))(0)
		If Isnull(Temp) Then Temp=0
		BBS94KK.Execute("Update [KK_Config] Set TopicNum=TopicNum+1,AllEssayNum=AllEssayNum+"&Temp+1&"")
		BBS94KK.Execute("Update [KK_Board] Set EssayNum=EssayNum+"&Temp+1&",TopicNum=TopicNum+1 Where BoardID="&Rs(2)&" And ParentID<>0")
		BBS94KK.Execute("Update [KK_Topic] Set ReplyNum="&Temp&",IsDel=False where TopicID="&Rs(0))
		BBS94KK.Execute("update [KK_Bbs"&BBS94KK.TB&"] Set IsDel=False where BbsID="&BbsID&" or ReplyTopicID="&Rs(0))
	End if
	Rs.Close
	Call Suc("","成功的恢复帖子","?")
End Sub

Sub Submit()
Dim Topic,Reply,Go,Temp,i
Topic=Request.form("Topic")
Reply=Request.form("Reply")
IF Topic="" And Reply="" Then Call GoBack("","请先选择项目。"):Exit Sub
Topic=split(Topic,",")
Reply=split(Reply,",")
Go=Request.form("Go")
	If Go="删除所选" then
		For i=0 to ubound(Topic)
		Temp=split(Topic(I),"|")
		BBS94KK.Execute("Delete From [KK_Bbs"&Temp(2)&"] where TopicID="&Temp(0)&" or ReplyTopicID="&Temp(0))
		BBS94KK.Execute("Delete From [KK_Topic] where TopicID="&Temp(0))
		BBS94KK.Execute("Delete From [KK_TopicVote] where TopicID="&Temp(0))
		BBS94KK.Execute("Delete From [KK_TopicVoteUser] where TopicID="&Temp(0))
		BBS94KK.Execute("Delete From [KK_Appraise] where TopicID="&Temp(0))
		Next
		For i=0 to ubound(Reply)
		Temp=split(Reply(I),"|")
		BBS94KK.Execute("Delete From [KK_Bbs"&Temp(3)&"] where BbsID="&Temp(0)&" And IsDel=True")
		BBS94KK.Execute("Delete From [KK_Appraise] where BbsID="&Temp(0)&" And TopicID="&Temp(1))
		Next
		Call Suc("","成功的删除所选的帖子","?")
	ElseIF Go="还原所选" then
		Dim TempNum
		For i=0 to ubound(Topic)
			Temp=split(Topic(I),"|")
			TempNum=BBS94KK.Execute("Select Count(BbsID) From[KK_bbs"&Temp(2)&"] where ReplyTopicID="&Temp(0)&" And BoardID="&Temp(1))(0)
			If Isnull(TempNum) Then TempNum=0
			BBS94KK.Execute("Update [KK_Config] Set TopicNum=TopicNum+1,AllEssayNum=AllEssayNum+"&TempNum+1&"")
			BBS94KK.Execute("Update [KK_Board] Set EssayNum=EssayNum+"&TempNum+1&",TopicNum=TopicNum+1 Where BoardID="&Temp(1)&" And ParentID<>0")
			BBS94KK.Execute("Update [KK_Topic] Set ReplyNum="&TempNum&",IsDel=False where TopicID="&Temp(0))
			BBS94KK.Execute("update [KK_Bbs"&Temp(2)&"] Set IsDel=False where TopicID="&Temp(0)&" or ReplyTopicID="&Temp(0))
		Next
		For i=0 to ubound(Reply)
		Temp=split(Reply(I),"|")
		Set Rs=BBS94KK.Execute("Select Top 1 BbsID From[KK_Bbs"&Temp(3)&"] where BbsID="&Temp(0)&" And IsDel=True")
		If Not Rs.Eof Then
		BBS94KK.Execute("Update [KK_Config] Set AllEssayNum=AllEssayNum+1")
		BBS94KK.Execute("Update [KK_Board] Set EssayNum=EssayNum+1 Where BoardID="&Temp(2)&" And ParentID<>0")
		BBS94KK.Execute("Update [KK_Topic] Set ReplyNum=ReplyNum+1,IsDel=False where TopicID="&Temp(1))
		BBS94KK.Execute("Update [KK_Bbs"&Temp(3)&"] Set IsDel=False where TopicID="&Temp(1)&" or BbsID="&Temp(0))
		End If
		Rs.Close
		Next
		Call Suc("","成功的还原所选的帖子","?")
	End If
End SUB



Function TBList(Num)
	Dim AllTable,I,Temp
	AllTable=Split(BBS94KK.BBSTable(0),",")
	For i=0 To uBound(AllTable)
		If Int(AllTable(i))=Int(Num) Then
		Temp=Temp&"【<font Color=red>数据表"&AllTable(i)&"</font>】"
		Else
		Temp=Temp&"【<a href='?Action=TBInfo&TB="&AllTable(i)&"'>数据表"&AllTable(i)&"</a>】"
		End IF
	next
	TBList=Temp
End Function
%>

<script language="JavaScript">
<!--
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>