Princippet er man laver en input form hvor man indtaster email adressen og så send koden så en mail til email adressen med brugernavn og password. Alternativet skriver man sit brugrnavn og så sende emailen til den adresse der er i databasen med password..
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then email = replace(Request.Form("email"),"'","") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DIN CONNECTION STRING"
SQL = "select * from Tuser where mail = '" & email & "'" Set rs=Conn.Execute(SQL) if rs.EOF then Response.Write "Ukendt email adresse" else 'Send mailen Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Din side" Mailer.FromAddress= "dit@domæne.dk" 'ANGIV mail server adressen her Mailer.RemoteHost = "mailhost.localisp.net" Mailer.AddRecipient rs("FBruger"), rs("mail") Mailer.Subject = "Glemt password, her din redning!"
body = "Dit brugernavn er: " & rs("FBruger") & VbCrLf body = body & "Dit password er: & rs("Fpass") & VbCrLf body = body & "Hilsen xxx.xxxx
Mailer.BodyText = body if Mailer.SendMail then Response.Write "Mailen er sent, så du skulle få dit password om et øjeblik :)" else Response.Write "Mail send failure. Error was " & Mailer.Response end if End if %> <html> <body> Glemt password, skriv din email adresse her og så tilsent dit password: <form action="<%=Request.Servervariables("SCRIPT_NAME")%>" method="post"> <input type="text" name="email"> <input type="submit" name="send" value="send"> </form> </body> </html>
hmm kan man ikke fixe sådan man skrive ens brugernavn så tjekker den om hans mail er skrevet ind i databasen.. og hvis den ikke er skrevet ind så skriver den "skriv til fruth@c.dk og snak med ham." eller noget i den stil.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.