www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > user/getpassword.asp
<!--#include file=connkkp.asp-->
<title>用户取回密码</title>
<style type="text/css"> <!-- td { font-size: 9pt; font-family: 宋体 }
a:visited { color: #000000; text-decoration: none }
a:link { color: #000000; text-decoration: none }
a:hover { color: red; text-decoration: none underline}
.line-bg { background-image: url(''); background-repeat: repeat-x; background-position: bottom }
-->
</style>
<body topmargin="0" leftmargin="0" bgcolor=#eeeeee>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<%
if request("action")="getpass" then
call getpass()
elseif request("action")="answer" then
call showquestion()
else
call showuserform()
end if
sub showuserform()
%>
<form action="getpassword.asp" method="post">
<input type=hidden name=action value=answer>
<div align="center">
<center>
<TABLE style="BORDER-COLLAPSE: collapse"
borderColor=#c0c0c0 cellSpacing=2 cellPadding=2
width="100%" border=1>
<tr>
<td align=center>
<b>取回密码</b>（第一步：输入您的用户名）</td>
</tr>
<tr>
<td class="border" height="35">请输入您注册时的用户名:<INPUT name=UserName type=text size=30 value="在这里输入您的用户名" onclick="Javascript:this.value=''"></td>
</tr>
<tr>
<td align=center>
<input type=submit name="submit" value="提交，进入下一步">
</td>
</tr>
<tr>
<td align=center class="border">
<p align="left"><font color="#FF0000">注意：</font>请保证您的用户名已经在本站注册并且为合法格式！<br>
<font color="#FF0000">警告：</font>请不要恶意猜解别人帐号密码，所有行为将被程序自动记录，因此行为造成的一切后果将由您个人负责。</td>
</tr></form>
</table>
</center></div>
<%
end sub
sub showquestion()
UserName=trim(request("UserName"))
if UserName="" then
response.write "<script language=javascript>alert('请输入用户名！！！');history.back(1);</script>"
founderr=true
else
set rs=server.createobject("adodb.recordset")
sql="select Username,quesion from User where Username='"&Username&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write "<script language=javascript>alert('该用户名并没有在本站注册过，请确认输入是否正确！！！');history.back(1);</script>"
founderr=true
elseif rs("quesion")="" or isnull(rs("quesion")) then
response.write "<script language=javascript>alert('操作失败！你注册时没有填写取回密码时所需要的信息！！！');history.back(1);</script>"
founderr=true
end if
end if
if founderr=true then
Response.End
exit sub
else
end if
%>
<form action="getpassword.asp" method="post">
<input type=hidden name=action value=getpass>
<input type=hidden name=UserName value=<%=UserName%>>
<div align="center">
<center>
<table cellspacing=0 border=0 width="100%" height="100%">
<tr>
<td colspan=2 align=center>
<b>取回密码</b>（第二步：回答问题）</td>
</tr>
<tr>
<td valign=middle class="border"> <b>密码提示问题:</b></td>
<td class="border"><font color="0000FF"><%=rs("quesion")%></font> </td>
</tr>
<tr>
<td class="border"><b>取回密码答案:</b></td>
<td class="border">
<INPUT name=answer type=text size=30></td></tr>
<tr>
<td colspan=2 class="border"><font color="#FF0000">注意：</font>请正确填写问题答案，如果忘记请联系管理员或重新注册。<br>
<font color="#FF0000">警告：</font>请不要恶意猜测他人帐号密码，违者必将严惩。</td>
</tr>
<tr>
<td colspan=2 align=center>
<input type=submit name="submit" value="提交，答案已经填写正确">
</td>
</tr></table>
</center></div>
</form>
<%
end sub
sub getpass()
answer=trim(request("answer"))
UserName=request("UserName")
if answer="" then
response.write "<script language=javascript>alert('请输入问题的答案！！！');history.back(1);</script>"
founderr=true
else
sql="select answer,PassWord from user where UserName='"&UserName&"'"
set rs=conn.execute(sql)
if rs("answer")<>answer then
response.write "<script language=javascript>alert('操作失败！你的问题回答得不正确！！！');history.back(1);</script>"
founderr=true
end if
end if
if founderr=true then
Response.End
exit sub
end if
%>
<form action=Userlogin.asp method=post>
<div align="center">
<center>
<table cellspacing=0 border=0 width="50%" height="100%">
<tr align="center">
<td colspan=2 >
<b>取回密码</b>（成功取回）</td>
</tr>
<tr>
<td colspan=2 class="border">
<p align="center"> 恭喜您，您成功取回密码！</td>
</tr>
<tr>
<td class="border"><b>用户名:</b></td>
<td class="border"><b><font color="#ff0000"><%=UserName%></font></b> </td>
</tr>
<tr>
<td class="border"><b>密 码:</b></td>
<td class="border"><font color="#ff0000"><b><%=rs("PassWord")%></b></font> </td>
</tr>
<tr>
<td colspan=2 class="border"><b>说 明:</b>请妥善保管您的密码！</td>
</tr>
<tr align="center">
<td colspan=2>
<input type=button name=login value=成功取回密码，关闭此窗口 onclick=window.close()>
</td>
</tr>
</table></center></div>
</form>
<%
end sub
%></TD></TR>
</TBODY></TABLE>