<!--#include file="check.asp"-->
<!--#include file="webconn.asp"-->
<%
id=request("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from webmenu where m_top='"& id &"'"
'response.Write(sql)
'response.End()
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then 
response.write "<script>alert('信息提示：\n\n请先删除当前类别的子目录！');history.go(-1);</Script>"
else
Set rsw = Server.CreateObject("ADODB.Recordset")
sql="select * from webmenu where m_name='"& id &"'"
rsw.open sql,conn,1,3
if not rsw.eof and not rsw.bof then 
rsw.delete
rsw.update
else
response.write "<script>alert('信息提示：\n\n此目录不存在！');history.go(-1);</Script>"
end if
response.Redirect("main.asp?adminjob=webmenu")
end if
%>
