ncart_info.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 123 行

<%
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then
response.write "<script language=javascript>alert('对不起，您的购物车为空！');location.href=""index.asp"";</script>"
response.End
end if
response.write "<table border=1 width=766 style='border-collapse: collapse' bordercolor=#C0C0C0>"
response.write "<tr>"
response.write "<td colspan=4 class=14px>以下是您购买的产品信息</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class=sort>产品名称</td>"
response.write "<td class=sort>单价</td>"
response.write "<td class=sort>数量</td>"
response.write "<td class=sort>小计金额</td>"
response.write "</tr>"
set rs2=server.createobject("adodb.recordset")
sql2 = "Select * From yqj_product"
sql2 = sql2 & " Where id In (" & ProductList & ")"
rs2.open sql2,conn,3,3

   Sum = 0
     While Not rs2.EOF
     RMB=rs2("p_mmoney")  
	 Quatity = CInt( Request( "Q_" & rs2("p_name")) )
     If Quatity <= 0 Then 
        Quatity = CInt( Session(rs2("p_name")) )
        If Quatity <= 0 Then Quatity = 1
     End If
     Session(rs2("p_name")) = Quatity
     Sum = Sum + ccur(rmb) * Quatity
response.write "<tr>"
response.write "<td class=12px>"&rs2("p_name")&"</td>"
response.write "<td class=12px>￥"&rmb&"元</td>"
response.write "<td class=12px>"&Quatity&"</td>"
response.write "<td class=12px>"&ccur(rmb)*Quatity&"元</td>"
response.write "</tr>"

      rs2.MoveNext
   Wend
   rs2.close
   set rs2=nothing

response.write "<tr>"
response.write "<td colspan=4 align=right class=12px>合计：<font color=#FF0000>"&sum&"元</font></td>"
response.write "</tr>"
response.write "</table>"

response.write "<form name=form1 action=setorder.asp method=post>"
response.write "<table border=1 width=766 style='border-collapse: collapse' bordercolor=#C0C0C0>"
response.write "<tr>"
response.write "<td colspan=2 class=14px>购买物品结算&gt;&gt;&gt;&gt;请填写您的联系信息</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=300 align=right class=12px>真实姓名：</td>"
response.write "<td>"
response.write "<input type=text name=yqj_realname size=20 maxlength=20></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=right width=300 class=12px>联系地址：</td>"
response.write "<td width=466>"
response.write "<input type=text name=yqj_address size=40 maxlength=200><input type=hidden name=ishy value=1></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=right width=300 class=12px>邮政编码：</td>"
response.write "<td width=466>"
response.write "<input type=text name=yqj_postal size=20 maxlength=6></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=right width=300 class=12px>联系电话：</td>"
response.write "<td width=466>"
response.write "<input type=text name=yqj_phone size=20 maxlength=20></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=right height=21 width=300 class=12px>电子信箱：</td>"
response.write "<td height=21 width=466>"
response.write "<input type=text name=yqj_email size=20 maxlength=30></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=right height=21 width=300 class=12px>是否需要发票：</td>"
response.write "<td height=21 width=466 class=12px>"
response.write "<input type=radio name=yqj_invoice value=1>需要<input type=radio name=yqj_invoice value=0 checked>不需要</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=right width=300 class=12px>支付方式选择：</td>"
response.write "<td width=466><select size=1 name=paymode>"
response.write "<option value="""" selected>选择支付方式</option>"
response.write "<option value=银行汇款>银行汇款</option>"
response.write "<option value=邮局汇款>邮局汇款</option>"
response.write "<option value=上门取款>上门取款</option>"
response.write "<option value=在线支付>在线支付</option>"
response.write "</select></td>"
response.write "</tr>"
response.write "<td align=right width=300 class=12px>送货方式选择：</td>"
response.write "<td width=466><select size=1 name=songid>"
response.write "<option value="""" selected>选择送货方式</option>"
sql="select id,deliver_name,price from deliver"
set rs=conn.execute (sql)
do while not rs.eof
response.write "<option value="&rs("id")&">"&rs("deliver_name")&"(￥附加"&rs("price")&"元)</option>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "</select></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=300>"
response.write "<p align=right class=12px>备注：</td>"
response.write "<td width=466><textarea rows=6 name=content cols=34></textarea></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=2>"
response.write "<p align=center><input type=button value=提交 name=B1 onclick=""{if(confirm('确定要下单吗?')){this.document.form1.submit();return  true;}return  false;}"">&nbsp;"
response.write "<input type=reset value=重置 name=B2></td>"
response.write "</tr>"
response.write "</table>"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "</form>"
%>