menub_del.asp

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

<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<% 
  Lcalss=request.QueryString("Lcalss")
  CLassname=request.QueryString("CLassname")
  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
		        BigID2=rss("id")   '删三级ID
				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 "ProductsAll2.asp?Lcalss="&Lcalss&"&CLassname="&CLassname&""
%>