📄 area_del.asp
字号:
<!-- #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('参数错误 !');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
'====同时删除子分类
sql="Delete from Area where pid="&aid
conn.Execute(sql)
Response.Write "<script language='javascript'>alert('成功删除指定的分类!');document.location.href('area_Manage.asp');</script>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -