📄 fotgetpsd.asp
字号:
<!-- #include file="setup.asp" -->
<!-- #include file="inc/function.asp" -->
<%
Menu=Server.HTMLEncode(Trim(Request.QueryString("Menu")))
Call Top
Call table()%>
<style>
<!--
TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
-->
</style>
<br>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
<tr>
<td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none">
<b>■ </b><%=Community%></td>
</tr>
</table>
<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR>
<TD height=25 width="75%" > <img src="images/2.gif" width="60" height="9">用户取回密码:</TD>
</TR>
</TABLE>
<%Select Case Menu
Case "" %>
<table width=100% align="center" border="0">
<tr>
<td vAlign="center" align="top"> </td>
</tr>
</table>
<form method="get">
<TABLE cellSpacing=0 cellPadding=0 width=333 align=center bgColor=a4b6d7 border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TR>
<TD style="border-right: 0px none; border-top: 0px none">
<TABLE cellSpacing=1 cellPadding=6 width="100%" border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TBODY></TBODY></TABLE></TD></TR></TABLE>
<table width="333" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor=ACABC4 style="border-left:0px none; border-top:0px none; border-bottom:1px none; border-collapse: collapse">
<tr bgcolor=ACABC4>
<td background=images/title_sub.gif width="328" style="border-right: 0px none; border-top: 0px none" height="25"><div align="center">
<font color="#000000">忘记密码第一步:</font></div>
</td></tr><tr>
<td height="19" width="328" valign="top" bgcolor="#F2F8FF" style="border-right: 0px none; border-top: 0px none">
<div align="center">用户号码: <input size="15" name="Userid" > <a href="register.asp">没有注册?</a><br>
<br><input name="menu" type="hidden" value="Next">
<input type="submit" value=" 下一步 " name="Submit1"> <input type="reset" value=" 取消 " name="Submit" OnClick=Javascript:javascript:history.back();>
</div></td></tr> </form></table>
<p><br></p>
<center>
<p><a href=javascript:history.back()>BACK </a><br>
</p>
<%Case "Next"
Userid=Request.QueryString("Userid")
if IsNumEric(Userid)=False or UserID="" Then Error 2,"请输入你登陆社区用的用户号码!",""
if conn.execute("Select count(UserID) From UserInfo Where UserID="&UserID)(0)=0 Then Error 2,"号码输入错误!",""%>
<table width=100% align="center" border="0">
<tr>
<td vAlign="center" align="top"> </td>
</tr>
</table>
<form method="get">
<TABLE cellSpacing=0 cellPadding=0 width=333 align=center bgColor=a4b6d7 border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TR>
<TD style="border-right: 0px none; border-top: 0px none">
<TABLE cellSpacing=1 cellPadding=6 width="100%" border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TBODY></TBODY></TABLE></TD></TR></TABLE>
<table width="333" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor=ACABC4 style="border-left:0px none; border-top:0px none; border-bottom:1px none; border-collapse: collapse">
<tr bgcolor=ACABC4>
<td background=images/title_sub.gif width="328" style="border-right: 0px none; border-top: 0px none" height="25"><div align="center">
<font color="#000000">第二步:请输入注册时候填写的安全Email</font></div>
</td></tr><tr>
<td height="19" width="328" valign="top" bgcolor="#F2F8FF" style="border-right: 0px none; border-top: 0px none"><div align="center">用户号码: <input size="15" name="UserEmail_1" > <a href="register.asp">没有注册?</a><br>
<br><input name="menu" type="hidden" value="Next2">
<input name="UserID" type="hidden" value="<%= Userid %>">
<input type="submit" value=" 下一步 " name="Submit1"> <input type="reset" value=" 取消 " name="Submit" OnClick=Javascript:javascript:history.back();>
</div></td></tr> </form></table>
<p><br></p>
<center>
<p><a href=javascript:history.back()>BACK </a><br>
</p>
<%Case "Next2"
Userid=Request.QueryString("Userid")
UserEmail_1=Request("UserEmail_1")
if IsValidEmail(UserEmail_1)=False or UserEmail_1="" Then Error 2,"Email输入错误!",""
if IsNumEric(Userid)=False or UserID="" Then Error 1,"参数非法传递!\n您的IP已被记录!",""
if conn.execute("Select count(UserID) From UserInfo Where UserID="&UserID)(0)=0 Then Error 1,"参数非法传递!\n您的IP已被记录!",""
if conn.execute("Select UserEmail_1 From UserInfo Where UserID="&UserID)(0) <> UserEmail_1 Then Error 2,"Email输入错误!",""
UserPsdASK=conn.execute("Select UserPsdASK From UserInfo Where UserID="&UserID)(0)
%>
<style type="text/css">
<!--
.unnamed1 {
background-color: #F2F8FF;
border: 1px solid #F2F8FF;
}
-->
</style>
<table width=100% align="center" border="0">
<tr>
<td vAlign="center" align="top"> </td>
</tr>
</table>
<form method="post" action="?Menu=Next3">
<TABLE cellSpacing=0 cellPadding=0 width=333 align=center bgColor=a4b6d7 border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TR>
<TD style="border-right: 0px none; border-top: 0px none">
<TABLE cellSpacing=1 cellPadding=6 width="100%" border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TBODY></TBODY></TABLE></TD></TR></TABLE>
<table width="333" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor=ACABC4 style="border-left:0px none; border-top:0px none; border-bottom:1px none; border-collapse: collapse">
<tr bgcolor=ACABC4>
<td background=images/title_sub.gif width="328" style="border-right: 0px none; border-top: 0px none" height="25"><div align="center">
<font color="#000000">第三步:请回答以下问题:</font></div>
</td></tr><tr>
<td height="19" width="328" valign="top" bgcolor="#F2F8FF" style="border-right: 0px none; border-top: 0px none">
<div align="center">提示问题: <input size="25" name="UserPsdASK" value=<%= UserPsdASK %> disabled class="unnamed1"><br>
<div align="center">正确答案: <input size="15" name="UserPsdQ" > <a href="register.asp">没有注册?</a><br>
<br>
<input name="Userid" type="hidden" value="<%= Userid %>">
<input name="UserEmail_1" type="hidden" value="<%= UserEmail_1 %>">
<input type="submit" value=" 下一步 " name="Submit1"> <input type="reset" value=" 取消 " name="Submit" OnClick=Javascript:javascript:history.back();>
</div></td></tr> </form></table>
<p><br></p>
<center>
<p><a href=javascript:history.back()>BACK </a><br>
</p><%
Case "Next3"
Userid=Request.Form("Userid")
UserEmail_1=Request.Form("UserEmail_1")
UserPsdQ=Request.Form("UserPsdQ")
if IsValidEmail(UserEmail_1)=False or UserEmail_1="" Then Error 2,"Email输入错误!",""
if IsNumEric(Userid)=False or UserID="" Then Error 1,"参数非法传递!\n您的IP已被记录!",""
Sql="Select UserEmail_1,UserPsdQ From UserInfo Where UserID="&UserID
Set Rs = Conn.Execute(Sql)
if Rs.Eof Then Error 1,"参数非法传递!\n您的IP已被记录!",""
if Rs("UserEmail_1") <> UserEmail_1 Then Error 1,"参数非法传递!\n您的IP已被记录!",""
if Rs("UserPsdQ") <> UserPsdQ Then Error 2,"您的答案错误!",""
Rs.Close
%>
<table width=100% align="center" border="0">
<tr>
<td vAlign="center" align="top"> </td>
</tr>
</table>
<form method="post" action="?Menu=Next4">
<TABLE cellSpacing=0 cellPadding=0 width=333 align=center bgColor=a4b6d7 border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TR>
<TD style="border-right: 0px none; border-top: 0px none">
<TABLE cellSpacing=1 cellPadding=6 width="100%" border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TBODY></TBODY></TABLE></TD></TR></TABLE>
<table width="333" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor=ACABC4 style="border-left:0px none; border-top:0px none; border-bottom:1px none; border-collapse: collapse">
<tr bgcolor=ACABC4>
<td background=images/title_sub.gif width="328" style="border-right: 0px none; border-top: 0px none" height="25"><div align="center">
<font color="#000000">第四步:输入您的新密码</font></div>
</td></tr><tr>
<td height="19" width="328" valign="top" bgcolor="#F2F8FF" style="border-right: 0px none; border-top: 0px none">
<div align="center">请输入密码: <input size="15" name="NewPsd1" > <br>
<div align="center">请再次输入: <input size="15" name="NewPsd2" > <a href="register.asp">没有注册?</a><br>
<br>
<input name="Userid" type="hidden" value="<%= Userid %>">
<input name="UserEmail_1" type="hidden" value="<%= UserEmail_1 %>">
<input name="UserPsdQ" type="hidden" value="<%= UserPsdQ %>">
<input type="submit" value=" 下一步 " name="Submit1"> <input type="reset" value=" 取消 " name="Submit" OnClick=Javascript:javascript:history.back();>
</div></td></tr> </form></table>
<p><br></p>
<center>
<p><a href=javascript:history.back()>BACK </a><br>
</p>
<%Case "Next4"
<!--#include file ="inc/function.asp"-->
NewPsd1=Trim(Request.Form("NewPsd1"))
NewPsd2=Trim(Request.Form("NewPsd2"))
Userid=Request.Form("Userid")
UserEmail_1=Request.Form("UserEmail_1")
UserPsdQ=Request.Form("UserPsdQ")
if NewPsd1="" or NewPsd2="" Then Error 2,"密码不能为空！",""
if NewPsd1 <> NewPsd1 Then Error 2,"2次输入密码请保持一致!",""
if IsValidEmail(UserEmail_1)=False or UserEmail_1="" Then Error 2,"Email输入错误!",""
if IsNumEric(Userid)=False or UserID="" Then Error 1,"参数非法传递!\n您的IP已被记录!",""
Sql="Select UserPsd,UserEmail_1,UserPsdQ From UserInfo Where UserID="&UserID
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,Conn,1,3
if Rs.Eof Then Error 1,"参数非法传递!\n您的IP已被记录!",""
if Rs("UserEmail_1") <> UserEmail_1 Then Error 1,"参数非法传递!\n您的IP已被记录!",""
if Rs("UserPsdQ") <> UserPsdQ Then Error 1,"参数非法传递!\n您的IP已被记录!",""
Rs("UserPsd")=Encrypt(NewPsd1)
Rs.Update
Rs.Close
Response.Cookies("OrderProduct")=""
Response.Cookies("User")=""
Response.Cookies("password")=""
Response.Cookies("Product")=""
Session("BbsPass")=""
Session("openwin")=""
Error 3,"恭喜你，您的密码已经成功更新！\n请务必牢记！","Login.asp"
Response.end
Case Else
Error 1,"参数非法传递!\n您的IP已被记录!",""
End Select
Htmlend%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -