forget.asp

Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明

<!-- #include virtual="/kjasp/func/DB.fun" -->

<%
mdbFile = "UsersPwd.mdb"
mdbPassword = "kj6688"

Email = Request("Email")
If Email = Empty Then
   ShowMessage "Email 尚未输入!"
End If

' 检查此一 Email 是否有申请帐号
SQL = "Select * From Users Where Email='" & Email & "'"
Set rs = GetSecuredMdbRecordset( mdbFile, SQL, mdbPassword )
If rs.EOF Then
   ShowMessage "对不起，此一 Email 并未申请帐号!"
End If

' 送出此一 Email 的会员信息
Set kjAx = Server.CreateObject("kjActiveX.Agent")
Set Outlook = kjAx.CreateObject("Outlook.Application")
Set mail = Outlook.CreateItem(0)
mail.Subject = "您的会员信息"
Body = "用户名称： " & rs("UserID") & vbCrLf
Body = Body & "　　　密码： " & rs("Password") & vbCrLf 
Body = Body & "　　　姓名： " & rs("Name") & vbCrLf & vbCrLf
Body = Body & "ASP网页制作教程 敬上"
mail.Body = Body
mail.Recipients.Add Email
mail.Save
mail.Send

ShowMessage "您的信息已经传到 " & Email & " 了！"
%>

<% 
Sub ShowMessage( msg ) 
%>
   <CENTER>
   <H2><%=msg%><HR></H2>
   <FORM><INPUT Type=Button Value="返回上一页" OnClick="history.back();">
   </FORM>
   </CENTER>
<%
   Response.End 
End Sub 
%>