<%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)) if id="" then id=request.form("id") end if if id="" then response.write "" response.End end if select case action case "" %> > align="center" height="20"> <% set rs=server.CreateObject("adodb.recordset") rs.open "select id,tproduct,tprice,tpricenet,tprice1,discount,score,stock from tproduct where id in ("&id&")",conn,1,1 sum1=0 sums1=0 bookscount=FormatSQL(request.querystring("id").count) do while not rs.eof Quatity = CInt( Request.form( "shop"&rs("id")) ) If Quatity <=0 Then Quatity = 1 if rs("stock")alert('对不起,"&rs("tproduct")&"商品已售完,请过段时间再来购买！');window.close();" else strvipprice=rs("tpricenet") strscore=rs("score") strprice1=rs("tprice") strprice2=rs("tprice1") %> align="center"> > > <% end if if bookscount=1 then books=rs("id") rs.movenext loop set rsvip=nothing rs.close set rs=nothing%> height="20"> >
商品名称 市场价 会员价 VIP价 折扣 数量 积分 小计 修改数量
<%=trim(rs("tproduct"))%> > <% = strprice1 %> 元 <% = strprice2 %> 元 <%=strvipprice%>元 <%=rs("discount")*100&"%"%> " type="text" size="3" value="<%=Quatity%>" onKeyPress= "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"onpaste = "return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))"ondrop= "return regInput(this,/^[0-9]*$/,event.dataTransfer.getData('Text'))"> <% if Quatity<=1 then %> <%=strscore%>分 <% else %> <%=strscore*Quatity %>分 <% end if sums1=strscore*Quatity+sums1 %> <% set rsvip=server.CreateObject("adodb.recordset") rsvip.open "select vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1 if rsvip("vip")=true then txtvip = "VIP会员" if Quatity<=1 then %> <%=strvipprice%>元 <% else %> <%=strvipprice*Quatity%>元 <% end if sum1=strvipprice*Quatity+sum1 else txtvip = "普通会员" if Quatity<=1 then response.write rs("tprice1")*1&"元" else response.write rs("tprice1")*Quatity&"元" end if sum1=rs("tprice1")*Quatity+sum1 end if %>
你是 <% = txtvip %>     费用总计：<%=sum1%> 元，获得积分：<%=sums1%> 分
   <%if bookscount=1 then%> <%end if%>
<% case "shop1" set rs=server.CreateObject("adodb.recordset") rs.open "select receipt,userid,UserSex,useremail,city,address,postcode,usertel,paymethord,deliverymethord,realname from [user] where username='"&request.cookies("timesshop")("username")&"'",conn,1,1 userid=rs("userid")%> align="center">
> <% set rs2=server.CreateObject("adodb.recordset") rs2.open "select id from tproduct where id in ("&id&") order by id",conn,1,1 do while not rs2.eof %> " type="hidden" value="<%=cint(request.form("shop"&rs2("id")))%>"> <% rs2.movenext loop rs2.close set rs2=nothing%> > > > > > > > > > > >
收货人姓名： >  性 别：
收货人(省)市： >
详细地址： >
邮　　编： >
电　　话： >
电子邮件： >
送货方式： <% set rs3=server.CreateObject("adodb.recordset") rs3.Open "select * from delivery where methord=0 order by deliveryidorder",conn,1,1 response.Write "" rs3.Close set rs3=nothing %>  送货上门限制于本市
支付方式： <% set rs3=server.CreateObject("adodb.recordset") rs3.open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1 response.Write "" rs3.close set rs3=nothing rs.close set rs=nothing%>
简单留言：
<% case "ok" function HTMLEncode2(fString) fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") HTMLEncode2 = fString end function if session("myorder")<>minute(now) then shijian=now() goods=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian) set rs2=server.CreateObject("adodb.recordset") rs2.open "select id,tproduct,score,tprice,tpricenet,tprice1,discount from tproduct where id in ("&id&") order by id ",conn,1,1 goods=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian) do while not rs2.eof set rs=server.CreateObject("adodb.recordset") rs.open "select * from orders",conn,1,3 rs.addnew rs("username")=trim(request.cookies("timesshop")("username")) rs("id")=rs2("id") rs("actiondate")=shijian rs("productnum")=CInt(Request.form("shop"&rs2("id"))) rs("state")=2 rs("goods")=goods rs("postcode")=int(request.form("postcode")) rs("receipt")=trim(request.form("receipt")) rs("address")=trim(request.form("address")) rs("paymethord")=int(request.form("paymethord")) rs("deliverymethord")=int(request.form("deliverymethord")) rs("UserSex")=int(request.form("UserSex")) rs("comments")=HTMLEncode2(trim(request.form("comments"))) set rsvip=server.CreateObject("adodb.recordset") rsvip.open "select vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1 if rsvip("vip")=true then rs("paid")=rs2("tpricenet")*CInt(Request("shop"&rs2("id"))) else rs("paid")=rs2("tprice1")*CInt(Request("shop"&rs2("id"))) end if rs("realname")=trim(request.form("realname")) rs("score")=rs2("score")*CInt(Request.form("shop"&rs2("id"))) rs("useremail")=trim(request.form("useremail")) rs("usertel")=trim(request.form("usertel")) rs("userid")=SafeRequest("userid",1) rs.update rs.close set rs=nothing conn.execute "delete from orders where username='"&request.cookies("timesshop")("username")&"' and id in ("&id&") and state=6" rs2.movenext loop rs2.close set rs2=nothing session("myorder")=minute(now) else response.Write "

