订单确认

<% sum1=0 sum=0 sums1=0 sumcount=0 summz=0 do while not rs.eof strscore=rs("score") productnum=rs("productnum") %> <% 'strscore=rs("score") productnum=rs("productnum") %> <%'=strscore*productnum %> <% 'sums1=strscore*productnum+sums1%> <% rs.movenext loop rs.close set rs=nothing%> 订购商品 现价 数量 小计 > .html target=_blank> <%select case rs("kind") case 0 response.write rs("tproduct") case 1 response.write "（赠品）"& rs("tproduct") case 2 response.write "（礼品）"& rs("tproduct") case 3 response.write "（特价）"& rs("tproduct") case 4 response.write "（积分兑换）"& rs("tproduct") end select %> <% if request.cookies("timesshop")("vip")=0 then strcontent="会员" iprice=rs("tpricenet") elseif request.cookies("timesshop")("vip")=1 then strcontent="一钻会员" iprice=rs("tprice1") elseif request.cookies("timesshop")("vip")=2 then strcontent="二钻会员" iprice=rs("tprice2") elseif request.cookies("timesshop")("vip")=3 then strcontent="三钻会员" iprice=rs("tprice3") elseif request.cookies("timesshop")("vip")=4 then strcontent="四钻会员" iprice=rs("tprice4") end if %> <%=strcontent%>价格:<% = iprice%>元 <%=rs("productnum")%> <%sumcount=productnum+sumcount%><% imz=rs("tproduct_mz") %><%summz=imz*productnum+summz%> <%=iprice*productnum%>元 <%sum1=iprice*productnum+sum1%> 您是<%=strcontent%>     总计：货物件数:<%=sumcount %>件，应付费用:<%=sum1%> 元 <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where username='"&request.cookies("timesshop")("username")&"'",conn,1,1 userid=rs("userid")%> 收货人信息 （请务必正确填写您的收货信息，以便我们能及时准确的送货给您） 收货人姓名： " size="12"> 性别： <%select case rs("UserSex") case "" response.write "男女" case "0" response.write "男女" case "1" response.write "男女" end select%> 电子邮件： "> 手机： " size="12"> 固定电话： " size="12"> 送货地址： 家庭地址： <%if rs("city")<> "" then%> " selected><%=rs("city")%> <%end if%> selected<%end if%>>上海市 北京市 天津市 重庆市 江苏省 浙江省 安徽省 河南省 江西省 湖北省 湖南省 广东省 河北省 山西省 辽宁省 黑龙江省 吉林省 山东省 福建省 海南省 陕西省 四川省 贵州省 云南省 甘肃省 青海省 广西壮族自治区 西藏自治区 宁夏回族自治区 新疆维吾尔自治区 内蒙古自治区 " class="input"> 邮编： " size="6">   公司地址： <%if rs("city2")<> "" then%> " selected><%=rs("city2")%> <%end if%> "" then%>selected<%end if%>>上海市 北京市 天津市 重庆市 江苏省 浙江省 安徽省 河南省 江西省 湖北省 湖南省 广东省 河北省 山西省 辽宁省 黑龙江省 吉林省 山东省 福建省 海南省 陕西省 四川省 贵州省 云南省 甘肃省 青海省 广西壮族自治区 西藏自治区 宁夏回族自治区 新疆维吾尔自治区 内蒙古自治区 " class="input"> 邮编： " size="6"> 特别提示： 1. 请先选择本订单是送至您的是家庭地址还是公司地址，然后再填写相应的详细的家庭或公司的地址及邮编。 2. 发货后再要求更改地址，将会造成2个工作日的配送延误，因此请谨慎填写收货地址   将以上信息地址信息保留在我的个人信息中，下次直接读取 付款方式和配送方式 （点击查看费率）： 请选择收货区域： 请选择送货方式： 请选择付款方式：  上海市  广州市  江浙地区  国内其它地区 送货上门（免费送货上门） 送货上门（免费送货上门） 顺丰快递（免邮费，验货付款    货，到货时间1-2天） 申通快递（    ，款到发货，到货时间3天） 上门自提（免配送费，自提或    请快递公司代提，上门时间：周    日至周五早 9:00 - 晚 6:00，周六    休息） 货到付款（配送公司代收款） 现金自提（自提时现金付款） 款到发货（通过网上支付或银    行汇款先支付货款，款到后由配    送公司送货） 网上支付（网上支付帮助） 邮局汇款（查看如何汇款） 银行电汇（查看如何电汇）   >>预先计算订单运费>> 备注信息： 对配送有任何特殊要求请留言，鉴于客观原因，配送时段不能精确至两小时以内，敬请谅解： 是否要发票？ 发票抬头：  1. 发票抬头必须填写（单位全称或个人名称），未按要求填写，发票不能重开，如果空白不填默认为“个人”。 2. 发票按订单发生的实际货款金额开具，不包含配送费用，并且已经扣除折扣。 3. 如果需要补开发票，需要在订单同一个月内提出申请补开，隔月则不予补开。 4. 发票请妥善保管，如果涉及到退货与换货，发票必须同货品一起退回。否则恕不接受退换要求。

