Mirabilweb
a- a+

Creare un sistema di messaggi privati per gli utenti del proprio sito web (Parte IX)

Pagina 9 di 10

Il sistema per recuperare la password è composto da solo due pagine:

  • Ricorda_pwd.asp, in cui si troverà un semplice form in cui inserire il proprio indirizzo email

  • Invia_pwd.asp, una pagina che si occuperà di prelevare la password e di inviarla via email

 

Ecco il codice della pagina ricorda_pwd.asp:

<html>

<head>

<title>Tutorial Computer ASP ==&gt; Creare un sistema di messaggi privati</title>

<script language="JavaScript" type="text/javascript">

<!--

function CheckTAFForm(AForm)

 {


if (AForm.email.value == "" || AForm.email.value.indexOf ('@', 0) == -1 || AForm.email.value.indexOf('.') == -1 || (AForm.email.value.indexOf(' ') != -1))  {

  alert("E-mail non valida!");

  AForm.email.focus();

  return false;

}


}


//-->

</script>



</head>


<body>

<b>

<font face="Verdana" size="2">

Compila il seguente campo per farti inviare la password via email:</font></b>

<form method="POST" action="invia_pwd.asp" onSubmit="return CheckTAFForm(this);" name="TAFForm">


  <div align="center">

    <center>

    <table border="0" cellpadding="0" cellspacing="0" width="224">

      <tr>

        <td width="72"><font face="Verdana" size="1"><b>Email:</b></font> </td>

        <td width="148"><font face="Verdana" size="1"><b><input type="text" name="email" size="20"></b></font></td>

      </tr>

      <tr>

        <td colspan="2" width="220">

          <p align="center"><font face="Verdana" size="1"><b><input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></b></font></td>

        

      </tr>

    </table>

    </center>

  </div>

</form>

&nbsp;

<p align="right">&nbsp;</p>

<p align="right"><font face="Verdana" size="1">by Mirabil Web Computer, per

altri tutorial, clicca <a href="http://www.mirabilweb.tk" target="_blank">qui</a></font>

<font face="Verdana" size="1">o visita <a href="http://www.mirabilweb.tk">http://www.mirabilweb.tk</a>

</font></p>


</body>


</html>

 

 

Ecco il codice della pagina invia_pwd.asp, che invia all’utente un’email con l’username e la password, per comodità personale ho utilizzato per l’invio dell’email il CDONS, verificare che esista nel server in cui si installa il seguente script ASP:

 

 

<head>

<title>Tutorial Computer ASP ==&gt; Creare un sistema di messaggi privati</title>

</head>

<%
‘ SI APRE LA CONNESIONE AL DB E SI SELEZIONA L’UTENTE

email=request.form("email")



dbfile=Server.mappath("/msgprivati.mdb")

set db=server.createobject("adodb.connection")

db.connectionstring="provider=microsoft.jet.oledb.4.0;" _

                        & "data source=" & dbfile

db.open

%>

<!-- CERCHIAMO L'UTENTE -->

<%

sql=" SELECT Email, Password, Nickname FROM utenti WHERE Email ="

sql=sql & "'" & email & "';"

set tabella=server.createobject("adodb.recordset")

tabella.open sql,db

if tabella.eof then

%>



<!—SE NON ESISTE SI VISUALIZZA LA SEGUENTE FRASE-->

<p align="center"><font face="Verdana" size="2"><b>

Email non trovata!


<%

‘ ALTRIMENTI SI SELEZIONANO I CAMPI RICHIESTI DAL DB (PASSWORD, EMAIL, NICKNAME) E SI INVIA

‘ L’EMAIL

else


  password=tabella.fields("password")

  email=tabella.fields("email")

  nickname=tabella.fields("nickname")


%>

<!-- INVIAMO L'E-MAIL -->

<%

  set email=server.createobject("cdonts.newmail")

%>

<!-- INSERIRE IL MITTENTE -->

<%email.From = "info@mirabilweb.tk"

  email.To = mail

  email.Subject = "Ecco la tua password"

  corpo = "La password richiesta è  "
  corpo = corpo + password


  email.Body = corpo 

  email.Send()


  Set email = Nothing

%>

Password Inviata Correttamente! </b></font>


<%

end if


%>


<p align="right">&nbsp;</p>


<p align="right">&nbsp;</p>


<p align="right">&nbsp;</p>


<p align="right"><font face="Verdana" size="1">by Mirabil Web Computer, per

altri tutorial, clicca <a href="http://www.mirabilweb.tk" target="_blank">qui</a></font>

<font face="Verdana" size="1">o visita <a href="http://www.mirabilweb.tk">http://www.mirabilweb.tk</a>

</font></p>

 

Finisce così il nostro breve tutorial/manuale. Ti ricordiamo che se hai dubbi, problemi o semplicemente vuoi partecipare alle discussioni su ASP vai al forum di Mirabil Web Computer, nel quale è possibile discutere su questa lezione/tutorial, su quelle precedenti e su altri temi legati ad ASP e al mondo dei PC e dell'Informatica in generale. Disponibile inoltre un servizio di assistenza gratuita online per il tuo PC.



Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Marcello
Ti è piaciuto l'articolo?