📄 ordersent.asp
字号:
<!--#include file="../include/dbopenbd.asp" -->
<!--#include file="md5.asp" -->
<HTML><HEAD><TITLE>订单提交成功</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../include/css.css" type="text/css">
</HEAD>
<script language=javascript>
window.opener.location.reload()
</script>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="20">
<%
call check_path() '保证此页的调用是合法的
Set rs = conn.Execute("select * from pay")
pay= rs("pay")
payid=rs("payid")
paykey=rs("paykey")
set rs=nothing
Name=request.cookies("buyok")("userid")
if Name="" then Name="游客"
RecName=aspsql(request.form("RecName"))
RecPhone=aspsql(request.form("RecPhone"))
CompPhone=aspsql(request.form("CompPhone"))
Gettime=aspsql(request.form("Gettime"))
RecAddress=aspsql(request.form("RecAddress"))
Notes=aspsql(request.form("Notes"))
Recmail=aspsql(request.form("Recmail"))
Zipcode=aspsql(request.form("ZipCode"))
Pei=aspsql(request.form("pei"))
Fei=aspsql(request.form("fei"))
sum=aspsql(request.form("sum"))
'buylist=request.form("buylist")
buylist = request.cookies("buyok")("cart")
userkou=checkuserkou()
if reg<>"1" and request.cookies("buyok")("userid")="" then
response.redirect "../error.asp?error=006"
response.end
end if
if buylist="" then
response.cookies("buyok")("cart")=""
response.cookies("buyok")("total")=""
response.redirect "../error.asp?error=007"
response.end
end if
if csng(sum)=0 then
response.cookies("buyok")("cart")=""
response.cookies("buyok")("total")=""
response.redirect "../error.asp?error=007"
response.end
end if
total=FormatNumber(sum,2)
randomize
d=right("00"&int(99*rnd()),2)
yy=right(year(date),2)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
riqi=yy & mm & dd
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
inBillNo=yy & mm & dd & xiaoshi & fenzhong & miao & d
set rsadd=server.createobject("adodb.recordset")
sql="select * from s_orderList where 1=2"
rsadd.open sql,conn,1,3
rsadd.AddNew
rsadd("UserId")=Name
rsadd("OrderNum")=inBillNo
rsadd("RecName")=RecName
rsadd("OrderSum")=Total
rsadd("RecPhone")=RecPhone
rsadd("RecAddress")=RecAddress
rsadd("pei")=pei '配送方式
rsadd("fei")=fei '配送费用
rsadd("thiskou")=userkou
rsadd("CompPhone")=CompPhone
rsadd("gettime")=Gettime
rsadd("ZipCode")=ZipCode
rsadd("Recmail")=Recmail
rsadd("Notes")=Notes
rsadd.Update
rsadd.close
set rsadd=nothing
Set rs = conn.Execute("select * from s_produc where ProdId in ("&buylist&") order by ProdId")
set rsdetail=server.createobject("adodb.recordset")
sql="select * from s_order where 1=2"
rsdetail.open sql,conn,1,3
While Not rs.EOF
buynum=split(replace(buylist,"'",""),", ")
for i=0 to ubound(buynum)
if rs("prodid")=buynum(i) then
Quatity=buynum(i+1)
exit for
end if
next
rsdetail.AddNew
if Name<>"" then rsdetail("UserId")=Name
rsdetail("OrderNum")=inBillNo
rsdetail("ProdId")=rs("ProdId")
if Quatity="" or Quatity=0 then Quatity=1
rsdetail("ProdUnit")=Quatity
if request.cookies("buyok")("userid")<>"" then
rsdetail("BuyPrice")=rs("PriceOrigin")
else
rsdetail("BuyPrice")=rs("PriceList")
end if
'rsdetail("pei")=pei
'rsdetail("fei")=fei
rsdetail.Update
rs.MoveNext
Wend
rsdetail.close
set rsdetail=nothing
rs.close
set rs=nothing
response.cookies("buyok")("cart")=""
response.cookies("buyok")("total")=""
if pay<>"0" then
alipay_name=inBillNo & "号订单在线支付"
alipay_body="以下金额（"& total & "元）已包含配送费用"
total = replace(cstr(formatnumber(total,2)),",","")
s1 = "0001" '命令码
s2 = alipay_name '商品名称
s21 = alipay_body '商品描述
s3 = inBillNo '订单号
s4 = total '金额
s5 = "1" '支付类型
s6 = "1" '购买数量
s7 = "1" '发货方式
s8 = "0.00" '邮费
s9 = "0.00" '邮费
s10 = "true" '只读
s11 = notes '买家留言
s12 = "" '买家Email
s13 = ucase(RecName) '买家姓名
s14 = RecAddress '买家地址
s15 = Zipcode '买家邮编
s16 = RecPhone '买家电话
s17 = CompPhone '买家手机
sellerEmail = payid '卖家EMAIL
s18 = "2088002028987185" 'partner
key = paykey
str2CreateAc = "cmd" & s1 & "subject" & s2
str2CreateAc = str2CreateAc & "body" & s21
str2CreateAc = str2CreateAc & "order_no" & s3
str2CreateAc = str2CreateAc & "price" & s4
str2CreateAc = str2CreateAc & "type" & s5
str2CreateAc = str2CreateAc & "number" & s6
str2CreateAc = str2CreateAc & "transport" & s7
str2CreateAc = str2CreateAc & "ordinary_fee" & s8
str2CreateAc = str2CreateAc & "express_fee" & s9
str2CreateAc = str2CreateAc & "readonly" & s10
str2CreateAc = str2CreateAc & "buyer_msg" & s11
str2CreateAc = str2CreateAc & "seller" & sellerEmail
str2CreateAc = str2CreateAc & "buyer" & s12
str2CreateAc = str2CreateAc & "buyer_name" & s13
str2CreateAc = str2CreateAc & "buyer_address" & s14
str2CreateAc = str2CreateAc & "buyer_zipcode" & s15
str2CreateAc = str2CreateAc & "buyer_tel" & s16
str2CreateAc = str2CreateAc & "buyer_mobile" & s17
str2CreateAc = str2CreateAc & "partner" & s18
str2CreateAc = str2CreateAc & key
itemURL = "https://www.alipay.com/payto:" & sellerEmail & "?cmd=" & s1
itemURL = itemURL & "&subject=" & Server.URLEncode(s2)
itemURL = itemURL & "&body=" & Server.URLEncode(s21)
itemURL = itemURL & "&order_no=" & s3
itemURL = itemURL & "&price=" & s4
itemURL = itemURL & "&type=" & s5
itemURL = itemURL & "&number=" & s6
itemURL = itemURL & "&transport=" & s7
itemURL = itemURL & "&ordinary_fee=" & s8
itemURL = itemURL & "&express_fee=" & s9
itemURL = itemURL & "&readonly=" & s10
itemURL = itemURL & "&buyer_msg=" & s11
itemURL = itemURL & "&buyer=" & s12
itemURL = itemURL & "&buyer_name=" & s13
itemURL = itemURL & "&buyer_address=" & s14
itemURL = itemURL & "&buyer_zipcode=" & s15
itemURL = itemURL & "&buyer_tel=" & s16
itemURL = itemURL & "&buyer_mobile=" & s17
itemURL = itemURL & "&partner=" & s18
itemURL = itemURL & "&ac=" & MD5(str2CreateAc)
'response.Write(itemURL)
%>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=100%>
<tr><td align="center" valign="middle" height=60>
<br><br><font color="#FF3333">恭喜，订单提交成功！请记下您的订单号，以便日后查询。<br><br>您的订单号码是：<b><%=inBillNo%></b> 本次交易金额为：<b><%=total%></b>元</font> </td></tr>
<tr><td align="center" valign="middle" height=60>只有付款成功后，才能完成本次交易。您可选择在线实时支付，或传统的非在线付款方式。</td></tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr>
<%if pay<>"0" then%>
<td align=center width=50% height=120>
<form method="post" action=<%=itemURL%> target=new><input type=submit value="使用“支付宝”付款"></form>
</td>
<%end if%>
<td align=center height=120>
<form method="post" action="../fukuan.asp" target=new><input type=submit value="查看其它付款方法"></form></td></tr>
<%if pay<>"0" then%>
<tr><td colspan=2 align=center>“支付宝”在线支付免手续费，收货满意后卖家才能拿钱，货、款都安全<br><br><a href='http://www.alipay.com' target="_blank"><img src='../images/pay/alipay.gif' border=0></a></td></tr>
<%end if%>
</table>
<%
else
%>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=100%>
<tr><td align="center" valign="middle" height=60>
<br><br>恭喜，订单提交成功！请记下您的订单号，以便日后查询。<br><br>您的订单号码是：<b><%=inBillNo%></b> 本次交易金额为：<b><%=total%></b>元</td></tr>
<tr><td align="center" valign="middle" height=60>只有付款成功后，才能完成本次交易。您可通过邮局、银行柜台或网上银行办理付款。<br>我们在确认收到您的款项后，会按您的订单中填写的资料给您发货。</td></tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr><td align=center width=50% height=150>
<form method="post" action="../fukuan.asp" target=new><input type=submit value="查看付款方法"></form></td>
<td align=center width=50% height=150>
<form method="post" action="../main.asp" target=new><input type=submit value="返回网站首页"></form>
</td></tr>
<tr><td align=center colspan=2>付款后请尽快与我们联系，以便我们及时查帐并为您发货。<br></td></tr>
</table>
<%
end if
conn.close
set conn=nothing
%>
</body></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -