<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strID ,strUrl ,strParentID
	strID = Request.QueryString("ID")
	strParentID = Request.QueryString("ParentID")
	If strParentID = "NULL" Then 
		strUrl = "Index_BBS.asp"
	ElseIf strParentID <> "" Then
		strUrl = "INdex_BBSContent.asp?ID="&strParentID
	End If
	If strID &"" = "" Then
		Response.Write("參數(shù)錯誤！")
		Response.End
	End If 
	If Session("UserType") = "管理員" Or Session("UserType") = "教師" Then		
		Dim rs ,strSql 
		strSql = "DELETE FROM BBS WHERE ID = "& strID
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.open strSql,conn,3,1
		Response.Redirect(strUrl)
	Else
		Response.Write("對不起，您沒有進行此操作的權(quán)限！")
		Response.End
	End If
	
	
%>