serachpass.asp

来自「一个通讯录」· ASP 代码 · 共 50 行

ASP
50 行
字号 
<!--#include file="conn.asp"-->
<%
dim sql
dim nichen
dim email
dim subject
dim yourpassword
dim yourname
nichen=trim(request("usernichen"))
If nichen="" Then
	response.write "<script language='javascript'>" & chr(13)
	response.write "alert('先把名字输入呀！');" & Chr(13)
    	response.write "window.document.location.href='modify.asp';"&Chr(13)
	response.write "</script>" & Chr(13)
    	response.end	
'发邮件给用户，先需要索检用户的名称和MAIL，然后将密码发送给用户
End If
sql="select * from myclass where nichen='"+Request.form("usernichen")+"'"
rs.open sql,conn,1,1
nichen=rs("nichen")
email=trim(rs("email"))
yourname=trim(rs("name"))
subject="接收你的密码"
yourpassword=trim(rs("password"))
rs.close
set rs=nothing
conn.close
set conn=nothing
'建立一个CDONTS.NewMail对象
Set objMail=Server.CreateObject("CDONTS.NewMail")
'设置寄件人
objMail.From="intereye@etang.com"
'设置收件人
objMail.To=email
'设置邮件主题
objMail.Subject=Subject
'设置邮件内容
objMail.Body="你好,"&yourname&"!你的密码是："&yourpassword&"要记牢啊!下次可不能忘了!"
'将邮件格式设成HTML，若这两行省略，则使用默认的TXT格式。
'objMail.BodyFormat = 0
'objMail.MailFormat = 0
'寄出邮件
objMail.Send
	response.write "<script language='javascript'>" & chr(13)
	response.write "alert('密码已经寄到你的注册邮箱里了！');" & Chr(13)
    	response.write "window.document.location.href='index.asp';"&Chr(13)
	response.write "</script>" & Chr(13)
    	response.end	
%>
<head><title>找回密码</title></head>

serachpass.asp - 源码说明

本页面展示了「一个通讯录」中的 serachpass.asp 源码文件，采用 ASP 编程语言编写，共 50 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?