Inviare la password all'utente
In quasi tutte le community è presente un sistema per ricevere la password, via e-mail, qualora questa sia stato dimenticata.
In realtà si tratta di un insieme di script che abbiamo già visto ma che è comunque comodo avere qui, tutti insieme.
L'indirizzo e-mail e la password vengono prelevate da un database, con una tabella di nome "members" e tre colonne (user, mail e password).
<%
' controlla l'e-mail
user = Trim(Request.Form("user"))
If Len(user) < 5 Then
Response.write "<P>Hai dimenticato la password?"
Response.write "<form method=post>" &_
"Inserisci lo user-id: "&_
"<input type=""text"" name=""user"">"&_
"<input type=""submit"" value=""Invia"">"&_
"</form> "
Else
' apri il database e cerca la password
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn ' da sostiuire
user = Replace(user, "'", "''")
SQL = "SELECT Mail, Password FROM members WHERE " &_
" user = '" & user & "'"
Set Rs = Conn.Execute(SQL)
' non trovato!
If Rs.EOF Then
Response.write "<P>Non esiste questo utente!"
Else
' invia la password
mail = Rs("mail")
password = Rs("password")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "webmaster@sito.boh"
objMail.To = mail
objMail.Subject = "Ecco la tua password"
cdoMail.Body = password
cdoMail.Send()
Set cdoMail = Nothing
Response.Write "<P>Password spedita!"
End if
' un po' di pulizie...
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End If
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
