Dall'archivio script > Classic ASP

Inviare la password all'utente

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Database, E-mail,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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