cart_order.asp

网上购物系统

<!--#include file="Conn.asp"-->
<!--#include file="include/MyRequest.asp" -->
<!--#include file="include/nosql.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)

nav="<a href=cart_list.asp>我的购物车</a> &raquo; 结账下单"
Call Header("结账下单",nav)
response.write "<div class=MainDesc>"
response.write "<table width=100% border=0>"
response.write "	<tr><td colspan=5><b>购物车清单</b></td></tr>"
response.write "	<tr><td>"
response.write "		<table border=1 width=100% cellpadding=4 style='border-collapse: collapse' bordercolor='#DFDFDF'>"
response.write "			<tr bgcolor=#F3F3F3><td>商品名称</td><td>市场价</td><td>网站价</td><td>订购数量</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,prod_info_PriceM,prod_info_PriceS,prod_info_name from prod_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 prod_info_PriceM=rs(1)
            						set RMB=rs(2)
            						set prod_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>"&prod_info_name&"</a></td>"
response.write "				<td>￥"&FormatNumber(prod_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=2 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><b>收货人信息</b><hr class=dotline></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>联系电话：</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><b>送货方式</b><hr class=dotline></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><b>付款方式</b><hr class=dotline></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><br><input type=submit value=' 点此提交订单信息 '><br></td></tr>"
response.write "		</form>"  
response.write "		</table>"   
response.write "</td></tr>"
response.write "</table>"
response.write "</div>"
Footer
%>