Creazione e gestione di una semplice mailing list

20 marzo 2006

Ora il file di connessione al database. Lo chiameremo store.asp:

<%
‘stringa di connessione
cstring = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”
& Server.MapPath(“/database/lista.mdb”)
‘oggetto connessione
Set objConn=Server.CreateObject(“ADODB.Connection”)
objConn.Open cstring
%>

Occhio: nel file di connessione è necessario modificare la stringa di connessione sostituendo, all’url riportato nell’esempio, l’indirizzo fisico del nostro database.

A questo punto possiamo creare lo script per l’inserimento dei nuovi indirizzi, che chiameremo AddUser.asp. Ricordo che il file adovbs.inc (che come vedremo è incluso a sua volta in AddUser.asp) è un file che dichiara varie funzioni e variabili ActiveX Data Objects (ADO). Troverai anche adovbs.inc nella cartella compressa da scaricare.

<!–#INCLUDE file=”moduli/store.asp”–>
<!– #INCLUDE file=”moduli/adovbs.inc”–>
<%
‘aggiunta nuovo utente
DIM NewEmail
NewEmail = Request.Form(“EMail”)
Dim objRec
Set objRec = Server.CreateObject(“ADODB.Recordset”)
sql=”select * from mailing_list where email = ‘”&NewEmail&”‘”
objRec.Open sql, objConn, 3, 3
if not objRec.eof then
response.write(“<div align=’center’>Utente già iscritto!</div>”)
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn = Nothing
else
‘crea nuovo record
objRec.AddNew
objRec(“EMail”) = NewEMail
objRec.Update
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn = Nothing
response.write(“<div align=’center’>Nuovo utente inserito</div><br/>”)
response.write(“<div align=’center’>Benvenuto!</div>”)
end if
%>

AddUser.asp è molto semplice, direi essenziale: recupera l’indirizzo email inserito dall’utente e con una query di select controlla che non sia già presente nel database. In caso affermativo, ne avvisa l’utente, altrimenti aggiunge il nuovo indirizzo al database.In entrambi i casi, al termine chiude e distrugge recordset e connessione al database.

Terza parte – Amministrazione

Diamo uno sguardo d’insieme al nostro script. Abbiamo creato un database
di indirizzi email (lista.mdb), un file per la connessione (store.inc), un form per l’inserimento degli indirizzi (index.asp) e infine uno script per aggiungerli al database (AddUser.asp). Semplice, no?

Ora dobbiamo occuparci di amministrare la lista. Naturalmente questo si potrebbe fare manualmente, disponendo di un accesso fisico al server, ma la forza e la bellezza delle ASP risiedono proprio nel permetterci di realizzare queste azioni da remoto, via web.

Tre funzioni principali devono essere eseguite dall’amministratore della lista:

  1. vedere la lista degli utenti
  2. cancellare un utente
  3. inviare messaggi agli utenti

Prima di occuparcene però vorrei aprire una brevissima parentesi riguardante la sicurezza.

Per quanto la nostra lista contenga dati di importanza e riservatezza non strategiche, sarà come sempre opportuno:

– memorizzarne i files amministrativi (quelli relativi alla gestione della lista) in una cartella diversa, possibilmente esterna alla root del sito

– proteggere questi files limitandone l’accesso al solo utente autorizzato a usarli, l’amministratore della lista

Per realizzare questo livello “minimo” di protezione abbiamo integrato lo script con una cartella (login) contenente una elementare routine di autenticazione.

Per accedere la prima volta ai files di amministrazione, inserisci come credenziali:

User = admin
Password = admin

Per gli accessi successivi potrai modificare a tua discrezione i dati contenuti nella tabella user del database, per esempio editandola in Access.

Se vuoi aggiornamenti su Creazione e gestione di una semplice mailing list inserisci la tua e-mail nel box qui sotto:
 
X
Se vuoi aggiornamenti su Creazione e gestione di una semplice mailing list

inserisci la tua e-mail nel box qui sotto:

Ho letto e acconsento l'informativa sulla privacy

Acconsento al trattamento di cui al punto 3 dell'informativa sulla privacy