<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<!--#include file="top.asp"-->
<%
if shopnet("qgid")<>"" then
'conn.execute("Delete * from qiugou where id="&shopnet("qgid"))

set rs=server.createobject("adodb.recordset")
sql="select lbid,xlbid,slbid from qiugou where id="&shopnet("qgid") 
rs.open sql,conn,1,1
lbid=rs("lbid")
xlbid=rs("xlbid")
slbid=rs("slbid")
rs.close
Set rs=nothing
conn.execute("Update lb set qgnum=qgnum-1 where lbid="&lbid&"")
conn.execute("Update xlb set qgnum=qgnum-1 where lbid="&lbid&" and xlbid="&xlbid&"")
conn.execute("Update slb set qgnum=qgnum-1 where lbid="&lbid&" and xlbid="&xlbid&" and slbid="&slbid&"")
End If
%>
<Script>alert('您求购的商品成功删除');window.location='myqiugou.asp';</script>
