asp如何取回已忘记的密码?
发布时间:2010-05-13 16:33:00
如何取回已忘记的密码?
forget.asp
' 申请
<html>
<head>
<title>闪亮日子之用户密码核实</title>
</head>
<div align="center"><center>
<table border="0" cellspacing="0" width="600" height="158" >
<tr>
<td height="67" bgcolor="#FFFFFF"><p align="center">ASP之家<br>
用户密码核实</td>
</tr>
<tr>
<td height="63"><p align="center"><font color="#0000FF">请正确填写您的邮件地址,我们会在核实后,尽快将密码寄给您!</font></p>
<form method="POST" action="sendit.asp">
<div align="center"><center><p>您的邮件地址: <input type="text" name="email"
size="20" style="font-size: 12pt"> <input type="submit" value="确定"
style="font-size: 12pt"> </p>
</center></div>
</form>
</td>
</tr>
</table>
</center></div>
</body>
</html>
sendit.asp
' 确认
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
Dim DATA_PATH, objDC, objRS, email, user, pass, sendmail
DATA_PATH=Server.Mappath("users.mdb")
' 打开数据库
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open "DBQ=" & DATA_PATH & ";Driver={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
' 校验用户的信箱是否存在
%>
<html>
<head>
<title>闪亮日子之邮件地址错误提示</title>
</head>
<body>
<%
if objrs.EOF then
%>
<b><font color="red">
</font></b><div align="center"><center>
<table border="0" cellspacing="0" width="600" height="100" >
<tr>
<td height="64"><p align="center">闪亮日子<br>
邮件地址错误提示</font></td>
</tr>
<tr>
<td height="37"><b><font color="red"><p align="center">对不起,该用户邮件信箱:<%=email%>不存在。
</font></b></td>
</tr>
</table>
</center></div>
</body>
</html>
</font></B>
<% Else %>
<%
email = request.form("email")
' 从数据库中选取与递交的信箱对应的帐号、密码
user = objrs.Fields("username")
pass = objrs.Fields("password")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = webmaster@intels.net
' 网管信箱
sendmail.To = email
sendmail.Subject = "您的登陆信息,请保存好!"
' 邮件主题
sendmail.Body = "您在ASP之家的登陆资料是:" & vbCrlf & vbCrlf _
& "Username=" & user & vbCrlf _
& "Password=" & pass & vbCrlf
'邮件内容
sendmail.Importance = 2
sendmail.Send
%>
您的资料已发送到<%=email%>,请收好,欢迎再次光临!<br>
<%
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>
猜你喜欢
- 经常开发asp但对于细致的说法,真实不太清楚,这里简单的介绍下。一般情况下读取数据都是用rs.open sql,conn,1,1修改数据:r
- 非常不错,大家可以自己应用下。<% '//数据处理部分 dim Content,Num,I,st
- 先写一个批处理文件,给个例子。 代码如下:set rq=%date:~0,10% exp system/system的
- MySql5.0以后均支持存储过程,最近有空,研究了一下这个格式:CREATE PROCEDURE 过程名 ([过程参数[,...]])[特
- 客户端调用XMLHTTP的过程很简单,只有5个步骤: 1、创建XMLHTTP对象 2、打开与服务端的连接,同时定义指令发送方式,服务网页(U
- SQL中的单记录函数 1.ASCII 返回与指定的字符对应的十进制数; SQL> select ascii('A')
- 代码如下:ALTER proc [dbo].[sp_common_paypal_AddInfo] ( @paypalsql va
- 文章主要讲术了一些SQL Server新的Bug,帮您认识这些被忽略的SQL Server注入技巧。1.关于Openrowset和Opend
- 不知道大家在做页面的时候会不会遇到样式定义不生效的问题,基本的表现就是怎么改样式都没显示或只有某些浏览器正常,这时通常需要做下面的几步:确认
- Mysql分页采用limt关键字select * from t_order limit 5,10; #返回第6-15行数据select *
- 如何用HtmlEncode来显示Unicode? 见下:<%@ Language=VBS
- 有时候很多朋友访问自己的asp或php等程序页面时出现一些错误,就是页面无法显示也没有详细的错误信息,就算iis中开启了显示详细的错误也不能
- 要达到二级名的效果,必须一下条件以及流程:1、必须有一个顶级域名,而且此域名必须做好泛解析并做好指向。2、必须有一台属于你的独立的服务器。泛
- Hello, 大家好,又是我~ 大家有看过font set和一些要注意的基本问题以及通用字体族两篇文章后,应该对字体的基本有了一些了解。现
- 组合集总计: group by with rollup/cube grouping sets 子查询按执行方式分:标准子查询、关联子查询 标
- 简介 函数式编程语言在学术领域已经存在相当长一段时间了,但是从历史上看,它们没有丰富的工具和库可供使用。随着 .NET 平台上的
- J2ME是利用HttpConnection建立HTTP连接,然后获取数据,ASP也是利用HTTP协议,因而可以利用J2ME与ASP建立连接,
- 首先要解释一下:“极致之美”不是说月儿的这篇文章,因为本人还没有自大到这种程度:P,它形容的是Lisp和javascript结合的优美形态。
- 这是一篇关于使用JScript RuntimeObject(MSDN)调试的文章。虽然这些例子中的大多数在其他浏览器中不能运行,但在IE 5
- 据国外媒体报道,相较于IE8浏览器,微软最新一代浏览器IE9的最大改进就是硬件加速HTML5。微软承诺,通过利用IE9中的硬件加速功能,开发