您不能重复提交！
" response.End end if set rs=server.CreateObject("adodb.recordset") rs.open "select tproduct.id,tproduct.tproduct,tproduct.tprice,tproduct.tpricenet,tproduct.tprice1,tproduct.score,orders.UserSex,orders.realname,orders.receipt,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.paid,orders.productnum from tproduct inner join orders on tproduct.id=orders.id where orders.username='"&request.Cookies("timesshop")("username")&"' and state=2 and goods='"&goods&"' ",conn,1,1 dim strgoods,lngnum strgoods=cstr(trim(rs("goods"))) lngnum=Clng(rs("productnum")) %> align="center">
<%if trim(request.form("comments"))<>"" then%> <%end if%>
align="center">恭喜<% =request.Cookies("timesshop")("username") %>，您已成功的提交了此订单！详细信息如下：
>订单号：<%=strgoods %>
>商品列表：
> <% sum2=0 sums2=0 do while not rs.eof strvipprice=rs("tpricenet") strscore=rs("score") %> <% sums2=sums2+strscore*rs("productnum") set rsvip=server.CreateObject("adodb.recordset") rsvip.open "select vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1 if rsvip("vip") = true then %> <% sum2=strvipprice*rs("productnum")+sum2 else %> <% sum2=rs("tpricenet")*rs("productnum")+sum2 end if rs.movenext loop rs.movefirst rsvip.close set rsvip=nothing %> align="center">
商品名称 市场价 会员价 VIP价 数量 积分 小计
<%response.Write ""&rs("tproduct")&""%> <%=rs("tprice")%>元 <%=rs("tpricenet")%>元 <%=strvipprice%>元 <%=rs("productnum")%> <%=strscore%>分 <%=rs("productnum")%><%=strvipprice*rs("productnum")%>元
<%=rs("tpricenet")*rs("productnum")%>元
您选择的送货方式： <% set rs3=server.CreateObject("adodb.recordset") rs3.open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1 if rs3.eof and rs3.bof then response.write "送货方式已经被删除" response.write " 附加费用：0元   共计：" response.write sum2&"元，赠送积分"&sums2&"分" sum=sum1 else response.Write trim(rs3("subject")) response.write " 附加费用："&rs3("fee")&" 元  " response.write "共计："&sum2+rs3("fee")&" 元，赠送积分："&sums2&" 分" sum=sum2+rs3("fee") end if rs3.close set rs3=nothing set rsdeposit=server.CreateObject("adodb.recordset") rsdeposit.open "select deposit,score from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,3 if rsdeposit.eof and rsdeposit.bof then strtxtdeposit="请您在一周内按您选择的支付方式进行汇款，汇款时请注明您的订单号！汇款后请及时通知我们" else strdeposit = CLng(rsdeposit("deposit")) if strdeposit>sum then rsdeposit("deposit")=strdeposit-sum rsdeposit("score")=rsdeposit("score")+sums2 rsdeposit.update strtxtdeposit="已从你的预存款中扣除"&""&sum&""&"元，给你加了"&""&sums2&""&"分" set rsvip=server.CreateObject("adodb.recordset") rsvip.open "select state,goods from orders",conn,1,3 do while not rsvip.eof if rsvip("goods")=strgoods then rsvip("state")=3 rsvip.update end if rsvip.movenext loop rsvip.close set rsvip=nothing else strtxtdeposit="请您在一周内按您选择的支付方式进行汇款，汇款时请注明您的订单号！汇款后请及时通知我们" end if end if rsdeposit.close set rsdeposit=nothing %>
style='PADDING-LEFT: 100px'>订货人姓名：<%=trim(rs("realname"))%>
style='PADDING-LEFT: 100px'>收货人姓名：<%response.Write trim(request.form("receipt")) if request.form("UserSex")=0 then response.Write " (先生)" else response.Write " (女士)" end if%>
style='PADDING-LEFT: 100px'>收货详细地址：<%=trim(request.form("address"))%>
style='PADDING-LEFT: 100px'>邮编：<%=trim(request.form("postcode"))%>    电话：<%=trim(request.form("usertel"))%>    电子邮件：<%=trim(request.form("useremail"))%>
style='PADDING-LEFT: 100px'>送货方式： <% set rs3=server.CreateObject("adodb.recordset") rs3.open "select * from delivery where deliveryid="&request.form("deliverymethord"),conn,1,1 if rs3.eof and rs3.bof then response.write "方式已经被删除" else response.Write trim(rs3("subject")) end if rs3.close set rs3=nothing %>     支付方式： <% set rs3=server.CreateObject("adodb.recordset") rs3.open "select * from delivery where deliveryid="&request.form("paymethord"),conn,1,1 if rs3.eof and rs3.bof then response.write "方式已经被删除" else response.Write trim(rs3("subject")) end if rs3.close set rs=nothing %>
style='PADDING-LEFT: 100px'>您的留言：<%=trim(request.form("comments"))%>
style='PADDING-LEFT: 100px'><% = strtxtdeposit %>
style='PADDING-LEFT: 100px'>

<%set rs=server.CreateObject("adodb.recordset") rs.open "select paymethord from config",conn,1,1 response.Write trim(rs("paymethord")) rs.close set rs=nothing%>

style='PADDING-LEFT: 100px'>
关闭窗口        订单完成 创建时间：<%=shijian%> 
<%set rs=server.CreateObject("adodb.recordset") rs.open "select solded,stock from product where id in ("&id&")" ,conn,1,3 do while not rs.eof rs("solded")=rs("solded")+lngnum rs("stock")=rs("stock")-lngnum rs.update rs.movenext loop rs.close set rs=nothing end select%>