📄 forgetpass.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<!--#include file="functions/sendmail.asp" -->
<!--#include file="functions/hash.asp" -->
<%
Response.Buffer = True
Dim strReturnPage
Dim blnInvalidUsername
Dim blnInvalidEmail
Dim blnEmailSent
Dim strEmailBody
Dim strSubject
Dim strSalt
Dim strEncyptedPassword
Dim objCDOMail
Dim objJMail
Dim strUsername
Dim strPassword
Dim strEmailAddress
blnInvalidUsername = False
blnInvalidEmail = False
blnEmailSent = False
If blnEmail = False Then
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect "index.asp"
End If
strUsername = Trim(Mid(Request.Form("name"), 1, 15))
strEmailAddress = Trim(Mid(Request.Form("email"), 1, 60))
strUsername = disallowedMemberNames(strUserName)
strUsername = formatSQLInput(strUsername)
strEmailAddress = formatSQLInput(strEmailAddress)
If NOT strUsername = "" Then
strSQL = "SELECT timesuser.Password, timesuser.Salt, timesuser.useremail "
strSQL = strSQL & "FROM timesuser "
strSQL = strSQL & "WHERE timesuser.Username = '" & strUsername & "' AND timesuser.useremail = '" & strEmailAddress & "';"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
strEmailAddress = rsConn("useremail")
If NOT strEmailAddress = "" Then
strPassword = hexValue(8)
strSalt = getSalt(8)
strEncyptedPassword = LCase(strPassword) & strSalt
strEncyptedPassword = HashEncode(strEncyptedPassword)
rsConn.Fields("Password") = strEncyptedPassword
rsConn.Fields("Salt") = strSalt
rsConn.Update
strEmailBody = "Hi"
strEmailBody = strEmailBody & vbCrLf & vbCrLf & "你的会员密码已经发送到你的email" & " " & strMainForumName & "."
strEmailBody = strEmailBody & vbCrLf & vbCrLf & "你的密码是:" & " " & strPassword
strEmailBody = strEmailBody & vbCrLf & vbCrLf & "点击以下连接回到论坛"
strEmailBody = strEmailBody & vbCrLf & vbCrLf & " " & strForumPath
strSubject = "论坛密码丢失请求"
blnEmailSent = SendMail(strEmailBody, decodeString(strUsername), decodeString(strEmailAddress), strWebsiteName, decodeString(strForumEmailAddress), strSubject, strMailComponent, false)
Else
blnInvalidEmail = True
End If
Else
blnInvalidUsername = True
End If
rsConn.Close
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>找回密码</title>
<script language="JavaScript">
function CheckForm () {
var errorMsg = "";
if (document.frmMailPass.name.value==""){
msg = "_______________________________________________________________\n\n";
msg += "表单不完整，请填写完全\n";
msg += "请修正后再发表\n";
msg += "_______________________________________________________________\n\n";
msg += "以下区域需要修改: \n";
alert(msg + "\n\t用户名 \t- 输入你论坛用户名");
document.frmMailPass.name.focus();
return false;
}
return true
}
// -->
</script>
<!--#include file="includes/skin.asp" -->
</head>
<body bgcolor="<% = strBgColour %>" text="<% = strTextColour %>" background="<% = strBgImage %>" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" OnLoad="self.focus();">
<p> </p><div align="center" class="heading">找回密码</div><br /><%
If blnInvalidUsername = True Then
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" class="text">对不起,你输入的用户名未注册<br />清重试</td>
</tr>
</table><%
ElseIf blnInvalidEmail = True Then
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">
<p class="text">对不起, 你没有填写你的email地址.<br>你的密码不能寄给你.<br />
<br />你需要重新注册<br /><br /><br /></p>
</td>
</tr>
</table><%
ElseIf blnEmailSent = True Then
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center"><span class="text">你的密码已经发送到你的email.
</span><br /><br /><br />
</td>
</tr>
</table><%
Else
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" class="text">请填写你的用户名和信箱之后,<br>你的密码将发送到你的email中.</td>
</tr>
</table><%
End If
If blnInvalidEmail = False AND blnEmailSent = False Then
%>
<form method="post" name="frmMailPass" action="forgotten_password.asp" onSubmit="return CheckForm();">
<br />
<table width="390" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<% = strTableBorderColour %>" height="30">
<tr>
<td height="2" width="483" align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>" height="26">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td align="right" width="30%"><span class="text">用户名:</span> </td>
<td width="70%">
<input type="text" name="name" size="15" maxlength="15" value="<% = strUsername %>">
</td>
</tr>
<tr>
<td align="right" width="30%"><span class="text">电子信箱:</span> </td>
<td width="70%">
<input type="text" name="email" size="30" maxlength="60" value="<% = strEmailAddress %>">
</td>
</tr>
<tr>
<td align="right" width="30%"> </td>
<td width="70%">
<input type="submit" name="Submit" value="发送密码">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<table width="75%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" height="51" class="text">如果你的论坛个人资料中的email地址不正确的话,你只有重新注册了.</td>
</tr>
<%
End If
%>
<tr>
<td align="center"><a href="JavaScript:onClick=window.close()">关闭窗口</a></td></tr></table>
<br /><br /><br />
<!-- #include file="includes/footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -