?? user_getpassword.asp
字號(hào):
<!--#include file="../conn.asp"-->
<!--#include file="../Inc/function.asp"-->
<!--#include file="../Inc/md5.asp"-->
<!--#include file="../API/API_Config.asp"-->
<!--#include file="../API/API_Function.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=SiteName & " >> 會(huì)員中心 >> 找回密碼"%></title>
<link href="../Skin/DefaultSkin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="756" border="0" align="center" cellpadding="0" cellspacing="0" class="user_border">
<tr>
<td valign="top">
<%
Dim sUserName, rsGetPassword
Dim Answer, Password, PwdConfirm, CheckCode
sUserName = Trim(Request("UserName"))
Answer = Trim(Request("Answer"))
Password = Trim(Request("Password"))
PwdConfirm = Trim(Request("PwdConfirm"))
Select Case Action
Case "step2"
Call Step2
Case "step3"
Call Step3
Case "step4"
Call Step4
Case Else
Call Step1
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
%>
</td>
</tr>
</table>
</body>
</html>
<%
Call CloseConn
Sub Step1()
Response.Write "<br>" & vbCrLf
Response.Write "<table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='15' colspan='2' class='title'>找回密碼 >> 第一步：輸入用戶名</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='100' colspan='2' align='center' class='tdbg'>" & vbCrLf
Response.Write " <form name='form1' method='post' action=''>" & vbCrLf
Response.Write " <strong> 請(qǐng)輸入你的用戶名：</strong>" & vbCrLf
Response.Write " <input name='UserName' type='text' id='UserName' size='20' maxlength='20'><br><br>" & vbCrLf
Response.Write " <input name='Action' type='hidden' id='Action' value='step2'>" & vbCrLf
Response.Write " <input name='Next' type='submit' id='Next' style='cursor:hand;' value='下一步'>" & vbCrLf
Response.Write " <input name='Cancel' type='button' id='Cancel' style='cursor:hand;' onclick='window.location.href=""../index.asp""' value=' 取消 '>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
Sub Step2()
sUserName = ReplaceBadChar(sUserName)
Set rsGetPassword = server.CreateObject("adodb.recordset")
rsGetPassword.open "select UserName,Question,Answer,UserPassword from PE_User where UserName='" & sUserName & "'", Conn, 1, 1
If rsGetPassword.bof And rsGetPassword.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>對(duì)不起，你輸入的用戶名不存在！</li>"
rsGetPassword.Close
Set rsGetPassword = Nothing
Exit Sub
End If
Response.Write "<script language=javascript>" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "function refreshimg(){document.all.checkcode.src='../inc/checkcode.asp';}" & vbCrLf
Response.Write "//-->" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<br>" & vbCrLf
Response.Write "<table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='15' colspan='2' class='title'>找回密碼 >> 第二步：回答問題</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='100' colspan='2' align='center' class='tdbg'>" & vbCrLf
Response.Write " <form name='form1' method='post' action=''>" & vbCrLf
Response.Write " <table width='100%' border='0' cellspacing='5' cellpadding='0'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width='44%' align='right'><strong>密碼提示問題：</strong></td>" & vbCrLf
Response.Write " <td width='56%'>" & rsGetPassword("Question") & "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align='right'><strong>你的答案：</strong></td>" & vbCrLf
Response.Write " <td><input name='Answer' type='text' size='20' maxlength='20'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align='right'><strong>驗(yàn)證碼：</strong></td>" & vbCrLf
Response.Write " <td><input name='CheckCode' type='text' size='6' maxlength='6'> <a href='javascript:refreshimg()' title='看不清楚，換個(gè)圖片'><img id='checkcode' src='../inc/checkcode.asp' style='border: 1px solid #ffffff'></a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <input name='UserName' type='hidden' id='UserName' value='" & rsGetPassword("UserName") & "'>" & vbCrLf
Response.Write " <input name='Action' type='hidden' id='Action' value='step3'>" & vbCrLf
Response.Write " <input name='PrevStep' type='button' id='PrevStep' value='上一步' style='cursor:hand;' onclick='history.go(-1)'> " & vbCrLf
Response.Write " <input name='NextStep' type='submit' id='NextStep' style='cursor:hand;' value='下一步'> " & vbCrLf
Response.Write " <input name='Cancel' type='button' id='Cancel' style='cursor:hand;' onclick='window.location.href=""../index.asp""' value=' 取消 '>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
rsGetPassword.Close
Set rsGetPassword = Nothing
End Sub
Sub Step3()
If Answer = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>請(qǐng)輸入提示問題的答案！</li>"
Exit Sub
End If
CheckCode = LCase(ReplaceBadChar(Trim(Request("CheckCode"))))
If CheckCode = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>驗(yàn)證碼不能為空！</li>"
End If
If Trim(Session("CheckCode")) = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>你登錄時(shí)間過長(zhǎng)，請(qǐng)重新返回登錄頁(yè)面進(jìn)行登錄。</li>"
End If
If CheckCode <> Session("CheckCode") Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>您輸入的確認(rèn)碼和系統(tǒng)產(chǎn)生的不一致，請(qǐng)重新輸入。</li>"
End If
If FoundErr = True Then
Exit Sub
End If
sUserName = ReplaceBadChar(sUserName)
Set rsGetPassword = server.CreateObject("adodb.recordset")
rsGetPassword.open "select UserName,Question,Answer,UserPassword from PE_User where UserName='" & sUserName & "'", Conn, 1, 1
If rsGetPassword.bof And rsGetPassword.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>對(duì)不起，用戶名不存在！可能已經(jīng)被管理員刪除了。</li>"
Else
If rsGetPassword("Answer") <> MD5(Answer, 16) Then
'對(duì)動(dòng)網(wǎng)加密結(jié)果的兼容處理
MD5OLD = 0
If rsGetPassword("Answer") <> MD5(Answer,16) Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>對(duì)不起，您的答案不對(duì)！</li>"
End If
MD5OLD = 1
End If
End If
If FoundErr = True Then
rsGetPassword.Close
Set rsGetPassword = Nothing
Exit Sub
End If
Response.Write "<br>" & vbCrLf
Response.Write "<table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='15' colspan='2' class='title'>找回密碼 >> 第三步：設(shè)置新密碼</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='100' colspan='2' align='center' class='tdbg'>" & vbCrLf
Response.Write " <form name='form1' method='post' action=''>" & vbCrLf
Response.Write " <table width='100%' border='0' cellspacing='5' cellpadding='0'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width='44%' align='right'><strong>密碼提示問題：</strong></td>" & vbCrLf
Response.Write " <td width='56%'>" & rsGetPassword("Question") & "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align='right'><strong>你的答案：</strong></td>" & vbCrLf
Response.Write " <td>" & Answer & " <input name='Answer' type='hidden' id='Answer' value='" & Answer & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align='right'><strong>新密碼：</strong></td>" & vbCrLf
Response.Write " <td><input name='Password' type='password' id='Password' size='20' maxlength='20'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align='right'><strong>確認(rèn)新密碼：</strong></td>" & vbCrLf
Response.Write " <td><input name='PwdConfirm' type='password' id='PwdConfirm' size='20' maxlength='20'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <input name='UserName' type='hidden' id='UserName' value='" & rsGetPassword("Username") & "'>" & vbCrLf
Response.Write " <input name='Action' type='hidden' id='Action' value='step4'>" & vbCrLf
Response.Write " <input name='PrevStep' type='button' id='PrevStep' value='上一步' style='cursor:hand;' onclick='history.go(-1)'> " & vbCrLf
Response.Write " <input name='Next' type='submit' id='Next' style='cursor:hand;' value='下一步'> " & vbCrLf
Response.Write " <input name='Cancel' type='button' id='Cancel' style='cursor:hand;' onclick='window.location.href=""../index.asp""' value=' 取消 '>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
rsGetPassword.Close
Set rsGetPassword = Nothing
End Sub
Sub Step4()
If Password = "" Or strLength(Password) > 12 Or strLength(Password) < 6 Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>請(qǐng)輸入密碼(不能大于12小于6)</li>"
Else
If InStr(Password, "=") > 0 Or InStr(Password, "%") > 0 Or InStr(Password, Chr(32)) > 0 Or InStr(Password, "?") > 0 Or InStr(Password, "&") > 0 Or InStr(Password, ";") > 0 Or InStr(Password, ",") > 0 Or InStr(Password, "'") > 0 Or InStr(Password, ",") > 0 Or InStr(Password, Chr(34)) > 0 Or InStr(Password, Chr(9)) > 0 Or InStr(Password, "?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -