<%if request.cookies("timesshop")("username")="" then response.write "" response.End() end if %>
<% dim id,action,i,rsvip,strvip,strdeposit,txtvip,books,bookscount,product,quatity,userid,rs2,rs3,shijian,goods,sum1,sum2,sum,strtxtdeposit,rsdeposit,sums1,sums2,strvipprice,strscore,strprice1,strprice2 action=FormatSQL(SafeRequest("action",0)) id=FormatSQL(SafeRequest("id",0)) username=trim(request.cookies("timesshop")("username")) select case action case "" %> <% set rs=server.CreateObject("adodb.recordset") rs.open "select orders.actionid,orders.id,tproduct.tproduct,tproduct.tprice,tproduct.tpricenet,tproduct.tprice1,tproduct.tprice2,tproduct.tprice3,tproduct.tprice4,tproduct.discount,tproduct.score,tproduct.stock,orders.productnum,tproduct.tproduct_mz,orders.kind from tproduct inner join orders on tproduct.id=orders.id where orders.username='"&request.cookies("timesshop")("username")&"' and orders.state=0",conn,1,1 %><%=goodsid%>
订单确认

 
<% 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%>
订购商品 价格 数量 小计
> 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 %> <% iprice=rs("tprice2") %> <% = iprice%>元 <%=rs("productnum")%> <%sumcount=productnum+sumcount%><% imz=rs("tproduct_mz") %><%summz=imz*productnum+summz%> <%=iprice*productnum%>元 <%sum1=iprice*productnum+sum1%>
    总计：货物件数:<%=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">
性别：
 电子邮件： ">
手机： " size="12"> 固定电话： " size="12">
送货地址： 家庭地址： " class="input"> 邮编： " size="6">
  公司地址： " class="input"> 邮编： " size="6">
特别提示： 1. 请先选择本订单是送至您的是家庭地址还是公司地址，然后再填写相应的详细的家庭或公司的地址及邮编。

2. 发货后再要求更改地址，将会造成2个工作日的配送延误，因此请谨慎填写收货地址
  将以上信息地址信息保留在我的个人信息中，下次直接读取
付款方式和配送方式 （点击查看费率）：
请选择付款方式：
备注信息：


对配送有任何特殊要求请留言，鉴于客观原因，配送时段不能精确至两小时以内，敬请谅解：

是否要发票？注明：需要发票的话,请提供完整的开票资料。

确认该订单
 
<% case "shop" if session("myorder")<>minute(now) then function HTMLEncode2(fString) fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") 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") 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") strsend=request.form("send") '-----------------运费计费 '-----------------运费计算 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%>