") fString = Replace(fString, CHR(10), "
") HTMLEncode2 = fString end function Dim intCheckBoxValue intCheckBoxValue = Request.Form ("id") If intCheckBoxValue = "" Then Response.Write "" End If itotalnum=int(request.form("totalnum")) itotaljg=request.form("totaljg") iscore=request.form("score") itotalmz=request.form("totalmz") strname=request.form("receipt") if strname="" then Response.Write "" end if iusersex=request.form("usersex") struseremail=request.form("useremail") if struseremail="" then Response.Write "" end if strmob=request.form("mob") strusertel=request.form("usertel") if strmob="" and strusertel="" then Response.Write "" end if strcheckadd=request.form("checkadd") if strcheckadd="" then Response.Write "" end if straddress=request.form("address") strcity=request.form("province") strpostcode=int(request.form("postcode")) straddress2=request.form("address2") strcity2=request.form("province2") strpostcode2=request.form("postcode2") strarea=request.form("area") if strarea="" then Response.Write "" end if strsend=request.form("send") if strsend="" then Response.Write "" end if strpay=request.form("pay") if strpay="" then Response.Write "" end if '-----------------运费计费 if strarea="上海市区" then '判断金额和毛重 if strpay="货到付款" then yfyf=0 else yfyf=0 end if elseif strarea="上海远郊" then if strpay="货到付款" then yfyf=50 else yfyf=50 end if elseif strarea="江浙地区" then if strsend="国内平邮" then yfyf=0 elseif strsend="邮政EMS快递" then yfyf=20 elseif strsend="韵达快运" then yfyf=0 elseif strsend="申通快递" then yfyf=10 elseif strsend="上门自提" then yfyf=0 elseif strsend="华宇货运" then if (mz-0.5)<0 then yfyf=20 else yfyf=20+3*(mz-0.5) end if end if elseif strarea="国内其它地区" then if strsend="国内平邮" then yfyf=0 elseif strsend="邮政EMS快递" then yfyf=20 elseif strsend="韵达快运" then yfyf=0 elseif strsend="申通快递" then yfyf=10 elseif strsend="上门自提" then yfyf=0 elseif strsend="华宇货运" then if (itotalmz-0.5)<0 then yfyf=20 else yfyf=20+3*(itotalmz-0.5) end if end if end if '-----------------运费计算 strcontent=HTMLEncode2(trim(request.form("content"))) ipiao=request.form("piao") strfp2=request.form("fp2") set rs8=server.CreateObject("adodb.recordset") rs8.open "select * from goods",conn,1,3 rs8.addnew rs8("username")=username rs8("dcreatedate")=now() '货物件数 rs8("totalnum")=itotalnum '货物总价格 rs8("totaljg")=itotaljg '积分 rs8("score")=iscore '货物毛重 rs8("totalmz")=itotalmz '收货人 rs8("name")=strname '性别 rs8("sex")=iusersex rs8("checkadd")=strcheckadd rs8("address")=straddress rs8("city")=strcity rs8("postcode")=strpostcode rs8("address2")=straddress2 rs8("city2")=strcity2 rs8("postcode2")=strpostcode2 rs8("email")=struseremail rs8("area")=strarea rs8("sendfs")=strsend rs8("payfs")=strpay rs8("yfyf")=int(yfyf) rs8("mob")=strmob rs8("tel")=strusertel rs8("name")=strname rs8("yftotal")=itotaljg+int(yfyf) '扣掉预存款 set rs7=server.CreateObject("adodb.recordset") rs7.open "select * from [user] where username='"& username &"'",conn,1,3 'set rs7=server.createobject("adodb.recordset") 'rs7.open "select * from [user] where username='"&username&"'" ,conn,1,3 if rs7("deposit")alert ('不能重复提交提单!');window.close(); " response.End end if end select%>