<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 產品名稱：臺訊企業全站管理系統（V2006簡體中文版）' 程序開發：HECHENn（QQ：34103037　Emial：hechenn@126.com）' 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()
%>