<% IF Request("state") = "addCart" Then '檢查不重複加入同商品到購物車 IF Session("mem_username") = "" Then Call Alert("您沒有登入會員，請登入會員","/login",0) End IF Set brs = connCon.Execute("SELECT * FROM product_order_data Where order_num = '"&Request.Cookies("GodspeedCookies")&"'") IF not brs.BOF AND not brs.BOF Then IF brs("p_hot2") <> Request("p_hot2") Then Call Alert("不可以購買不同商品分類的商品",0,0) End IF IF CDbl(brs("p_moneyKind")) <> CDbl(Request("p_moneyKind")) Then Call Alert("不可以購買不同刷卡分期的商品",0,0) End IF End IF order_num2 = Request.Cookies("GodspeedCookies")&Request("p_num") Set rs = Server.CreateObject("ADODB.Recordset") '加入商品到購物車 SQL="SELECT * FROM product_order_data Where order_num2='"&order_num2&"'" rs.Open SQL,connCon,1,3 IF rs.Eof And rs.Bof Then rs.addnew rs("order_num") = Request.Cookies("GodspeedCookies") rs("order_num2") = order_num2 rs("p_num") = Request("p_num") rs("p_title") = Request("p_title") rs("p_img") = Request("p_img") rs("p_count") = Request("p_count") rs("p_size") = Request("p_size") rs("order_check") = "訂購中" rs("order_pay") = "無" rs("mem_name") = Session("mem_name") rs("mem_num") = Session("mem_num") rs("mem_code") = Session("mem_code") rs("company_num") = Request("company_num") rs("p_percent") = Request("p_percent") rs("p_percent2") = Request("p_percent2") rs("p_percent3") = Request("p_percent3") rs("p_percent31") = Request("p_percent31") rs("p_3percent") = Request("p_percent")*Request("p_count") rs("p_2percent") = Request("p_percent2")*Request("p_count") IF Request("p_percent3") <> 0 Then rs("p_5percent") = Request("p_percent3")*Request("p_count") Else rs("p_5percent") = Request("p_percent31") End IF rs("p_hot2") = Request("p_hot2") rs("p_moneyKind") = Request("p_moneyKind") Set S1 = connCon.Execute("SELECT * FROM product_data Where p_num='"&Request("p_num")&"'") Select Case CDbl(Request("p_moneyKind")) Case 0 rs("order_pay2") = "" rs("p_money") = S1("p_money") rs("p_moneyALL") = S1("p_money")*Request("p_count") Case 3 rs("order_pay2") = "3" rs("p_money") = S1("p_money3")*3 rs("p_moneyALL") = S1("p_money3")*3*Request("p_count") Case 6 rs("order_pay2") = "6" rs("p_money") = S1("p_money6")*6 rs("p_moneyALL") = S1("p_money6")*6*Request("p_count") Case 12 rs("order_pay2") = "12" rs("p_money") = S1("p_money12")*12 rs("p_moneyALL") = S1("p_money12")*12*Request("p_count") Case 18 rs("order_pay2") = "18" rs("p_money") = S1("p_money18")*18 rs("p_moneyALL") = S1("p_money18")*18*Request("p_count") Case 24 rs("order_pay2") = "24" rs("p_money") = S1("p_money24")*24 rs("p_moneyALL") = S1("p_money24")*24*Request("p_count") Case "30" rs("order_pay2") = "30" rs("p_money") = S1("p_money30")*30 rs("p_moneyALL") = S1("p_money30")*30*Request("p_count") End Select 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")&"'") Call Alert("加入購物車成功","/categoryDetail?mem_auto="&Request("mem_auto")&"",0) Else Call Alert("此商品已經加入購物車","/categoryDetail?mem_auto="&Request("mem_auto")&"",0) End IF End IF %> <% Set R1 = Server.CreateObject("ADODB.Recordset") R1.open "SELECT * FROM product_data Where mem_auto = "&Request("mem_auto")&"", connCon, 1, 1 %> <%IF R1.BOF AND R1.EOF Then Call Alert("這個商品已經下架","/index",0) End IF%> <%=R1("meta_title")%>

<%=R1("meta_h1")%>

" title="skybni" data-open-effect="bounceInDown" data-close-effect="bounceOutDown" data-open-speed="1000" data-close-speed="1000" data-blur-bg="true"> " alt="skybni">

<%=R1("p_num")%>

<%=R1("p_title")%>

<%=R1("p_explan")%>

<%IF R1("p_percent") <> 0 Then%> <%=R1("p_percent")%>%回饋金：<%=FormatNumber(R1("p_money")*R1("p_percent")/100,0)%>元
<%End IF%> <%IF R1("p_percent3") <> 0 Then%> <%=R1("p_percent3")%>%推廣獎金：<%=FormatNumber(R1("p_money")*R1("p_percent3")/100,0)%>元
<%End IF%> <%IF R1("p_percent31") <> 0 Then%> <%=R1("p_percent31")%>元推廣獎金
<%End IF%>
<%=R1("p_money")%> 元
<%IF R1("p_money") <> 0 Then%>刷卡一次付清：<%=R1("p_money")%>元
<%End IF%> <%IF R1("p_money3a") <> 0 Then%>刷卡分3期：<%=R1("p_money3")%> x 3 = <%=R1("p_money3")*3%>元
<%End IF%> <%IF R1("p_money6a") <> 0 Then%>刷卡分6期：<%=R1("p_money6")%> x 6 = <%=R1("p_money6")*6%>元
<%End IF%> <%IF R1("p_money12a") <> 0 Then%>刷卡分12期：<%=R1("p_money12")%> x 12 = <%=R1("p_money12")*12%>元
<%End IF%> <%IF R1("p_money18a") <> 0 Then%>刷卡分18期：<%=R1("p_money18")%> x 18 = <%=R1("p_money18")*18%>元
<%End IF%> <%IF R1("p_money24a") <> 0 Then%>刷卡分24期：<%=R1("p_money24")%> x 24 = <%=R1("p_money24")*24%>元
<%End IF%> <%IF R1("p_money30a") <> 0 Then%>刷卡分30期：<%=R1("p_money30")%> x 30 = <%=R1("p_money30")*30%>元
<%End IF%>
<%=R1("p_hot2")%>
"> "> "> "> "> "> "> "> "> "> <%Set S1 = connCon.Execute("SELECT * FROM product_size where p_count > 0 and pic_num = '"&R1("pic_num")&"' ORDER BY p_count DESC")%>
<%Set S2 = connCon.Execute("SELECT * FROM product_size where pic_num = '"&R1("pic_num")&"' ORDER BY p_count DESC")%> <%IF S2("p_count") > 1 Then%> <%Else%> <%End IF%>
我要結帳
skybni

<%=R1("p_content")%>

<% R1.Close() Set R1 = Nothing %>