<!--#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")&""
%>