<%
dim dbpath
dbpath=""
%>
<!--#include file="Conn.asp"-->
<!--#include file="include/MyRequest.asp" -->
<!--#include file="include/nosql.asp" -->
<!--#include file="include/base64.asp"-->
<!--#include file="include/mmd5.asp"-->
<!--#include file="include/pay.asp"-->
<!--#include file=Sub.asp -->
<%
session.timeout=30
ProdIds  = Session("ProdIds")
ProdNums = Session("ProdNums")
Sum      = Session("sum")
sum=FormatNumber(sum,2,-1)
sum=cint(sum)

call up("結(jié)算下訂單","結(jié)算下訂單","<a href=cart_list.asp>購物車</a> &raquo; 結(jié)算下訂單")

response.write "<tr><td>"
response.write "		<table border=1 width=100% cellpadding=4 style='border-collapse: collapse' bordercolor=#DFDFDF>"
response.write "			<tr bgcolor=#f2f2f2><td>商品名稱</td><td>市場價</td><td>網(wǎng)站價</td><td>訂購數(shù)量</td><td>小計</td></tr>"
							if ProdIds<>"" then
								aaa=split(ProdNums,",")
								bbb=split(ProdIds,",")

								for i=0 to ubound(bbb)
        						set rs=server.createobject("adodb.recordset")
        						sql="select id,product_info_PriceM,product_info_PriceS,product_info_name from product_info where id="&bbb(i)
        						rs.open sql,conn,1,1
        						if rs.eof then
        							response.write "<tr><td colspan=5 align=center><a href=index.asp>購物車為空，請返回選購商品</a></td></tr>"
        							response.write "</table>"
        							response.end
        						else
            						set id=rs(0)
            						set product_info_PriceM=rs(1)
            						set RMB=rs(2)
            						set product_info_name=rs(3)
            						While Not rs.EOF
            						x=aaa(i)
            						if aaa(i)="" then x=1
            						sum1=sum1 + csng(rmb) * x
            						sum=FormatNumber(sum1,2)
response.write "			<tr>"
response.write "				<td><a href=Prod_Detail.asp?id="&id&" target=_blank>"&product_info_name&"</a></td>"
response.write "				<td>￥"&FormatNumber(product_info_PriceM,2,-1)&"</td>"
response.write "				<td><font color=#FF0000>￥"&FormatNumber(Rmb,2,-1)&"</font></td>"
response.write "				<td>"&x&"</td>"
response.write "				<td>￥"&FormatNumber((csng(rmb)*x),2,-1)&"</td>"
response.write "			</tr>"
						    		rs.MoveNext
    			    				Wend
    							end if
    							rs.close
    							set rs=nothing
    							next
response.write "			<tr>"
response.write "				<td colspan=5 align=right>合計金額：<span style='color:#FF6633;font-size:18px;'>￥"&sum&"</span></td>"
response.write "			</tr>"
    						else
    							response.write "<tr><td colspan=5 align=center><a href=index.asp>購物車為空，請返回選購商品!</a></td></tr>"
    						end if
response.write "		</table>"
response.write "		<br>"
response.write "		<table border=0 width=100% cellpadding=4 style=border-collapse: collapse>"
response.write "		<form name=form1 action=Cart_OrderSave.asp method=post onsubmit=return check_form();>"
response.write "			<tr><td colspan=2 bgcolor=#EFEFEF><b>收貨人信息</b></td></tr>"
response.write "			<tr><td>姓名：    </td><td><input type=text name=Order_info_RealName size=30></td></tr>"
response.write "			<tr><td>電子郵件：</td><td><input type=text name=order_info_email size=30>   </td></tr>"
response.write "			<tr><td>收貨地址：</td><td><input type=text name=order_info_address size=50> </td></tr>"
response.write "			<tr><td>郵政編碼：</td><td><input type=text name=order_info_zip size=30></td></tr>"
response.write "			<tr><td>聯(lián)系電話：</td><td><input type=text name=order_info_tel size=30></td></tr>"
response.write "			<tr><td>移動電話：</td><td><input type=text name=order_info_mobile size=30></td></tr>"
response.write "			<tr><td>客戶留言：</td><td><textarea rows=3 name=order_info_BuyNote cols=50></textarea></td></tr>"
response.write "			<tr><td colspan=2 bgcolor=#EFEFEF><b>送貨方式</b></td></tr>"
response.write "			<tr><td> </td>"
response.write "				<td>"
         						set rs=server.createobject("adodb.recordset")
            					sql="select root_deliver_name,root_deliver_cost,root_deliver_day from root_deliver order by id desc"
            					rs.open sql,conn,1,1
            					if not rs.eof then 
                					set root_deliver_name=rs(0)
                					set root_deliver_cost=rs(1)
                					set root_deliver_day =rs(2)
                					while not rs.eof
                					response.write "<input type=radio value="&root_deliver_name&" name=order_info_deliver>"&root_deliver_name&"  ( 費用："&root_deliver_cost&"元    時間："&root_deliver_day&"天 ) <br>"
                					rs.movenext
                					wend
            					end if
            					rs.close
            					set rs=nothing
response.write "				</td>"
response.write "			</tr>"
response.write "			<tr><td colspan=2 bgcolor=#EFEFEF><b>付款方式</b></td></tr>"
response.write "			<tr><td> </td>"
response.write "				<td>"
								Set rs=Server.CreateObject("ADODB.Recordset")
								sql="select root_Alipay_OnOff from root_AliPay where id=1"
								rs.open sql,conn,1,1
								root_Alipay_OnOff   =rs(0)
								rs.close
								set rs=nothing
					    
								if root_Alipay_OnOff=0 then
                        			response.write "<input type=radio value=1 name=order_info_pay>支付寶<img border=0 src=images/logo_alipay.gif align=absmiddle><br>"
                    			end if
response.write "			    <input type=radio value=2 name=order_info_pay>銀行匯款<br>"
response.write "			    <input type=radio value=3 name=order_info_pay>郵局匯款"
response.write "				</td>"
response.write "			</tr>"
response.write "			<tr><td>　</td><td><input type=submit value=提交訂單></td></tr>"
response.write "		</form>"  
response.write "		</table>"   
response.write "</td></tr>"
call down()
%>