?? 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 + -