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.
Approfondimenti
I più letti di oggi
- Utilizzare Docker Compose con Azure App Service
- Modernizzare le applicazioni WPF e Windows Forms con Blazor
- annunciato #netstandard 2.1. .NET Core lo supporterà a partire da #netcore3, così come le prossime versione di #xamarin, #mono e #unity.il supporto per #netfx 4.8, invece, non ci sarà. https://aspit.co/bq2
- Steel Style CheckBox per Silverlight 4.0
- Utilizzare QuickGrid di Blazor con Entity Framework