|
GESTIONE NEWSLETTER 2/2
INDEX.HTM
Il primo file che vi memorizziamo si chiama index.htm
ed è una normale pagine html con un modulo all'interno
del quale inserire nome utente e password necessari
per proseguire con le operazioni.
il codice sarà il seguente:
|
<html>
<head>
<title>Sezione riservata</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body
bgcolor="#FFFFFF" text="#000000"
link="#808080" vlink="#808080"
alink="#808080">
<div
align="center">
<center>
<table border="1" cellpadding="0"
cellspacing="0" width="60%"
height="317" bordercolor="#000080">
<tr bgcolor="#eeeeee">
<td width="100%" height="317"
valign="middle" align="center">
<form method="POST" action="verifica.asp">
<p align="center"><font color="#FF0000"><b><font
face="Verdana" size="3" color="#c60000">Sezione
riservata</font></b></font></p>
<p align="center"> </p>
<div align="center">
<table border="0" cellpadding="0"
cellspacing="0" width="44%">
<tr>
<td width="119%"><font face="Verdana"
size="2"><b><font color="#000080">Username</font></b> </font></td>
<td width="50%"> <input type="text"
name="user" size="20"></td>
</tr>
<tr>
<td width="119%"><font face="Verdana"
size="2" color="#000080"><b>Password</b>
</font></td>
<td width="50%"> <input type="password"
name="pwd" size="20"></td>
</tr>
</table>
</div>
<p align="center"><input type="submit"
value="Invia" name="B1"><input
type="reset" value="Reimposta"
name="B2"></p>
</form>
<p> </td>
</tr>
</table>
</center>
</div>
</body>
</html>
|
VERIFICA.ASP
I dati inseriti nel modulo appena creato vengono inviati
alla pagina verifica.asp la quale si occupa di
verificarli. Se sono corretti verrà caricata
la pagina aggiorna.asp. Se il nome utente o la
password non corrispondono a quelli specificati nel
codice della pagina stessa viene caricata la pagina
di errore.
Al momento lo username è newsletter e
la password gestione.
|
<%
response.expires=-3000
user = Replace(Request.Form("user"),"'","''")
pwd = Replace(Request.Form("pwd"),"'","''")
if
user="newsletter" and pwd="gestione"
then
session("newsletter")="si"
Session.Timeout=30
response.redirect("aggiorna.asp")
else
response.redirect("accesso_negato.htm")
end if
%>
|
AGGIORNA.ASP
In questa pagina vengono visualizzati tutti gli indirizzi
email presenti nel database, ovvero l'elenco di tutti
gli abbonati alla nostra newsletter.
Abbiamo detto che per aggiornare l'elenco degli iscritti
alla newsletter contenuto nel programma Easymail occorre
selezionare gli indirizzi da questa pagina e incollarli
nel programma stesso.
L'elenco è contenuto in un campo di testo e,
mediante
un semplice clic sull'apposito link, è possibile
selezionare tutti gli indirizzi e copiarli negli appunti
di Windows (tasto destro - copia o CTRL +C).
Il codice della pagina è il seguente:
|
<%
if session("newsletter")<>"si"
then response.redirect "accesso_negato.htm"
Response.Expires=-3000
%>
<html>
<head>
<title>Sezione riservata</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<style TYPE="text/css">
<!--
A:link { text-decoration: none; }
A:visited { text-decoration: none; }
A:active {text-decoration: none; }
A:hover {text-decoration: underline; }
A:hover {color: red }
.link:hover {color: #000000; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#666666"
link="0F1C69" vlink="0F1C69"
alink="0F1C69">
<p> </p>
<p align="center"><font size="2"
face="Verdana, Arial, Helvetica, sans-serif"><b><font
color="#C60000">NEWSLETTER:
AGGIORNA INDIRIZZI <i></i></font></b></font></p>
<div align="center"><font face="Verdana,
Arial, Helvetica, sans-serif" size="2">
<script>
<!--
function highlight(x){
document.forms[x].elements[0].focus()
document.forms[x].elements[0].select()
}
//-->
</script>
<a href="javascript:highlight(0)"
onMouseOver="window.status='Seleziona tutto';return
true">Seleziona
tutto</a> </font> </div>
<form>
<p align="center">
<textarea rows="20" cols="40"
name="textarea"><%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver
(*.mdb)};dbq=" & server.mappath("../../mdb-database/newsletter.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from email", conn
do
while not rs.eof
response.write rs("indirizzo")&VbCrLf
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%></textarea>
</p>
</form>
<p align="center"> </p>
<p align="center"> </p>
|
Come
prima cosa viene verificata l'esistenza della session
newsletter, session che viene creata quando l'utente
si è autenticato correttamente. Se tale session
non esiste significa che l'utente non è autorizzato
a visualizzare la pagina, quindi carichiamo la pagina
di errore accesso_negato.htm
Il passaggio successivo è quello di connettersi
al database e di visualizzare, in un campo di testo,
gli indirizzi email prelevati dal database.
Inoltre è presente un link che, una volta cliccato,
seleziona tutti gli indirizzi email visualizzati. A
questo punto, cliccandovi sopra col tasto destro, occorre
scegliere il comando copia, mediante il quale
questi indirizzi vengono copiati negli appunti di Windows,
rendendoli così disponibili per il programma
Easymail.
|
