📄 findpassword.asp
字号:
<!--#include file="inc/userconn.inc"-->
<html>
<head>
<title>找回密码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/guhongying.css" type="text/css">
</head>
<body bgcolor="7C96B8" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000" vspace="0" hspace="0">
<tr>
<td bgcolor="#316395" height="27"><font color="#FFFFFF">.:: 用户自助申诉-->密码找回</font></td>
</tr>
</table>
<table height="50" align="center"><tr><td></td></tr></table>
<%if request("ok")<>"ok" then%>
<table width="70%" border="0" cellspacing="1" cellpadding="6" bgcolor="#000000" align="center">
<tr bgcolor="6699CC">
<td><font color="#FFFFFF">您可以由此找回您的密码：</font></td>
</tr>
<tr bgcolor="eeeeee">
<td>
<center><br>
<form name="Login" method="post" action="findpassword.asp">
亲爱的用户，如果您的密码遗失或者被盗，<br><br>请在下面的表单中输入您的帐号，<br><br>系统会自动将密码发送到您的信箱。<br><br>
您的帐号：<input type="text" name="username"><br><br><input type="submit" name="Submit3" value="确 定"> <input type="reset" name="Submit2" value="清 除">
<input type="hidden" name="action" value="find">
<br><br>
<br>
</form></center>
</td>
</tr>
</table>
<%else%>
<table height="50" align="center"><tr><td></td></tr></table>
<table width="70%" border="0" cellspacing="1" cellpadding="6" bgcolor="#000000" align="center">
<tr bgcolor="6699CC">
<td><font color="#FFFFFF">您可以由此找回您的密码：</font></td>
</tr>
<tr bgcolor="eeeeee">
<td>
<center><br>
<form name="Login" method="post" action="findpassword.asp">
亲爱的用户，您的密码已经发送到您注册时候填写的信箱中，<br><br>请注意查看收！！^&^<br><br>希望您以后可以保护好您的密码。<br><br>
如有其他问题请至信<a href="mailto:user@transcendinfo.com">user@transcendinfo.com</a><br>
<br><br><br>
</form></center>
</td>
</tr>
</table>
<%end if%>
</body>
</html>
<%
if request("action")="" then response.end
'取的丢失密码帐户的EMAIL地址
set rs=server.createobject("adodb.recordset")
username=request("username")
Username=replace(Username,"'","")
sql="select * from user where username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.redirect "error.asp?error=008"
end if
'设置发信人
frommail="admin@ye21.net"
'设置邮件主题
mailsubject="您在ye21.net的密码！！！"
'设置邮件内容
mailbody="您的密码是 " & rs("password")
'判断对谁发信
tomail=rs("email")
'发
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject
objCDOMail.Body = mailbody
'objCDOMail.Send
Set objCDOMail = Nothing
response.redirect "findpassword.asp?ok=ok"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -