?? del.asp
字號:
<!--#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")&""
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -