del.asp

亿众购物系统 一套设计完善、高效的web商城解决方案

<!--#include file="../Session.asp"-->
<link href="../../css/site.css" rel="stylesheet" type="text/css">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select State from OrderForm where id="&Request("id")&""
rs.open sql,conn,0,1
if rs("State")>1 then
	Response.write "<script>alert(""订单已经受理，不能删除！"");history.go(-1);</script>"
	response.end
elseif rs("State")=1 then
	Response.write "<script>alert(""请先作废订单，再删除！"");history.go(-1);</script>"
	response.end
else
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql="select * from OrderList where OrderFormId="&Request("id")&""
	rs.open sql,conn,0,1
	For I = 1 To rs.RecordCount
'消费总额中减去相应金额(已经在"作费"时减去了)
	'conn.execute("Update Member set Money=Money-("&rs("Money2")&"*"&rs("Amount")&") where id="&Request("memberid")&"")
'商品库存中加上相应数量
	conn.execute("Update Merchandise set Stock=Stock+"&rs("Amount")&" where id="&Rs("cpid")&"")
	rs.MoveNext
	Next
'删除订单号
	conn.execute("Delete From OrderForm where id="&Request("id")&"")
'删除订单号下的商品
	conn.execute("Delete From OrderList where OrderFormId="&Request("id")&"")
end if
rs.close
set rs=nothing
Response.write "<script>alert(""删除成功！"");location.href="""";</script>"
Response.redirect "default.asp?page="&Request("page")&""
%>