aa_bbs.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

 <%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************

PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
dim Web_Bbs3
Page_HeadName="<A HREF=Aa_Bbs.asp?Action=Const>论坛基本设置</A>　|　<A HREF=Aa_Board.asp?Action=Add>版块添加</A>　|　<A HREF=Aa_Board.asp?Action=Manage>版块管理</A>　|　<A HREF=Aa_Bbs.asp?Action=Delbbs>删除帖子</A>"
Select Case Action
Case "Delbbs"
Call Page_AdminFlag(50)
Page_BootmName="论坛帖子删除"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Table_List="Tx_Board"
ii=0
Response.write "<TABLE WIDTH=99%  BORDER=0 ALIGN=center cellpadding=1 CELLSPACING=1 bgcolor=#4272D5><TR><TD bgcolor=#FFFFFF><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD ALIGN=center CLASS=Table3>" & Page_BootmName & "</TD></TR></TABLE><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=25 ALIGN=right CLASS=Table9>" & Page_HeadName & "&nbsp;</TD></TR><TR><TD HEIGHT=25 CLASS=Table8><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD WIDTH='60%'>" & Page_BootName & "</TD><TD ALIGN=right></TD></TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#4272D5></TD></TR><TR><TD>"
Response.write "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
               "<Form NAME=Delbdate method=post action=Aa_Bbs.asp?Action=Delbdate>"&_
               "<TR>"&_
               "<TD HEIGHT=23 colspan=2 ALIGN=center CLASS=Table6>删除指定日期内帖子  </TD>"&_
               "</TR>"&_
               "<TR>"&_
               "<TD WIDTH=20% HEIGHT=50 CLASS=Table8>删除多少天前的帖子：</TD>"&_
               "<TD CLASS=Table8><INPUT NAME=Datetime TYPE=text id=Datetime size=22 onkeypress='event.returnValue=IsDigit();'>　请填写数字</TD>"&_
               "</TR>"&_
               "<TR>"&_
               "<TD HEIGHT=30 CLASS=Table8>论坛版块：</TD>"&_
               "<TD CLASS=Table8><select NAME=ClassId CLASS=submit_all id=ClassId><OPTION VALUE=>全部论坛</OPTION>"
			   Call Page_Classx(0)
Response.write "</select></TD></TR>"&_
               "<TR>"&_
               "<TD HEIGHT=35 colspan=2 ALIGN=center CLASS=Table8><INPUT TYPE=submit NAME=Submit CLASS=submit_all VALUE=提交资料></TD>"&_
               "</TR>"&_
               "</form>"&_
               "<Form NAME=DelbdateT method=post action=Aa_Bbs.asp?Action=Delbu>"&_
               "<TR>"&_
               "<TD HEIGHT=23 colspan=2 ALIGN=center CLASS=Table6>删除某用户的所有帖子 </TD>"&_
               "</TR>"&_
               "<TR>"&_
               "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>请输入用户名：</TD>"&_
               "<TD CLASS=Table8><INPUT NAME=UserName TYPE=text id=UserName size=22></TD>"&_
               "</TR>"&_
               "<TR>"&_
               "<TD HEIGHT=30 CLASS=Table8>论坛版块：</TD>"&_
               "<TD CLASS=Table8><select NAME=ClassId CLASS=Wenben1 id=ClassId><OPTION VALUE=>全部论坛</OPTION>"
			   Call Page_Classx(0)
			   Response.write "</select></TD>"&_
               "</TR>"&_
               "<TR>"&_
               "<TD HEIGHT=35 colspan=2 ALIGN=center CLASS=Table8><INPUT CLASS=submit_all TYPE=submit NAME=Submit VALUE=提交资料></TD>"&_
               "</TR>"&_
               "</form>"&_
               "</TABLE>"
Response.write "</TD></TR></TABLE></TD></TR></TABLE>"
case "Delbdate"
IF Request.form("Datetime")="" THEN
Errorst="请输入删除天数！"
founderr=true
End IF
    IF founderr=true THEN
	    Call Form_Error()
    Else
	        Set Rs=server.Createobject("Adodb.RecordSet")
                Sql="Select * From Tx_Bbs Where Bbs_Date>=dateadd('d',-" & Request.form("Datetime") & ",Now())"
                Rs.open Sql,Conn,1,1
				while not Rs.eof
					IF Request.form("ClassId")="" THEN  
						Conn.Execute "Delete From Tx_Bbs Where Bbs_ClassId=" & Rs("Bbs_ClassId")
				    Else
						Conn.Execute "Delete From Tx_Bbs Where Bbs_Board=" & Request.form("ClassId") & " and Bbs_ClassId=" & Rs("Bbs_ClassId")
					End IF
				Rs.moveNext
				wend
		    Rs.close
		    Set Rs=Nothing
	    ToHistory=Request.servervariables("http_referer")
		saveok="帖子删除成功！"
        Call Form_Saveok()
End IF
case "Delbu"
Dim UserRecordcount
    IF Request.form("UserName")<>"" THEN
	    Set Rs=server.Createobject("Adodb.RecordSet")
            Sql="Select * From Tx_User Where User_Name='" & Request.form("UserName") & "'"
            Rs.open Sql,Conn,1,1
		    UserRecordcount=Rs.Recordcount
		Rs.close
		Set Rs=Nothing
	End IF
IF Request.form("UserName")="" THEN
Errorst="请输入要删除的用户名！"
founderr=true
ElseIF UserRecordcount=0 THEN
Errorst="无此用户！"
founderr=true
End IF
    IF founderr=true THEN
	    Call Form_Error()
    Else
	        Set Rs=server.Createobject("Adodb.RecordSet")
                Sql="Select * From Tx_Bbs Where Bbs_Add='" & Request.form("UserName") & "'"
                Rs.open Sql,Conn,1,1
				while not Rs.eof
					IF Request.form("ClassId")="" THEN
					    IF Rs("Bbs_ClassId")=Rs("Bbs_Id") THEN
						    Conn.Execute "Delete From Tx_Bbs Where Bbs_ClassId=" & Rs("Bbs_ClassId")
						Else
						    Conn.Execute "Delete From Tx_Bbs Where Bbs_Id=" & Rs("Bbs_Id")
						End IF
				    Else
					    IF Rs("Bbs_ClassId")=Rs("Bbs_Id") THEN
						    Conn.Execute "Delete From Tx_Bbs Where Bbs_Board=" & Request.form("ClassId") & " and Bbs_ClassId=" & Rs("Bbs_ClassId")
						Else
						    Conn.Execute "Delete From Tx_Bbs Where Bbs_Board=" & Request.form("ClassId") & " and Bbs_ClassId=" & Rs("Bbs_Id")
						End IF
					End IF
				Rs.moveNext
				wend
		    Rs.close
		    Set Rs=Nothing
	    ToHistory=Request.servervariables("http_referer")
		saveok="帖子删除成功！"
        Call Form_Saveok()
	End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>