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%>
猜你喜欢
- 目前lnmp一键安装包比较多的问题就是502 Bad Gateway,大部分情况下原因是在安装php前,脚本中某些lib包可能没有安装上,造
- 目录前言super的用法super的原理Python super()使用注意事项混用super与显式类调用不同种类的参数总结前言Python
- 原理python没有办法直接和c++共享内存交互,需要间接调用c++打包好的库来实现流程C++共享内存打包成库python调用C++库往共享
- //香水坏坏 AT 06-07-25 //郁闷的事情总是接连不断,无形的压力来自内心的恐惧 大家在用.net进行数据操作
- 今天来说一下如何判断字典中是否存在某个key,一般有两种通用做法,下面为大家来分别讲解一下:第一种方法:使用自带函数实现。在python的字
- 先解释一下这篇Blog延期的原因,本来已经准备好了全部内容,但是当我重新回顾实例三的时候,发现自己还是存在认知不足的地方,于是为了准确表述,
- 直接看下面例子my_ld = [lambda x:x*i for i in range(3)]my_list = [ld(2) for ld
- 如果有一个字符串 eg: "sun,star,moon,clouds",想要在MS SQL中根据给定的分隔符',
- 油猴脚本(Tampermonkey)是一个非常流行的浏览器扩展,它可以运行由广大社区编写的扩展脚本,来实现各式各样的功能,常见的去广告、修改
- 知识点图像模块 (Image.Image)Image模块的功能Image模块的方法ImageChops模块ImageColor模块基础使用图
- 本文实例讲述了Thinkphp5.0 框架的请求方式与响应方式。分享给大家供大家参考,具体如下:Thinkphp5.0 的请求方式方法一(使
- pathlib 模块提供了表示文件系统路径的类,可适用于不同的操作系统。使用 pathlib 模块,相比于 os 模块可以写出更简洁,易读的
- 当大家发现数据库查询性能很慢的时候,大家都会想到加索引来优化数据库查询性能,但是面对一个复杂的SQL语句,找到一个优化的索引组合对人脑来讲,
- 基本映射映射使用在根据不同URLs请求来产生相对应的返回内容.Bottle使用route() 修饰器来实现映射.from bottle im
- 扩展名在写Python程序时我们常见的扩展名是py, pyc,其实还有其他几种扩展名。下面是几种扩展名的用法。pypy就是最基本的源码扩展名
- 如下dataframe想要删除多层indextop1000[:10]namesexbirthsyearpropyearsex1880F0Ma
- 其实就是通过 FontProperties来设置的,请参考以下代码:import matplotlib.pyplot as pltfrom
- 本文实例讲述了php计算给定日期所在周的开始日期和结束日期。分享给大家供大家参考,具体如下:<?php/** * 取得给定日期所在周的
- isset(PHP 3, PHP 4, PHP 5 )isset -- 检测变量是否设置描述bool isset ( mixed var [
- 1、残差连接是目前常用的组件,解决了大规模深度学习模型梯度消失和瓶颈问题。通常,在10层以上的模型中追加残差连接可能有帮助。from ker