ＰayPal即时付款通知ＩＰＮ，ＰＤＴ，支付接口，附代码，請有用过PayPal的朋友进去看看，謝謝

[janethwang]

ＰayPal即时付款通知ＩＰＮ，ＰＤＴ，支付接口，附代码，請有用过PayPal的朋友进去看看，謝謝

問題點如下：
When customer have been paid, I didn't have receive store transaction information in our own database, Our own payment_status field of database was blank.
Could you please possibly help me check the code of ipn.asp and pdt.asp? and tell me how to solve the problem. thanks a lot.

ipn.asp代碼如下：
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%

' dim some variables
Dim Item_name, Item_number, Payment_status, Payment_amount
Dim Txn_id, Receiver_email, Payer_email
Dim objHttp, str

'begin IPN handling
' 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")
firstName = Request.Form("cust_firstname")
lastName = Request.Form("cust_lastname")

set rs=Server.CreateObejct("ADODB.Recordset")
sql="select * from [shop_action]
rs.open sql,conn,2,3
rs("cust_firstname")=first_name
rs("cust_lastname")=last_name
rs("Payer_email")=payer_email
rs("payment_status")=payment_status
rs.update
rs.close
set rs=nothing


' 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
' add code to handle the INVALID scenario

else
' error
end if
set objHttp = nothing
%>

pdt.asp代码如下：
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%

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
end if
i=i+2
else
newstr=newstr & char_c
end if
next
urldecode=newstr
end Function

str1=Trim(request.querystring("tx"))
str2="&at=ueV5o5HCx2Wvqyc3RBi2SIhSizleX_or8LWDx_OJ9EeEbkHryuayx9qDma45" '这里是Paypal身份标记 获取方法

str = "?tx="&str1& "&cmd=_notify-synch"&str2
'
paypalurl="https://www.sandbox.paypal.com/cgi-bin/webscr"
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 "receiver_email"
receiver_email = Trim(receiver_email)
Case "payment_status"
payment_status=Trim(sValue)
End Select
Next
Else
response.write Mid(ResponseTxt,1,7)
response.end
End IF

response.write "从PAYPAL返回的数据为:" & firstName & "<br>" & lastName & "<br>" & itemName & "<br>" & mcGross & "<br>" & mcCurrency & "<br>" & receiver_email & "<br>" & payment_status & "<br>" '
'response.End

set rs=server.createobject("adodb.recordset")
sql="select cust_firstname,cust_lastname,payer_email,payment_status,mc_gross from shop_action"
rs.open sql,conn,1,3
rs.addnew

firstName=firstName
lastName=lastName
Payer_email=receiver_email
payment_status=payment_status

rs("cust_firstname")=firstName
rs("cust_lastname")=lastName
rs("payer_email")=Payer_email
rs("payment_status")=payment_status
rs.UPDATE
rs.close
set rs=nothing
conn.close
set rs=nothing
%>

<meta http-equiv="refresh" content="5;URL=index.asp">

<link href="css/layout.css" rel="stylesheet" type="text/css">

<br>
Thank you for your payment. Your transaction has been completed, and a receipt for your purchase has been emailed to you.<br>
You may log into your account at <A
href="https://www.paypal.com/us/">www.paypal.com/us</A> to view details of this transaction.
<br>
If this page backs for more than 5 seconds, click <a href="index.asp">here</a> to back home.

支付接口代码如下：
<form target="paypal" action="https://www.paypal.com/cgi-bin/webscr" method="post">
<input type="image" src="https://www.paypal.com/en_US/i/btn/btn_paynowCC_LG.gif" border="0" name="submit" alt="PayPal
is the safer, easier way to pay - PayPal">
<input type="hidden" name="cmd" value="_cart">
<input type="hidden" name="business" value="[e-mail]">
<input type="hidden" name="item_number_1" value=" <%=dingdan%>">
<input type="hidden" name="currency_code" value="USD">
<input type="hidden" name="cancel_return" value="http://www.coll.com/?state=null">
<input type="hidden" name="return" value="http://www.coll.com/pdt.asp">
<input type="hidden" name="shipping" value=" <%=feiyong%>">
<input type="hidden" name="charset" value="UTF-8">
<input type="hidden" name="notify_url" value="http://www.coll.com/ipn.asp">
<input type="hidden" name="upload" value="1">
<input type="hidden" name="no_note" value="1">
<input type="hidden" name="bn" value="PP-BuyNowBF">
</form>

[janethwang]

当点返回Return Merchant时，网址栏出现：http://www.cool.com/pdt.asp?mc_gross=169.99&protection_eligibility=Eligible&address_status=confirmed&item_number1=20096623640&payer_id=RQ8S4GMA8BBLC&tax=0.00&address_street=1+Main+St&payment_date=23%3A37%3A10+Jun+05%2C+2009+PDT&payment_status=Completed&charset=windows-1252&address_zip=95131&mc_shipping=0.00&mc_handling=0.00&first_name=Test&mc_fee=5.23&address_country_code=US&address_name=Test+User¬ify_version=2.8&custom=&payer_status=verified&business=[e-mail]&address_country=United+States&num_cart_items=1&mc_handling1=0.00&address_city=San+Jose&payer_email=[e-mail]&verify_sign=AaUY9aqMunbLclQFgfJxh5rc9S3CAjlBcB2Et1Q1mC-Eq89aX5ZniYma&mc_shipping1=0.00&tax1=0.00&txn_id=1EX25155SX279564U&payment_type=instant&last_name=User&receiver_email=[e-mail]&item_name1=17312%2CMarine+Shore+Power+Y+Adapter%2C+Locking+Connector+with+LED+Power+Indicator+Light+and+Sealing+Collar+System.50A+125%2F250V+to&address_state=CA&payment_fee=5.23&quantity1=1&receiver_id=L9QJBUV5CHC8J&txn_type=cart&mc_currency=USD&mc_gross_1=169.99&residence_country=US&test_ipn=1&transaction_subject=Shopping+Cart&payment_gross=169.99&merchant_return_link=Return+to+Anna+Hwang%27s+Test+Store&auth=P2oJhTjE_IKmSCYyfp5NZS4TML_Y0pQYZnTeTkPRVSC9buOrXRlbjT5Xfdo-aSRozRWfX51q1FSVljnT

FAIL

当客人成功支付时，到数据库查看订单表的payment_status 时，payment_status 是空白的，请高手帮忙看看哪儿有问题，谢谢