Un programma di affiliazione in Asp: le basi del progetto

Autore: Luca Ruggiero | Tell a Friend eBook ASP base Impara a creare siti dinamici con ASP e VBScript da zero! Corso ASP Impara a creare siti dinamici professionali con ASP! E-Commerce con ASP Impara a creare un sito di E-Commerce con carrello della spesa!

Introduzione

Le attuali strategie di Marketing adottate da Siti e Portali che si occupano di vendita di prodotti online, prevedono spesso un sistema pubblicitario particolarmente conveniente sia per loro stessi che per i loro Partners. Si tratta di uno strumento che in gergo viene chiamato Programma di Affiliazione, ovvero un software (in questo caso realizzato in Asp) che permette ai Webmaster di registrarsi, chiedere eventualmente approvazione per il proprio Sito, ed ottenere un identificativo che verrà tenuto in considerazione al momento di un acquisto effettuato da un cliente.

In questo Articolo non ci occuperemo, ovviamente, della burocrazia che gravita intorno a tali sistemi di guadagno, ma dell'aspetto tecnico del software. Poniamo il caso di un Portale di servizi che offre una ricompensa ai propri Partners pubblicitari che, segnalando il servizio in questione, riescono a far registrare un nuovo utente: un Pay per Lead (ricompensa per la sola iscrizione).

Architettura dell'applicazione

Do per scontato che il lettore abbia conoscenza di accesso ad dati di un database Ms Access con Asp; se cosi non fosse consiglio di far prima pratica in questo senso prima di imbarcarsi in una situazione delicata dove c'è di mezzo del denaro, caso specifico di un Programma di Affiliazione.

Fatta questa premessa, avviso il lettore che mi limiterò a spiegare in termini analitici come implementare un Programma di Affiliazione su di una struttura di E-Commerce, o del servizio menzionato in precedenza, già esistente e funzionante.

Presumo che detta struttura sia corredata da un database con almeno due tabelle, i cui nomi che utilizzerò sono indicativi: la tabella utenti conterrà gli utenti registrati al servizio e la tabella servizio conterrà dati di varia natura proprietari del servizio in questione.

Che queste tabelle siano relazionate tra loro, nel caso di un Pay per Lead non ci interessa.

La tabella utenti conterrà campi relativi al nome, cognome, email ed altri dati necessari sempre al fine del servizio; la cosa indispensabile è quella di implementarla con un nuovo campo che chiameremo ref (referente) di tipo testo che consenta lunghezza zero (che può essere lasciato vuoto), lunghezza a discrezione dello sviluppatore.

Questo nuovo campo ci consentirà di registrare l'identificativo dell'eventuale Sito Partner referente.

Si crei una nuova tabella che chiameremo affiliati dove verranno registrati i dati dei Partners; i campi sono a discrezione dello sviluppatore: presumo che ci sarà la richiesta di una password, dell'indirizzo email, dell'indirizzo del Sito su cui verranno esposti banner e/o spot, indirizzo, telefono ecc... L'unico campo che deve essere creato è username (di tipo testo, altre proprietà a discrezione dello sviluppatore) che, nell'ambito dello script che utilizzeremo, viene utilizzato come parametro di identificazione del referente.

La pagina di iscrizione di nuovi utenti: iscriviti.asp

Siamo arrivati al punto caldo, la pagina di iscrizione di nuovi utenti: vediamo come si comporterà il software in base al fatto che ci sia un Sito referente in ballo o meno. Ribadisco che sto parlando di una pagina già esistente, in cui deve solo essere implementato lo script in questione.

Si implementi nel modulo di registrazione, all'intermo dei Tag <form> e </form> una casella di testo nascosta con name="ref", il cui value sarà o meno vuoto in base al fatto che ci sia o meno un Sito referente.

Il Sito referente adotterà un link verso il servizio del tipo

http://www.nomeservizio.ext/iscriviti.asp?ref=PROPRIA_USERNAME

<%@LANGUAGE = JScript%>
<%
    // Recupero la Username del referente
    var ref = new String(Request.QueryString("ref"));
    var r_ref = ref.replace(/'/g,"''");

    // Se c'è un referente...
    if (ref != "undefined")
    {
       // ...apro la connessione verso il database.
       var Cn = new ActiveXObject("ADODB.Connection");
           Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("database.mdb"));

       // Verifico che il referente esista e...
       var VerificaReferrer = Cn.Execute("SELECT username FROM affiliati WHERE username = '" + r_ref + "'");

       if (!VerificaReferrer.EOF)
       {
           // ...se esiste creo la variabile di Sessione a suo nome
           Session("ref") = ref;
       }
       else
       {
           // ...oppure non creo nessuna Sessione.
           Session("ref") = null;
       }

       // Chiudo la connessione.
       Cn.Close();      
    }

    // Al fine di assegnare un value alla casella di testo nascosta
    // creo una funzione dedicata che verifica che:
    function ReferrerNull()
    {
        if (Session("ref") == null)
        {
            // se la sessione è nulla stamperà una stringa vuota
            Response.Write("");
        }
        else
        {
            // oppure la Username del referente.
            Response.Write(ref);
        }
    }
%>
<html>
 <head>
  <title>Iscriviti al nostro servizio</title>
 </head>
<body>

<form method="POST" action="elabora.asp">
    <input type="hidden" name="ref" value="<%ReferrerNull()%>">
    <!--
        Inserire qui tutti gli altri campi del modulo di registrazine,
        ad esempio nome, cognome, email e quant'altro si ritenga necessario
        al fine di registrare un nuovo utente al proprio servizio.
    -->
</form>

</body>
</html>

<form method="POST" action="elabora.asp">

<input type="hidden" name="ref" value="<%ReferrerNull()%>">

value="<%Session("ref") == null ? Response.Write("") : Response.Write(ref)%>"

http://www.nomeservizio.ext/iscriviti.asp?ref=lukeonweb

http://www.nomeservizio.ext/iscriviti.asp?ref=lukeonw

<%@LANGUAGE = JScript%>
<%
    var ref = new String(Request.QueryString("ref"));
    var r_ref = ref.replace(/'/g,"''");

    if (ref != "undefined")
    {
       var Cn = new ActiveXObject("ADODB.Connection");
           Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("database.mdb"));

       var VerificaReferrer = Cn.Execute("SELECT username FROM affiliati WHERE username = '" + r_ref + "'");

       if (!VerificaReferrer.EOF)
       {
           Session("ref") = ref;
       }
       else
       {
           Session("ref") = null;
       }

       Cn.Close();      
    }

    Response.Redirect("iscriviti.asp");
%>

http://www.nomeservizio.ext/partners.asp?ref=PROPRIA_USERNAME

<%@LANGUAGE = JScript%>
<%
    if (Session("username") == null)
    {
        Response.Write("ACCESSO NEGATO!");
        Response.End;
    }
    else
    {
        Session("username") = username;
    }
%>
<html>
...

var Conta_Tuoi_Utenti = Cn.Execute("SELECT COUNT(*) AS id FROM utenti WHERE username = '" + Session("username") + "'");

<p align="center">
    Ciao <%=Session("username")%>, ci hai portato <%=Conta_Tuoi_Utenti("id")%> iscritti!
</p>