📄 fywen_passwordmail.asp
字号:
<!--#include file="inc/config.Asp"-->
<!--#include file="conn.Asp"-->
<!--#include file="Inc/Fywen_Post.Asp"-->
<!--#include file="inc/index_inc.Asp"-->
<!--#include file="inc/Md5.Asp"-->
<!--#include file="inc/post_mail.Asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
username=request.Form("username")
mail=request.form("mail")
%>
<html >
<head>
<link rel="Shortcut Icon" href="favicon.ico">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META NAME="keywords" CONTENT="<%=keywords%>">
<META NAME="description" CONTENT="<%=description%>">
<META NAME="robots" CONTENT="all">
<title><%=fywenname%> - 密码找回<%call serach()%></title>
<link href="skin/<%=skin%>/fywen.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="Fywen_Top.Asp"-->
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" height="76%">
<tr>
<td>
<%
Set rs= server.createobject("adodb.recordset")
Sql="select * from [user] where [username]='"&Username&"' And [mail]='"&mail&"'"
Rs.Open Sql,Conn
If rs.eof Then
%>
<table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>
<tr>
<td height='55'><br/><br/>
对不起，会员名称或邮箱地址错误<br/>
<br/>当前操作：<br/><br/>
<a href='javascript:window.history.back();' class='size'>返回</a></td>
</tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr></table>
<%
Else
%>
<table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>
<tr>
<td height='55'><br/><br/>
<%
Function GetValidateCode()
Randomize Timer '产生一个随机树
GetValidateCode=Left(Int(Rnd*999998)+100000,6)
If Len(GetValidateCode)>6 Then
GetValidateCode=Len(GetValidateCode&999999,6)
End If
End Function
postusername=rs("username")
postpassword = GetValidateCode()
mailtitle =""&fywenname&"密码成功找回"
mailbody = "您在"&fywenname&"的用户名是：<br/><br/>"&rs("username")&"<br/><br/>新密码:"&postpassword&"<br/><br/>请登陆<a href="""&fywenurl&"/Login.Asp"" target=""_blank"">"&fywenurl&"/Login.Asp</a>进行更改 谢谢您的参与<br/><br/><br/><br/><br/><br/><br/><br/><br/><a href=""http://www.fywen.com"" target=""_blank"">枫叶在线CMS管理系统</a>"
postpassword = md5(postpassword)
call mailpasword(mailtitle,mailbody,mail,fywenmail,mailname,mailpwd,mailsmtp,postusername,postpassword)
%>
</table>
<%
End If
%>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
Call fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -