del_menu.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<% 
  id=request.QueryString("idd")

  set rs=Server.CreateObject("adodb.recordset")
  rs.source="select * from deeptree where  id="&id     '找一级
  rs.open rs.source,conn,1,1
  if not rs.eof then
  BigID1=rs("id")  '一级ID唯一
	   
       set rss=Server.CreateObject("adodb.recordset")
       rss.source="select * from deeptree where parentid="&BigID1   '找二级
       rss.open rss.source,conn,1,1
	   while not rss.eof
	   'if not rss.eof then 
	          BigID2=rss("id")
		      set rsss=Server.CreateObject("adodb.recordset")
              rsss.source="select * from deeptree where parentid="&BigID2
              rsss.open rsss.source,conn,1,1
			          while not rsss.eof
			          'if not rss.eof then 
		               BigID3=rsss("id")
				       conn.execute("Delete From deeptree where id="&BigID3&"")
					   rsss.movenext
                       wend
                       rsss.Close
                       set rsss=nothing
			conn.execute("Delete From deeptree where id="&BigID2&"")
			rss.movenext
            wend
            rss.Close
            set rss=nothing
  conn.execute("Delete From deeptree where id="&id&"")
  '///同时要删除该目录下的产品like 
  conn.execute("Delete From Products where LSort like '%"&BigID1&"%'")  '删该一级目录的产品
  '///end 删除产品
  rs.close
  set rs=nothing
  end if
  response.redirect "ProductsAll.asp"
%>