<!-- #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
Response.Write "<script language='javascript'>alert('成功刪除指定的分類(lèi)!');document.location.href('area_Manage.asp');</script>"
%>