del_menub.asp

来自「管理登录system 管理员：admin 密码：admin888 数据」· ASP 代码 · 共 48 行

<!--#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
		        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 
  
%>
<table  width="349" style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4;font-family: 宋体;font-size:10pt" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr bgcolor="#AED2E6" >
      <td height="20" align="center" bgcolor="#C6BEC6"><b>
    </b></td>
  </tr>
  <tr align="center"> 
    <td height="115" bgcolor="#F2F2F2">
 <br><br>
 请返回并刷新页面<br>
 <br>
		 <input type="button" value=" 返 回 " onclick="javascript:history.back()">
	     <br>
	     <br>按确定键返回“栏目列表首页”<br>
	     <br>
         <input type="submit" value=" 确 定 " onclick="javascript:window.location='ProductsAll.asp'">
</td>
  </tr>
</table>