%IF Session("mem_username") = "" Then Call Alert("您沒有登入會員,請登入會員","/login",0) End IF%>
<%
IF Request("state") = "addInfo" Then
connCon.execute("UPDATE product_order_data SET order_check = '未付款',order_date = '"&date()&"',atm_code = '"&Request("atm_code")&"',order_express = "&Request("order_express")&",order_pay = '"&Request("order_pay")&"',order_pay2 = '"&Request("order_pay2")&"',mem_name = '"&Request("mem_name")&"',mem_mobile = '"&Request("mem_mobile")&"',mem_mail = '"&Request("mem_mail")&"',mem_address = '"&Request("mem_address")&"',mem_name2 = '"&Request("mem_name2")&"',mem_mobile2 = '"&Request("mem_mobile2")&"',mem_mail2 = '"&Request("mem_mail2")&"',mem_address2 = '"&Request("mem_address2")&"',order_time = '"&Request("order_time")&"',mem_note = '"&Request("mem_note")&"',order_invoice = '"&Request("order_invoice")&"',order_invoice2 = '"&Request("order_invoice2")&"',order_invoice3 = '"&Request("order_invoice3")&"' WHERE order_num = '"&Request.Cookies("GodspeedCookies")&"'")
AAmoney = CDbl(Request("order_moneyALL"))+CDbl(Request("order_express"))
AAnum = Request.Cookies("GodspeedCookies")
Response.Cookies("GodspeedCookies")=""
Select case Request("order_pay")
case "信用卡線上刷卡","超商取貨付款"
Response.Redirect "/admin/product_pay?pay_num="&AAnum&"&pay_money="&AAmoney&"&pay_title=天空商城商品購買&order_pay="&Request("order_pay")&"&order_pay2="&Request("order_pay2")&"&mem_name="&Request("mem_name")&"&mem_mobile="&Request("mem_mobile")&"&mem_mail="&Request("mem_mail")&""
case else
Response.Redirect "/member_order"
End Select
Response.end
End IF
%>
<%
IF Request("state") = "delCart" Then
Set ars = Server.CreateObject("ADODB.Recordset")
ars.open "delete from product_order_data where mem_auto="&Request("mem_auto")&"", connCon, 1, 3
set ars = nothing
Set c2rs = connCon.Execute("SELECT sum(p_moneyALL) as p_moneyALLSUM FROM product_order_data Where order_num = '"&Request.Cookies("GodspeedCookies")&"'")
IF c2rs("p_moneyALLSUM") <> "" Then
connCon.execute("UPDATE product_order_data SET order_moneyALL = "&c2rs("p_moneyALLSUM")&" WHERE order_num = '"&Request.Cookies("GodspeedCookies")&"'")
End IF
Call Alert("刪除商品成功","/shopcart",0)
Response.end
End IF
%>
<%
IF Request("state") = "addCart" Then '更改數量後的修改
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM product_order_data Where mem_auto = "&Request("mem_auto")&""
rs.Open SQL,connCon,1,3
rs("p_count") = Request("p_count")
rs("p_moneyALL") = rs("p_money")*Request("p_count")
rs("p_2percent") = rs("p_percent2")*Request("p_count")
rs("p_3percent") = rs("p_percent")*Request("p_count")
IF rs("p_percent3") <> 0 Then
rs("p_5percent") = rs("p_percent3")*Request("p_count")
End IF
rs.update
rs.close
Set rs = nothing
Set crs = connCon.Execute("SELECT sum(p_moneyALL) as p_moneyALLSUM FROM product_order_data Where order_num = '"&Request.Cookies("GodspeedCookies")&"'")
connCon.execute("UPDATE product_order_data SET order_moneyALL = "&crs("p_moneyALLSUM")&" WHERE order_num = '"&Request.Cookies("GodspeedCookies")&"'")
End IF
%>
<%
Set R1 = Server.CreateObject("ADODB.Recordset")
R1.open "SELECT * FROM product_order_data Where order_num = '"&Request.Cookies("GodspeedCookies")&"' ORDER BY mem_auto DESC", connCon, 1, 1
%>
<%IF R1.BOF AND R1.EOF Then Call Alert("您沒有選擇任何商品","/index",0) End IF%>
<%
Set R1a = connCon.Execute("SELECT * FROM member Where mem_num = '"&Session("mem_num")&"'")
%>
商品購物車 | <%=Session("SERVER_NAME")%>
<%
R1.Close()
Set R1 = Nothing
%>