????? 最近做了一個(gè)在線支付,哎呀,把我給折騰的可不輕.搞了很長(zhǎng)時(shí)間.??? PayPal 是一家 eBay 公司，它是在線付款解決方案的全球領(lǐng)導(dǎo)者，在全世界有超過(guò)七千一百六十萬(wàn)個(gè)帳戶用戶。PayPal 可由易趣買(mǎi)家和賣(mài)家、在線零售商和其他商家在 56 個(gè)市場(chǎng)以 6 種貨幣使用：加元 歐元 英鎊 美元 日元 澳元；PayPal 快速、安全而又方便，是跨國(guó)交易的理想解決方案。國(guó)內(nèi)的支付寶和PayPal 類(lèi)型是差不多的！

??? 隨著制作外貿(mào)網(wǎng)站的數(shù)量增多，有些客戶針對(duì)國(guó)外需要用到PayPal 支付接口，今天找了些PayPal 支付接口方面的資料，以備以后查詢(xún)！也可以點(diǎn)GO去看原文檔.

1.到https://developer.paypal.com/注冊(cè)一個(gè)開(kāi)發(fā)帳號(hào)，好了之后再進(jìn)入Sandbox建立測(cè)試用的Paypal虛擬帳號(hào)（至少應(yīng)該建立一個(gè)Business的和一個(gè)Personal的），信息可以是假的,注意:這里的至少兩個(gè)測(cè)試帳號(hào)是在你所建立的開(kāi)發(fā)帳號(hào)里面建立的,不要注冊(cè)錯(cuò)了；

2.測(cè)試是很麻煩,但是是必不可少的,因?yàn)槿绻蛻糍I(mǎi)過(guò)一次出錯(cuò)之后,就不會(huì)來(lái)第二次了,所以花半天時(shí)間做測(cè)試是很重要的；

3.代碼帖出來(lái)給大家參考一下,我做的是不很細(xì),支付成功后返回的結(jié)果我就沒(méi)有做,因?yàn)槲以跍y(cè)試的時(shí)候已經(jīng)沒(méi)有問(wèn)題了,所以沒(méi)有做,改天有空會(huì)完善的；

ASP.Net/C#
?
?

using System;
using System.IO;
using System.Text;
using System.Net;
using System.Web;

public partial class csIPNexample :System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
//Post back to either sandbox or live
string strSandbox = "https://www.sandbox.paypal.com/cgi-bin/webscr";
string strLive = "https://www.paypal.com/cgi-bin/webscr";
HttpWebRequest req = (HttpWebRequest)WebRequest.Create(strSandbox);

// Set values for the request back
req.Method = "POST";
req.ContentType = "application/x-www-form-urlencoded";
byte[] param = Request.BinaryRead(HttpContext.Current.Request.ContentLength);
string strRequest = Encoding.ASCII.GetString(param);
strRequest += "&cmd=_notify-validate";
req.ContentLength = strRequest.Length;

//for proxy
//WebProxy proxy = new WebProxy(new Uri("http://url:port/#"));
//req.Proxy = proxy;

//Send the request to PayPal and get the response
StreamWriter streamOut = new StreamWriter(req.GetRequestStream(), System.Text.Encoding.ASCII);
streamOut.Write(strRequest);
streamOut.Close();
StreamReader streamIn = new StreamReader(req.GetResponse().GetResponseStream());
string strResponse = streamIn.ReadToEnd();
streamIn.Close();

if (strResponse == "VERIFIED")
{
// check the payment_status is Completed
// check that txn_id has not been previously processed
// check that receiver_email is your Primary PayPal email
// check that payment_amount/payment_currency are correct
// process payment
}
else if (strResponse == "INVALID")
{
// log for manual investigation
}
else
{
//log response/ipn data for manual investigation
}
}
}
?
?

ASP.Net/VB
?
?

Imports System.Net
Imports System.IO

Partial Class vbIPNexample
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Post back to either sandbox or live
Dim strSandbox As String = "https://www.sandbox.paypal.com/cgi-bin/webscr"
Dim strLive As String = "https://www.paypal.com/cgi-bin/webscr"
Dim req As HttpWebRequest = CType(WebRequest.Create(strSandbox), HttpWebRequest)

'Set values for the request back
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
Dim Param() As Byte = Request.BinaryRead(HttpContext.Current.Request.ContentLength)
Dim strRequest As String = Encoding.ASCII.GetString(Param)
strRequest = strRequest + "&cmd=_notify-validate"
req.ContentLength = strRequest.Length

'for proxy
'Dim proxy As New WebProxy(New System.Uri("http://url:port/#"))
'req.Proxy = proxy

'Send the request to PayPal and get the response
Dim streamOut As StreamWriter = New StreamWriter(req.GetRequestStream(), Encoding.ASCII)
streamOut.Write(strRequest)
streamOut.Close()
Dim streamIn As StreamReader = New StreamReader(req.GetResponse().GetResponseStream())
Dim strResponse As String = streamIn.ReadToEnd()
streamIn.Close()

If strResponse = "VERIFIED" Then
'check the payment_status is Completed
'check that txn_id has not been previously processed
'check that receiver_email is your Primary PayPal email
'check that payment_amount/payment_currency are correct
'處理付款
ElseIf strResponse = "INVALID" Then
'log for manual investigation
Else
'Response wasn't VERIFIED or INVALID, log for manual investigation
End If
End Sub
End Class

?
?

ASP/VBScript
?
?
(requires MSXML)

<mailto:%@LANGUAGE="VBScript">
<%
Dim Item_name, Item_number, Payment_status, Payment_amount
Dim Txn_id, Receiver_email, Payer_email
Dim objHttp, str

' read post from PayPal system and add 'cmd'
str = Request.Form & "&cmd=_notify-validate"

' post back to PayPal system to validate
set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
' set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
' set objHttp = Server.CreateObject("Microsoft.XMLHTTP")
objHttp.open "POST", "https://www.paypal.com/cgi-bin/webscr", false
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.Send str

' assign posted variables to local variables
Item_name = Request.Form("item_name")
Item_number = Request.Form("item_number")
Payment_status = Request.Form("payment_status")
Payment_amount = Request.Form("mc_gross")
Payment_currency = Request.Form("mc_currency")
Txn_id = Request.Form("txn_id")
Receiver_email = Request.Form("receiver_email")
Payer_email = Request.Form("payer_email")

' Check notification validation
if (objHttp.status <> 200 ) then
' HTTP error handling
elseif (objHttp.responseText = "VERIFIED") then
' check that Payment_status=Completed
' check that Txn_id has not been previously processed
' check that Receiver_email is your Primary PayPal email
' check that Payment_amount/Payment_currency are correct
' process payment
elseif (objHttp.responseText = "INVALID") then
' log for manual investigation
else
' error
end if
set objHttp = nothing
%>

轉(zhuǎn)載于:https://www.cnblogs.com/silverLee/archive/2009/11/05/1596834.html

總結(jié)

以上是生活随笔為你收集整理的ASP.Net/C# - PayPal接口文档的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。