user_del.asp

一个较好的网上购物系统 是基于ASP的多用户网上商城

<%
if session("admin")<>"smallstick" then
response.redirect "login.asp"
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
Set rs1=Server.CreateObject("Adodb.Recordset")
sql1="select  * from user_info where user_id="&request("user_id")&""
rs1.open sql1,conn,1,3
if rs1.eof or rs1.bof then
%>
<table width="75%" border="1">
  <tr>
    <td>找不到该会员!</td>
  </tr>
</table>
<%
else

if rs1("shop_img")<>"" then
tempfpath="../"&rs1("shop_img")
FiLePaTh = Server.MapPath(tempfpath)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(FiLePaTh)
Set fso = nothing
end if

conn.execute("delete * from user_info where user_id="&request("user_id")&" ")
end if
rs1.close
set rs1=nothing

Set rs2=Server.CreateObject("Adodb.Recordset")
sql2 = "select * from goods_info where user_id="&request("user_id")&""
rs2.open sql2,conn,1,3
if rs2.eof or rs2.bof then
%>
<table width="75%" border="1">
  <tr>
    <td>该会员没有发布任何商品!</td>
  </tr>
</table>
<%
else

do while not rs2.eof 

if rs2("goods_pic")<>"" then
tempfpath="../"&rs2("goods_pic")
FiLePaTh = Server.MapPath(tempfpath)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(FiLePaTh)
Set fso = nothing
end if

conn.execute("delete * from goods_info where goods_id="&rs2("goods_id")&"")

rs2.movenext
loop

end if
rs2.close
set rs2=nothing

conn.close
set conn=nothing

response.redirect("user_list.asp")
%>