<!-- #include file="../Include/Chk.asp" -->
<!-- #include file="../Include/Conn.asp" -->
<%
dim aid
aid=Request.QueryString("aid")
if aid="" then
	Response.Write "<script language='javascript'>alert('參數(shù)錯(cuò)誤 !');document.location.href('area_Manage.asp');</script>"
	Response.End()
end if

SQL="Select * from area where aid="&aid
set rs=server.createobject("Adodb.Recordset")
rs.open sql,conn,3,3
rs.Delete
rs.Update
rs.close
Set rs=Nothing

'====同時(shí)刪除子分類
sql="Delete from Area where pid="&aid
conn.Execute(sql)

Response.Write "<script language='javascript'>alert('成功刪除指定的分類!');document.location.href('area_Manage.asp');</script>"
%>