<%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")%>

購物車

<%while not R1.EOF%> "> <%R1.movenext%> <%wend%>
商品 價格 數量 總計
" alt="<%=R1("p_img")%>">

<%=R1("p_title")%>(<%=R1("p_hot2")%>)

$<%=R1("p_money")%> $<%=R1("p_moneyALL")%> ';">
<%Set F_order_moneyALL = connCon.Execute("SELECT * FROM product_order_data Where order_num = '"&Request.Cookies("GodspeedCookies")&"'")%> <%Set express = connCon.Execute("SELECT * FROM member Where mem_num = '"&F_order_moneyALL("company_num")&"'")%>
">
<%Select case F_order_moneyALL("p_hot2")%> <%Case "一般"%> <%IF express("express1") <> 0 Then%> <%IF F_order_moneyALL("order_moneyALL") <= express("express1") Then%> "> <%order_express = express("express2")%> <%Else%> "> <%order_express = express("express3")%> <%End IF%> <%Else%> <%order_express = 0%> <%End IF%> <%Case "冷凍"%> <%IF express("express11") <> 0 Then%> <%IF F_order_moneyALL("order_moneyALL") <= express("express11") Then%> "> <%order_express = express("express22")%> <%Else%> "> <%order_express = express("express33")%> <%End IF%> <%Else%> <%order_express = 0%> <%End IF%> <%Case "冷藏"%> <%IF express("express111") <> 0 Then%> <%IF F_order_moneyALL("order_moneyALL") <= express("express111") Then%> "> <%order_express = express("express222")%> <%Else%> "> <%order_express = express("express333")%> <%End IF%> <%Else%> <%order_express = 0%> <%End IF%> <%Case else%> <%order_express = 0%> <%End Select%>
寄件人資料
" required>
" required>
" required>
<%=R1a("mem_address2")%><%=R1a("mem_address3")%>" required>
收件人資料







國泰世華銀行-八德分行
戶名:天空商城有限公司
帳號:077-03-500322-6


銀行代號:013,帳號:077-03-500322-6

">
<%Select Case CDbl(F_order_moneyALL("p_moneyKind"))%> <%Case 0%>
<%Case 3%>
<%Case 6%>
<%Case 12%>
<%Case 18%>
<%Case 24%>
<%Case 30%>
<%End Select%> skybni
<% R1.Close() Set R1 = Nothing %>