ASP做贝宝(paypal)支付接口

最新推荐文章于 2022-03-30 17:24:22 发布

zxl0715

最新推荐文章于 2022-03-30 17:24:22 发布

阅读量1k

点赞数

分类专栏：其它接口文章标签： asp input payment email website function

本文链接：https://blog.csdn.net/zxl0715/article/details/4914418

版权

其它接口专栏收录该内容

4 篇文章 0 订阅

订阅专栏

事实上,paypal可以说分两个 :

国际的这个只支付美元收付 ! 而中国的这个支持人民币收付 !

这个先清楚了 !

流程思路:

事实上贝宝帐号上直接就可以得到一个支付接口的:

如下:

</form>

直接使用这种代码有些不方便! 要一个个添加才可以, 不过想一想, 这段代码, 也可以动态生成的, 用php,asp都可以,只要里面授的一些值改变一下,你的商品的支付代码就可以通过读取数据库来生成了,也不用一个个来写入了!!

我是这样写的:

读取数据库:rs 这个大家应该都知道的吧

<input type="hidden" value="<%=rs("email")%>"> '你的paypal帐号

<input type="hidden" value="<%=rs("ordernum")%>"> '你的网站上的购物车上的订单号

<input type="hidden" value="USD"> 'USD 美元 ! CNY 人民币 !

<input type="hidden" value="<%=rs("price")%>"> '产品价格

<input type="hidden" value=" '这里是客户支付成功, 返回信息的地址!

theurl=LCase(Request.ServerVariables("HTTP_HOST"))&Request.ServerVariables("URL")

theurl=Left(theurl,InstrRev(theurl,"/"))

response.write theurl&"inc/paypalreturn.asp"

%>">

</form>

这个支付肯定是可以的? 至于是否支付成功, 做一个认证然后更改订单状态 !

这个认证就是在paypalreturn.asp这个页里来实现:

代码如下 :

paypalreturn.asp:

mainpath="paypal.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mainpath)

conn.Open connstr

Function viate(itemnumber,paymentid,payamount,payeremail)

set rs=server.CreateObject("adodb.recordset")

sql="select * from orders where ordernum='"&itemnumber&"'" '这里是订单表如果会员支付成功, 更改订单状态为已付款 !

rs.open sql,conn,1,3

If Not(rs.bof Or rs.eof) Then

rs("orderline")="3"

rs("paymentid")=paymentid

rs("payamount")=payamount

rs("payeremail")=payeremail

rs("paydate")=Now()

rs.update

Else

response.write "<script>alert('NO this order number ! Please contact website administrator !!');</script>"

End If

rs.close

Set rs=Nothing

End Function

function urldecode(encodestr) '这个函数是对paypal返回值的urldecode解码的

newstr=""

havechar=false

lastchar=""

for i=1 to len(encodestr)

char_c=mid(encodestr,i,1)

if char_c="+" then

newstr=newstr & " "

elseif char_c="%" then

next_1_c=mid(encodestr,i+1,2)

next_1_num=cint("&H" & next_1_c)

if havechar then

havechar=false

newstr=newstr & chr(cint("&H" & lastchar & next_1_c))

else

if abs(next_1_num)<=127 then

newstr=newstr & chr(next_1_num)

else

havechar=true

lastchar=next_1_c

end if

i=i+2

else

newstr=newstr & char_c

end if

urldecode=newstr

end Function

str1=Trim(request.querystring("tx"))

str2="&at=RDqubRmDD5AWgXJh5q2HMHKmcetP4Q8Ulj9AaPIx0B1l3f9aQiv9EPN1084" '这里是Paypal身份标记获取方法

paypalurl=paypalurl&str

'response.write "<br>"&paypalurl&"<br>"&"<br>"&"<br>"

Set objHttp=Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

objHttp.setOption 2, 13056

objHttp.open "POST",paypalurl,False,"",""

objHttp.send()

ResponseTxt = objHttp.ResponseText '示例下面有写

Set objHttp=Nothing

'-------------------------------------------------核对取得值

ResponseTxt=UrlDecode(ResponseTxt) '将返回值解码并赋给 responsetxt

If Mid(ResponseTxt,1,7) = "SUCCESS" Then '取得返回值的状态, sucess表示支付成功 ! Fail 表示支付失败 ! 返回值只有这两种情况 !

ResponseTxt = Mid(ResponseTxt,9) '取得除了前9个字符的返回值,并返回给responsetxt

sParts = Split(ResponseTxt, vbLf) '将返回值以vbLf(在vb里面这是回车<换行>的意思)分开,并赋给一个数组sParts

iParts = UBound(sParts) - 1 '对这个数组分离取值, 后面的应该都可以看得懂的吧!

ReDim sResults(iParts, 1)

For i = 0 To iParts

aParts = Split(sParts(i), "=")

sKey = aParts(0)

sValue = aParts(1)

sResults(i, 0) = sKey

sResults(i, 1) = sValue

Select Case sKey

Case "first_name"

firstName = sValue

Case "last_name"

lastName = sValue

Case "item_name"

itemName = sValue

Case "mc_gross"

mcGross = sValue

Case "mc_currency"

mcCurrency = sValue

Case "txn_id"

liushuihao = Trim(sValue)

Case "payer_email"

payeremail=Trim(sValue)

End Select

Call viate(itemName,liushuihao,mcGross,payeremail) '这里调用viate()这个function 进行认证, 并对这个订单状态进行更新 !

Msg="Pay for success! Please wait for delivery! "&"/n /n Your Order Number: "&itemName&" !"

Else

Msg="Sorry ! Your operating error! Please contact website administrator !!"

End If

response.write "<script>alert('"&msg&"');location.href='user.asp'</script>" '支付完毕返回用户信息页 !

ResponseTxt 示例:

SUCCESS mc_gross=44.00 protection_eligibility=Eligible address_status=confirmed payer_id=TMTNG8HATR5Y6 tax=0.00 address_street=1+Main+St payment_date=07%3A32%3A55+Dec+22%2C+2008+PST payment_status=Completed charset=windows-1252 address_zip=95131 first_name=Test mc_fee=1.58 address_country_code=US address_name=Test+User custom= payer_status=verified business=q2_1227410340_biz%40163.com address_country=United+States address_city=San+Jose quantity=1 payer_email=q1_1227410229_per%40163.com contact_phone= txn_id=7U833557W75672524 payment_type=instant last_name=User address_state=CA receiver_email=q2_1227410340_biz%40163.com payment_fee=1.58 receiver_id=5Q2AS9DBJGWLC txn_type=web_accept item_name=20081222225300 mc_currency=USD item_number= residence_country=US handling_amount=0.00 transaction_subject=20081222225300 payment_gross=44.00 shipping=0.00

说明一下: 可能你的paypal帐号也没钱来做测试,所在paypal想的还是很周到的, 做一个与paypal一样功能的二级域名的网站:

接口:https://www.sandbox.paypal.com/cgi-bin/webscr

在这里注册一个帐号后, 在里面可以设置两个测试帐号, 这两个测试帐号里的钱是用不完的, 你可以拿来做测试 ! 相关资料: 查看

注:

Paypal的提交时的字段与返回的字段含义

’========================================================

’mc_gross 交易收入

’address_status 地址信息状态

’paypal_address_id Paypal地址信息ID

’payer_id 付款人的Paypal ID

’tax 税收

’address_street 通信地址