📄 alpayok.asp
字号:
<!--#include file="comm/my_request.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="comm/base64.asp"-->
<!--#include file="comm/mmd5.asp"-->
<%
response.write "<script>window.opener.close();</script>"
response.write "<span><font color=#FF0000>如果出现确定按钮，请单击确定继续，请不要关闭浏览器，请不要走开。连接支付宝贝中……</font></span>"
dim p(11),i,pid,rs1,rs2
for i=1 to 11
p(i)=my_request("q"&i,0)
next
allmoney=my_request("allmoney",1)
pid=my_request("pid",1)
if pid="" then
response.write "<script language=javascript>alert('参数错误！');location.href=""index.asp"";</script>"
response.end
end if
if session("chk_flag")="" then
userid="非会员"
ishy=1
else
userid=session("chk_name")
ishy=0
end if
'交易日期，格式：YYYYMMDD
yy=year(date)
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)
cartbh=yy & mm & dd & xiaoshi & fenzhong & miao
ip=Request.servervariables("REMOTE_ADDR")
'sql="select deliver_name,price from deliver where id="&p(8)
'set rs=conn.execute (sql)
'songmode=rs("deliver_name")
'price=rs("price")
'rs.close
'set rs=nothing
set rss=conn.execute( "Select * From yqj_product where id="&pid)
p_name=rss("p_name")
p_mmoney=rss("p_mmoney")
vip_mmoney=rss("vip_mmoney")
bid=rss("bid")
sid=rss("sid")
rss.close
set rss=nothing
if session("level")="" or isnull(session("level")) or session("level")=0 then
yqj_money=p_mmoney
else
yqj_money=vip_mmoney
end if
sum=yqj_money*p(1)
set rs=server.createobject("adodb.recordset")
sqltext="select * from buyer"
rs.open sqltext,conn,3,3,1
rs.addnew
rs("ddbh")=cartbh
rs("addtime")=now()
rs("yqj_realname")=p(2)
rs("yqj_address")=p(3)
rs("ishy")=ishy
rs("yqj_postal")=p(4)
rs("yqj_phone")=p(5)
rs("yqj_mobile")=p(6)
rs("yqj_email")=p(7)
rs("paymode")="支付宝支付"
rs("content")=p(9)
rs("yqj_money")=allmoney
rs("yqj_cost")=p(10)
rs("product_price")=sum
rs("songhuo")=p(11)
rs("ip") = ip
rs("userid")=userid
rs.update
rs.close
set rs=nothing
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from list"
rs2.open sqltext2,conn,3,3,1
rs2.addnew
rs2("bh")=pid
rs2("cartbh")=cartbh
rs2("mc")=p_name
rs2("sl")=p(1)
rs2("rmb")=ccur(yqj_money)
rs2("lbid")=bid
rs2("xlbid")=sid
rs2("huiyuan")=userid
rs2("sj")=now()
rs2.update
rs2.close
sql="select * from pay_online where id=2"
set rs=conn.execute (sql)
ipayno2=rs("shbh")
ipaykey2=rs("pay_key")
rs.close
set rs=nothing
v_mid=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipayno2))),chr(13)&chr(10),"<br>")
key=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipaykey2))),chr(13)&chr(10),"<br>")
conn.close
set conn=nothing
alipay_body="请牢记订单号为："&cartbh&"---以下商品金额（"& p_mmoney & "元，未包含配送费用）："&p_name&"，购买数量："&p(1)
total = replace(cstr(formatnumber(sum,2)),",","")
s1 = "0001" '命令码
s2 = server.urlEncode(p_name) '商品名称
s21 = server.urlEncode(alipay_body) '商品描述
s3 = cartbh '订单号
s4 = yqj_money '金额(单价)
s5 = "1" '支付类型
s6 = p(1) '购买数量
s7 = p(8) '发货方式
s8 = p(10) '邮费
s9 = p(10) '邮费
s10 = "true" '只读
s11 = p(9) '买家留言
s12 = "" '买家Email
s13 = ucase(p(2)) '买家姓名
s14 = p(3) '买家地址
s15 = p(4) '买家邮编
s16 = p(5) '买家电话
s17 = p(6) '买家手机
sellerEmail = v_mid '卖家EMAIL
s18 = "2088002054178971" 'partner
key = key
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
ac=MD5(str2CreateAc)
response.write ("<form method=post name=post action=https://www.alipay.com/payto:"&v_mid&">")
response.write ("<input type=hidden name=cmd value="&s1&">")
response.write ("<input type=hidden name=subject value="&s2&">")
response.write ("<input type=hidden name=body value="&s21&">")
response.write ("<input type=hidden name=order_no value="&s3&">")
response.write ("<input type=hidden name=price value="&s4&">")
response.write ("<input type=hidden name=type value="&s5&">")
response.write ("<input type=hidden name=number value="&s6&">")
response.write ("<input type=hidden name=transport value="&s7&">")
response.write ("<input type=hidden name=ordinary_fee value="&s8&">")
response.write ("<input type=hidden name=express_fee value="&s9&">")
response.write ("<input type=hidden name=readonly value="&s10&">")
response.write ("<input type=hidden name=buyer_msg value="&s11&">")
response.write ("<input type=hidden name=seller value="&sellerEmail&">")
response.write ("<input type=hidden name=buyer value="&s12&">")
response.write ("<input type=hidden name=buyer_name value="&s13&">")
response.write ("<input type=hidden name=buyer_address value="&s14&">")
response.write ("<input type=hidden name=buyer_zipcode value="&s15&">")
response.write ("<input type=hidden name=buyer_tel value="&s16&">")
response.write ("<input type=hidden name=buyer_mobile value="&s17&">")
response.write ("<input type=hidden name=partner value="&s18&">")
response.write ("<input type=hidden name=ac value="&ac&">")
response.write ("</form>")
response.write "<SCRIPT LANGUAGE=""JavaScript"">"
response.write "document.post.submit();"
response.write "</SCRIPT>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -