如何取回已忘记的密码？

forget.asp

' 申请.

<html>

<head>

<title>闪亮日子之用户密码核实</title>

</head>

<div align="center"><center>

<table border="0" cellspacing="0" width="600" height="158" >

<tr>

<td height="67"><p align="center">闪亮日子<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 = "您在山水盈盈的登录资料是:" & 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%>

[1]

赞 (0)

相关推荐

  • 如何取回已忘记的密码？

    forget.asp ' 申请. <html> <head> <title>闪亮日子之用户密码核实</title> </head> <div align="center"><center> <table border="0" cellspacing="0" width="600" height="158" > &

  • Windows10下MySQL5.7.19安装教程 MySQL忘记root密码修改方法

    Windows10下MySQL5.7.19安装教程 MySQL忘记root密码修改方法

    以MySQL5.7.19安装为例,先进行下载 当然首先是要下载咯https://dev.mysql.com/downloads/mysql/ 官网下载地址. 选择适合自己电脑的版本,点击Download,跳转,直接No thanks下载好了. 静静的等待下载,解压.这是我的解压路径D:\MySQL 正式开始安装 :Windows10 :MySQL5.7.19 解压之后 然而并没有my.ini 创建一个就行了,新建文本文档->后缀名改成ini就行了. [Client] #设置3306端口 port

  • Window下Mysql忘记root密码怎么重置

    Window下Mysql忘记root密码怎么重置

    本人机器环境: Windows 2008 R2 MySQL 5.6 以"Window下忘记Mysql的root密码"百度,找到一大堆解决方案.大多大同小异,比较经典的是百度文库上的一篇[1],图文并茂,条理也比较清晰.立刻按照这篇文章描述的操作. 具体操作如下: 以下步骤如果添加了MySQL的环境变量,则可以直接运行mysql有关命令,否则必须到mysql安装目录的bin目录下操作. 步骤如下: 1.停止mysql服务(以管理员身份,在cmd命令行下运行) net stop mysql

  • MySql5.5忘记root密码怎么办

    MySql5.5忘记root密码怎么办

    使用mysql5.5,突然root密码忘记,怎么也登录不了,很急人,该怎么解决呢?下面通过本文给大家介绍mysql5.5忘记root密码的解决办法,需要的朋友参考下吧 方法一: 操作系统:windows操作系统,xp或win7. C:\Users\Administrator>cd C:\Program Files\MySQL\MySQL Server 5.5\bin C:\Program Files\MySQL\MySQL Server 5.5\bin>net stop mysql MySQL

  • windows环境中mysql忘记root密码的解决方法详解

    一朋友告急:mysql 忘记root密码了 让我帮忙给看看,因为没有接触过mysql 所以从网上找了一下信息经我亲身实践  已经成功!mysql版本是5.1.以下是从网上找的mysql密码修改的信息:参考文章:windows下重置Mysql Root密码的方法mysql修改密码以及忘记密码1. 首先检查mysql服务是否启动,若已启动则先将其停止服务,可在开始菜单的运行,使用命令:net stop mysql 打开第一个cmd1窗口,切换到mysql的bin目录,运行命令:mysqld --de

  • CentOS7.2 忘记root密码及重置root密码的简单处理方法

    CentOS 7 root密码的重置方式和CentOS 6完全不一样,以进入单用户模式修改root密码为例. 1.重启开机按esc,在第一行按e,进行编辑 2.编辑修改两处:ro改为rw,在LANG=en_US.UFT-8后面添加init=/bin/sh 3.按Ctrl+X重启,并修改密码 4.由于selinux开启着的需要执行以下命令更新系统信息,否则重启之后密码未生效 本处关闭selinux # vi /etc/sysconfig/selinux 5.重启系统 # exec /sbin/in

  • Linux忘记root密码及设置root密码的图文操作方法

    此方法为:进入单用户模式,直接修改新密码覆盖掉以前的root密码. 操作步骤: 1.进入单用户模式 2.修改root密码 1.进入单用户方法: 1)启动Linux时,通过按上下键(其他键也可以)让Linux引导启动停留内核选择阶段,在出现如下界面: 2)输入"e"编辑,如下界面: 3)选择如下,再次按"e"进入编辑: 4)输入single回车,此时会返回到如下界面: 5)输入"b"回车,即进入单用户模式,此时登录的即为root用户,且不需要密码

  • Mac下MySQL5.7忘记root密码的解决方法

    Mac下MySQL5.7忘记root密码的解决方法

    mysql5.7忘记root密码的操作步骤: 1. 在系统偏好设置中停止MySQL服务. 2.执行命令以安全模式启动MySQL: cd /usr/local/mysql/bin sudo ./mysqld_safe --skip-grant-tables 3.新打开一个命令行窗口,在MySQL中执行 update mysql.user set authentication_string=PASSWORD('你的密码') where User='root'; FLUSH PRIVILEGES; 注

  • 关于SQL Server 2008忘记sa密码修改sa密码的方法图解

    关于SQL Server 2008忘记sa密码修改sa密码的方法图解

    1. 先用Window身份验证方式登陆进去,选择数据库实例,右键选择属性--安全性:把服务器身份验证选项从"Window身份验证模式"改为"SQLServer和Window身份验证模式".点击确定,关闭当前对象资源管理器.   2. 重 新用Window验证方式登陆,在左边的树结构中选择"数据库"下面的"安全性"选项--登录名--sa,右键属性--在"SQLServer身份验证"中输入要设置的sa密码. 3

  • sql server 2008 忘记sa密码的解决方法

    sql server 2008 忘记sa密码的解决方法

    相信很多人都跟小编一样不管是什么账号,如果很久不用就会忘记登录密码,像数据库SQL Server2008也一样有用户名和登录密码,下面小编就分享一下如何找回或修改SQL Server2008密码 前提是你有服务器网络管理员管理权限 1.首先以超级管理员administrator账户登录到电脑,然后打开据库SQL Server2008至登录界面,然后选择windows身份验证(注意:必须是超级管理员账户哦,否则是无法使用windows身份验证登录的) 2.登录进去后找到安全性菜单,然后在登录名中找

随机推荐