delcom.asp

一个功能很全面占用空间的小商城程序,适合个人网上开店使用

<%
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"-->
<%set rs=server.createobject("adodb.recordset")
sql="select * from member where user_id="&request("user_id")
rs.open sql,conn,3,3
if rs.eof then
    response.write "没有这个商店的信息,请确认通过了申请"
    response.end
else
    rs("user_yes")=false
    rs("user_company")=""
    rs.update
    response.write "<center>"
    response.write "<font color=red>已经撤消这个用户的商店拥有权!</font>"
end if
rs.close
sql="select * from hw where user_company='"&request("user_company")&"'"
rs.open sql,conn,3,3
if rs.eof then
    response.write "没有这个商店的信息,请确认通过了申请"
    response.end
else
    goodsno=rs.recordcount
    set rs1=server.createobject("adodb.recordset")
    do while goodsno>0
    sql1="select * from hw where user_company='"&request("user_company")&"'"
    rs1.open sql1,conn,3,3
    rs1.delete
    rs1.update
    rs1.close
    goodsno=goodsno-1
   loop
  set rs1=nothing
    response.write "<font color=red>该商店所有商品删除成功</font>"
end if
rs.close
sql="select * from orders where user_company='"&request("user_company")&"'"
rs.open sql,conn,3,3
if rs.eof then
    response.write "没有这个商店的信息,请确认通过了申请"
    response.end
else
    orderno=rs.recordcount
    set rs1=server.createobject("adodb.recordset")
    do while orderno>0
    sql1="select * from orders where user_company='"&request("user_company")&"'"
    rs1.open sql1,conn,3,3
    rs1.delete
    rs1.update
    rs1.close
    orderno=orderno-1
   loop
  set rs1=nothing
    response.write "<font color=red>该商店所有定单删除成功</font>"
end if
rs.close
%>

<script language=Javascript>
<!--
alert("删除成功！");
window.location="admincom.asp"
//-->
</script>