Forget.asp
' application .
<title> Bright Days of user password verification </title>
<div align= "center" ><center>
<table border= "0" cellspacing= "0" width= "" height= "158" >
<tr>
<TD height= "><p" align= "center" > Shining Day <br>
User Password Verification </td>
</tr>
<tr>
<TD height= "><p" align= "center" ><font color= "#0000FF" > please fill in your email address correctly , we will verify send the password to you as soon as possible !</font></p>
<form method= "POST" action= "sendit.asp" >
<div align= "center" ><center><p> Your email address : <input type= "text" name= "email"
Size= "style=" "font-size:12pt" > <input type= "Submit" value= " OK "
style= "font-size:12pt" > </p>
</center></div>
</form>
</td>
</tr>
</table>
</center></div>
</body>
Sendit.asp
' confirm .
<%@ language= "VBscript"%>
<% Option Explicit%>
<%
Dim Data_path, OBJDC, objRS, email, user, pass, SendMail
Data_path=server.mappath ("Users.mdb")
' Open the database .
Set OBJDC = Server.CreateObject ("ADODB. Connection ")
Objdc.connectiontimeout = 15
Objdc.commandtimeout = 30
Objdc.open "dbq=" & Data_path & ";D river={microsoft Access Driver (*.mdb)}; driverid=25; maxbuffersize=8192; threads=20; "," admin "," password "
Set objRS = Server.CreateObject ("ADODB. Recordset ")
Email=request.form ("email")
Objrs.open "SELECT * from USERS WHERE email = '" & Email & "", OBJDC, 0, 1
' Verify that the user's mailbox exists .
%>
<title> Landscape-ying's email address error alert </title>
<body>
<%
If objRS. EOF Then
%>
<b><font color= "Red" >
</font></b><div align= "center" ><center>
<table border= "0" cellspacing= "0" width= "height=" >
<tr>
<TD height= "><p" align= "center" > Landscape Ying <br>
Email address error tip </font></td>
</tr>
<tr>
<td height= "Notoginseng" ><b><font color= "Red" ><p align= "center" > sorry , the user mail box : <%=email%> does not exist !
</font></b></td>
</tr>
</table>
</center></div>
</body>
</font></B>
<% Else%>
<%
email = request.form ("email")
' Select the account number and password from the database that corresponds to the mailbox you submitted.
user = objRS. Fields ("username")
pass = objRS. Fields ("password")
Set SendMail = Server.CreateObject ("CDONTS. NewMail ")
SendMail. From = Webmaster@intels.net
' network management mailbox .
SendMail. to = Email
SendMail. Subject = " Your login information , please save !"
' Mail subject .
Sendmail.body = " you are in the landscape of the login information is :" & VbCrlf & VbCrlf _
& "Username=" & user & VbCrlf _
& "password=" & Pass & VbCrlf
' mail content .
SendMail. Importance = 2
SendMail. Send
%>
Your information has been sent to <%=email%>, please collect , welcome to visit !<br>
<%
Objdc.close
Set objRS = Nothing
Set OBJDC = Nothing
Set SendMail = Nothing
%>
<%end if%>
[1]