📄 syscode_shop.asp
字号:
Response.Write "<td height='25' colspan='2' align='center'>请选择支付方式</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
if payment1<>"" then Response.Write "<tr><td height='28' colspan='2'><input name='paymenttype' type='radio' value='"&payment1&"' checked>"&payment1&"<BR>"&formatStr(autourl(pay1))&"</td></tr>" & vbCrLf
if payment2<>"" then Response.Write "<tr><td height='28' colspan='2'><input name='paymenttype' type='radio' value='"&payment2&"'>"&payment2&"<BR>"&formatStr(autourl(pay2))&"</td></tr>" & vbCrLf
if payment3<>"" then Response.Write "<tr><td height='28' colspan='2'><input name='paymenttype' type='radio' value='"&payment3&"'>"&payment3&"<BR>"&formatStr(autourl(pay3))&"</td></tr>" & vbCrLf
if payment4<>"" then Response.Write "<tr><td height='28' colspan='2'><input name='paymenttype' type='radio' value='"&payment4&"'>"&payment4&"<BR>"&formatStr(autourl(pay4))&"</td></tr>" & vbCrLf
if payment5<>"" then Response.Write "<tr><td height='28' colspan='2'><input name='paymenttype' type='radio' value='" &payment5&"'>"&payment5&"<BR>"&formatStr(autourl(pay5))&"</td></tr>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
Response.Write "<table width='98%' border='1' cellspacing='5' cellpadding='0' align='center' style='border-collapse: collapse' bordercolor='#f0f0f0'>" & vbCrLf
sql="select * from shop_ps"
set rrs=server.createobject("adodb.recordset")
rrs.open sql,conn,1,1
peisong1=rrs("peisong1")
fei1=rrs("fei1")
peisong2=rrs("peisong2")
fei2=rrs("fei2")
peisong3=rrs("peisong3")
fei3=rrs("fei3")
peisong4=rrs("peisong4")
fei4=rrs("fei4")
peisong5=rrs("peisong5")
fei5=rrs("fei5")
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center'>请选择配送方式</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<INPUT TYPE='hidden' name='cartnum' value='"&cartnum&"'>"
Response.Write "<tr><td>"
if peisong1<>"" then Response.Write "<input name='sendtype1' type='radio' value='1' checked>"&peisong1&"<div> <font color=red>·</font>配送费用："&fei1&"元</div>" & vbCrLf
if peisong1<>"" and rrs("tackfei1")=1 then Response.Write "<div> <font color=red>·</font>购买数量大于 "&rrs("qdsum1")&" 时，超出部分的配送附加费单价："&rrs("onefei1")&"元</div>" & vbCrLf
if peisong2<>"" then Response.Write "<input name='sendtype1' type='radio' value='2'>"&peisong2&"<div> <font color=red>·</font>配送费用："&fei2&"元</div>" & vbCrLf
if peisong2<>"" and rrs("tackfei2")=1 then Response.Write "<div> <font color=red>·</font>购买数量大于 "&rrs("qdsum2")&" 时，超出部分的配送附加费单价："&rrs("onefei2")&"元</div>" & vbCrLf
if peisong3<>"" then Response.Write "<input name='sendtype1' type='radio' value='3'>"&peisong3&"<div> <font color=red>·</font>配送费用："&fei3&"元</div>" & vbCrLf
if peisong3<>"" and rrs("tackfei3")=1 then Response.Write "<div> <font color=red>·</font>购买数量大于 "&rrs("qdsum3")&" 时，超出部分的配送附加费单价："&rrs("onefei3")&"元</div>" & vbCrLf
if peisong4<>"" then Response.Write "<input name='sendtype1' type='radio' value='4'>"&peisong4&"<div> <font color=red>·</font>配送费用："&fei4&"元</div>" & vbCrLf
if peisong4<>"" and rrs("tackfei4")=1 then Response.Write "<div> <font color=red>·</font>购买数量大于 "&rrs("qdsum4")&" 时，超出部分的配送附加费单价："&rrs("onefei4")&"元</div>" & vbCrLf
if peisong5<>"" then Response.Write "<input name='sendtype1' type='radio' value='5'>"&peisong5&"<div> <font color=red>·</font>配送费用："&fei5&"元</div>" & vbCrLf
if peisong5<>"" and rrs("tackfei5")=1 then Response.Write "<div> <font color=red>·</font>购买数量大于 "&rrs("qdsum5")&" 时，超出部分的配送附加费单价："&rrs("onefei5")&"元</div>" & vbCrLf
Response.Write "</td></tr>"
Response.Write "<tr><td height='28'> * 如选择QQ传送，请在备注里留下你的QQ号</td></tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='35'><div align='center'><input type=""submit"" name=""form22"" value='购物确认' class='submit'></div></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
rrs.close
set rrs=nothing
end sub
sub cashsave_shop()
if UserLogined<>True then
response.redirect "index.asp"
response.end
end if
if request("a")="view" then
to_name=request.form("to_name")
to_adds=request.form("to_adds")
email=request.form("email")
tel=request.form("tel")
sendtype1=request.form("sendtype1")
postcode=request.form("postcode")
paymenttype=request.form("paymenttype")
totalcash=request.form("totalcash")
totaljf=request.form("totaljf")
other=request.form("other")
cartnum=request.form("cartnum")
fapiao=clng(request.form("fapiao"))
dim hg_num,wb_num,price_num,hg_id
hg_num=0
wb_num=0
price_num=0
hg_id=0
for icount=0 to clng(request.form("hg_n"))-1
if not request.form("wb_"&icount)="" then
hg_num=wb_num+clng(split(Request.Form("wb_"&icount),"$$")(0))
wb_num=wb_num+clng(split(Request.Form("wb_"&icount),"$$")(1))
price_num=price_num+split(Request.Form("wb_"&icount&""),"$$")(2)
hg_id=hg_id&split(Request.Form("wb_"&icount&""),"$$")(3)&","
end if
next
hg_num=hg_num
wb_num=wb_num
price_num=price_num
hg_id=left(hg_id,len(hg_id)-1)
sql="select * from shop_ps"
set rrrs=server.createobject("adodb.recordset")
rrrs.open sql,conn,1,1
peisong1=rrrs("peisong1")
peisong2=rrrs("peisong2")
peisong3=rrrs("peisong3")
peisong4=rrrs("peisong4")
peisong5=rrrs("peisong5")
fei1=rrrs("fei1")
fei2=rrrs("fei2")
fei3=rrrs("fei3")
fei4=rrrs("fei4")
fei5=rrrs("fei5")
if sendtype1=1 and rrrs("tackfei1")=1 and cartnum-rrrs("qdsum1")-hg_num>0 then
fei=fei1+(rrrs("onefei1")*(cartnum-rrrs("qdsum1")-pay_num))
sendtype=peisong1
elseif sendtype1=1 then
fei=fei1
sendtype=peisong1
end if
if sendtype1=2 and rrrs("tackfei2")=1 and cartnum-rrrs("qdsum2")-hg_num>0 then
fei=fei2+(rrrs("onefei2")*(cartnum-rrrs("qdsum2")-pay_num))
sendtype=peisong2
elseif sendtype1=2 then
fei=fei2
sendtype=peisong2
end if
if sendtype1=3 and rrrs("tackfei3")=1 and cartnum-rrrs("qdsum3")-hg_num>0 then
fei=fei3+(rrrs("onefei3")*(cartnum-rrrs("qdsum3")-pay_num))
sendtype=peisong3
elseif sendtype1=3 then
fei=fei3
sendtype=peisong3
end if
if sendtype1=4 and rrrs("tackfei4")=1 and cartnum-rrrs("qdsum4")-hg_num>0 then
fei=fei4+(rrrs("onefei4")*(cartnum-rrrs("qdsum4")-pay_num))
sendtype=peisong4
elseif sendtype1=4 then
fei=fei4
sendtype=peisong4
end if
if sendtype1=5 and rrrs("tackfei5")=1 and cartnum-rrrs("qdsum5")-hg_num>0 then
fei=fei5+(rrrs("onefei5")*(cartnum-rrrs("qdsum5")-pay_num))
sendtype=peisong5
elseif sendtype1=5 then
fei=fei5
sendtype=peisong5
end if
rrrs.close
set rrrs=nothing
if cartnum-hg_num=0 then fei=0
summoney=totalcash+fei-price_num
if fapiao=1 then summoney=summoney*1.1
summoney=FormatNumber(summoney,2)
session("summoney")=summoney
Response.Write "<BR><table width='98%' border='0' cellspacing='0' cellpadding='0' align='center'>"
Response.Write "<form name='save' action='shop_cashsave.asp?a=save' method=post>"
Response.Write "<tr>"
Response.Write "<td height=30 align='center'><LI>"& Hx66_name &" 请确认您所填写的内容！请检查后单击“马上提交订单”或“返回修改订单”</LI></td>"
Response.Write "<input type=hidden value='ok' name='save'>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<table width='98%' border='1' cellspacing='0' cellpadding='0' align='center' style=""border-collapse: collapse"" bordercolor='#f0f0f0'>"
Response.Write "<tr>"
Response.Write "<td width='18%' height='28' align='center'>收货人 ：</td>"
Response.Write "<td width='32%'> "&to_name&" </td>"
Response.Write "<td width='18%' align='center'>E-mail：</td>"
Response.Write "<td width='32%'> "&email&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='28' align='center'>邮政编码：</td>"
Response.Write "<td> "&postcode&"</td>"
Response.Write "<td align='center'>联系电话：</td>"
Response.Write "<td> "&tel&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='center'>付款方式：</td>"
Response.Write "<td height='28'> "&paymenttype&"</td>"
Response.Write "<td align='center'>配送方式：</td>"
Response.Write "<td> "&sendtype&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='28' align='center'>收货地址：</td>"
Response.Write "<td colspan='3'> "&to_adds&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='center'>留言备注：</td>"
Response.Write "<td height='28' colspan='3'> "&other&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='28' align='center' colspan='4'><font color='#FF3333'>商品总价："&totalcash&" 元 配送费用："&fei&" 元 总计：￥"&summoney&" 元 ， 积分换购 "&wb_num&"（"&price_num&" 元）</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<table width='98%' border='0' cellspacing='5' cellpadding='0' align='center'>"
Response.Write "<tr>"
Response.Write "<td height=35 align='center'>"
Response.Write "<INPUT TYPE='hidden' name='to_name' value='"&to_name&"'>"
Response.Write "<INPUT TYPE='hidden' name='email' value='"&email&"'>"
Response.Write "<INPUT TYPE='hidden' name='postcode' value='"&postcode&"'>"
Response.Write "<INPUT TYPE='hidden' name='to_adds' value='"&to_adds&"'>"
Response.Write "<INPUT TYPE='hidden' name='sendtype' value='"&sendtype&"'>"
Response.Write "<INPUT TYPE='hidden' name='tel' value='"&tel&"'>"
Response.Write "<INPUT TYPE='hidden' name='totalcash' value='"&totalcash&"'>"
Response.Write "<INPUT TYPE='hidden' name='totaljf' value='"&totaljf&"'>"
Response.Write "<INPUT TYPE='hidden' name='fei' value='"&fei&"'>"
Response.Write "<INPUT TYPE='hidden' name='other' value='"&other&"'>"
Response.Write "<INPUT TYPE='hidden' name='paymenttype' value='"&paymenttype&"'>"
Response.Write "<INPUT TYPE='hidden' name='summoney' value='"&summoney&"'>"
Response.Write "<INPUT TYPE='hidden' name='wb_num' value='"&wb_num&"'>"
Response.Write "<INPUT TYPE='hidden' name='hg_id' value='"&hg_id&"'>"
Response.Write "<INPUT TYPE='hidden' name='fapiao' value='"&fapiao&"'>"
Response.Write "<INPUT TYPE='hidden' name='hxcms76' value='SN00001m'>"
Response.Write "<input type='submit' name='Submit' value='马上提交订单'> <input type='button' name='Submit21' onclick=""javascript:history.go(-1)"" value='返回修改订单'></td>"
Response.Write "</tr>"
Response.Write "</table><BR>"
elseif request("a")="save" and request("save")="ok" then
set rs=server.createobject("adodb.recordset")
wb_num=clng(Request.Form("wb_num"))
hg_id=trim(Request.Form("hg_id"))
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
ymd=yy&mm&dd
hh=right("00"&hour(time),2)
nn=right("00"&minute(time),2)
ss=right("00"&second(time),2)
hns=hh&nn&ss
order_number=ymd&hns
if wb_num>0 then
if Hx66_points-wb_num<0 then
Response.Write "<script language=javascript>alert('你的实时积分不足购买本次商品');javascript:history.back();</script>"
Response.End
else
conn.Execute=("UPDATE [user] SET points=points-"&wb_num&" where username='"&Hx66_name&"'")
conn.Execute=("UPDATE shop_basket SET auct=true where basket_id in("&hg_id&")")
end if
end if
user_id=Hx66_name
session("dingdan")=order_number 'session,Hx66. com.cn 6/30
sql="select id,basket_count,basket_check,order_number from shop_basket where user_id='"&user_id&"' and basket_check=false"
rs.open sql, conn, 3, 3
if rs.eof then
response.write " 你没有订购任何商品 "
response.end
else
on error resume next
do while not rs.eof
rs("basket_check")=true
rs("order_number")=order_number
conn.Execute=("UPDATE shop SET s_count=s_count+"&rs("basket_count")&" where passed=0 and s_id="&int(rs("id"))&"")
rs.movenext
loop
rs.update
end if
rs.close
sql="select * from shop_orders"
rs.open sql, conn, 3, 3
rs.addnew
rs("order_time")=now()
rs("user_id")=user_id
rs("order_number")=order_number
rs.update
rs.close
to_name=Server.HTMLEncode(Request.Form("to_name"))
to_adds=Server.HTMLEncode(Request.Form("to_adds"))
email=Server.HTMLEncode(Request.Form("email"))
tel=Server.HTMLEncode(Request.Form("tel"))
sendtype=Server.HTMLEncode(Request.Form("sendtype"))
postcode=Server.HTMLEncode(Request.Form("postcode"))
paymenttype=Server.HTMLEncode(Request.Form("paymenttype"))
other=Server.HTMLEncode(Request.Form("other"))
if other="" then other="没有留言"
fei=Request.Form("fei")
totalcash=Request.Form("totalcash")
summoney=Server.HTMLEncode(Request.Form("summoney"))
totaljf=Request.Form("totaljf")
fapiao=clng(Request.Form("fapiao"))
sql="select * from shop_orders where order_number='"&order_number&"'"
rs.open sql, conn, 3, 3
rs("to_name")=to_name
rs("tel")=tel
rs("sendtype")=sendtype
rs("postcode")=postcode
rs("email")=email
rs("to_adds")=to_adds
rs("paymenttype")=paymenttype
rs("other")=other
rs("fei")=clng(fei)
rs("summoney")=summoney
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -