Mirabilweb
a- a+

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

Pagina 10 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 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: 

 

<%
‘ 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

%>

 

 


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!

 

<%

end if

 

%>       

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
Pier Paolo
Condividi le tue opinioni su questo articolo!