Using PayPal IPNs

Discussion in 'ASP.NET Code Snips' started by BluJag, Sep 23, 2005.

  1. BluJag

    BluJag Perch

    Using PayPal IPNs using VB

    On your site you want to accept payment using PayPal (credit card or a PayPal account). The code below will be executed as soon as your customer has successfully paid. Whether your customer returns to your site or not doesn't matter. The <return> value in the html form below will take your customer to a thankyou.aspx page after he clicks the "Return to merchant" button on PayPal after he's paid.

    This bit of html goes into your payment page eg payments.aspx. Here you would have a summary of what it is he's paying for etc.

    The asp literals are set in the payments.aspx.vb page.

    <form action="" method="post">
    <input type="hidden" value="Message to my Website" name="cn">
    <input id="first_name" type="hidden" value="<asp:Literal" name="first_name" runat="server">
    <input id="last_name" type="hidden" value="<asp:Literal" name="last_name" runat="server">
    <input id="address1" type="hidden" value="<asp:Literal" name="address1" runat="server">
    <input id="address2" type="hidden" value="<asp:Literal" name="address2" runat="server">
    <input id="city" type="hidden" value="<asp:Literal" name="city" runat="server">
    <input id="state" type="hidden" value="<asp:Literal" name="state" runat="server">
    <input id="zip" type="hidden" value="<asp:Literal" name="zip" runat="server">
    <input id="email" type="hidden" value="<asp:Literal" name="email" runat="server">
    <input id="night_phone_a" type="hidden" value="<asp:Literal" name="night_phone_a" runat="server">
    <input type="hidden" value="_xclick" name="cmd">
    <input type="hidden" value="[email protected]" name="business">
    <input type="hidden" value="Buying My Service" name="item_name">
    <input id="amount" type="hidden" value="<asp:Literal" name="amount" runat="server">
    <input type="hidden" value="PayPal" name="page_style">
    <input type="hidden" value="1" name="no_shipping">
    <input id="item_number" type="hidden" value="<asp:Literal" name="item_number" runat="server"> ////This would hold the member ID or customer ID etc
    <input type="hidden" value="" name="return">
    <input type="hidden" value="" name="cancel_return">
    <input type="hidden" value="1" name="no_note">
    <input type="hidden" value="GBP" name="currency_code">
    <input type="hidden" value="GB" name="lc">
    <input id="notify_url" type="hidden" value="" name="notify_url">
    <input name="submit" type="image" src="graphics/paynow.gif" alt="Make payments with PayPal - it's fast, free and secure!" align="middle" border="0">

    The process_payment.aspx has just this

    <%@ Page CodeBehind="process_payment.aspx.vb" Language="vb" AutoEventWireup="false" Inherits="mynamespace.process_payment" %>

    It is not displayed to the customer at all but just runs as a result of the PayPal IPN process.

    Below is the process_payment.aspx.vb page.

    Imports System.Net
    Imports System.IO
    Public Class process_payment
    Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Put user code to initialize the page here

    '// Step 1a: Modify the POST string.
    Dim formPostData As String = "cmd=_notify-validate"
    Dim postValue As String
    Dim postKey As String

    Dim postByteArray As Byte()
    Dim responseArray As Byte()

    Dim PayPalResponse As String

    Dim MemID As String = Request.Form("item_number") '//This comes from the <input id="item_number" type="hidden" value="<asp:Literal" name="item_number" runat="server"> line of html above which would have the customer ID or member ID etc.

    For Each postKey In Request.Form
    postValue = Encode(Request.Form(postKey))
    formPostData += String.Format("&{0}={1}", postKey, postValue)

    '// Step 1b: POST the data back to PayPal.
    Dim client As New System.Net.WebClient
    client.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
    postByteArray = System.Text.Encoding.ASCII.GetBytes(formPostData)
    responseArray = client.UploadData("", "POST", postByteArray)

    PayPalResponse = System.Text.Encoding.ASCII.GetString(responseArray)

    ''// Step 1c: Process the response from PayPal.

    Select Case PayPalResponse

    Case "VERIFIED"
    '// code here to update your database, send confirmatory email to customer and so on. You have the MemID value from above so you know which customer it is.

    Case Else
    '// Possible fraud. Log for investigation.

    End Select

    End Sub

    Private Function Encode(ByVal OldValue as String) As String
    ' This helper method encodes a string correctly for an HTTP POST
    Dim newValue As String
    newValue = OldValue.Replace("\", "")
    newValue = System.Web.HttpUtility.UrlEncode(newValue)
    newValue = newValue.Replace("%2f", "/")
    Return newValue
    End Function

    End Class

Share This Page

JodoHost - 26,000 hosting end-users in 100 countries
Plesk Web Hosting
VPS Hosting
H-Sphere Web Hosting
Other Services