📄 exitpwd.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="ip.asp"-->
<!--#include file="MD5/md5.asp"-->
<!--#include file=top1.asp-->
<%step=request("step")
if step="" then
step=1
elseif step>3 then
response.write "<script language=JavaScript>" & chr(13) & "alert('怎么拉，密码忘了吧，赶快找回来！');" & "history.back()" & "</script>"
Response.End
end if
if step=1 then%>
<body bgcolor="#000000" leftmargin="0" topmargin="0">
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#1B409B" width="778" id="AutoNumber12" cellpadding="0">
<tr>
<td width="100%" bgcolor="#1B409B" height="589">
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="758" id="AutoNumber13" height="580" bgcolor="#4885FE" cellpadding="0">
<tr>
<td width="10" valign="top">
<img border="0" src="images/register-left1.gif" width="19" height="19"></td>
<td height="19" colspan="2">
</td>
<td width="10" valign="top" align="right">
<img border="0" src="images/register-right1.gif" width="19" height="19"></td>
</tr>
<tr valign="top" >
<td width="10"> </td>
<td width="544">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber15" cellpadding="0">
<tr>
<td width="100%" align="center" background="images/pass_title.jpg" height="68">
</td>
</tr>
<tr>
<TD align=middle valign=top width="100%" background="images/pay_bg1.jpg" height=405>
<font size="2" color="#FF0000"><br>
<br>
<br>
<br>
<br>
<font color="#FF0000">取回密码 (第一部)</font><br> <br> <form action="exitpwd.asp?step=2" method="post" name="formname" id="formname" onsubmit="if (!formnamecheck()) return false;">
<p><font color=000000>用户名：
<INPUT name="myuserid" maxlength="15" size="13" style="border: 1px solid #3655AA; font-size:9pt; color:#000000"><br><br>
<input name="b1" type="image" src="images/pass_clear.gif" class="button1" value="提交" width="81" height="20">
<a href="javascript:document.formname.reset()"><img border="0" src="images/pass_tijiao.gif" width="81" height="20"></a>
</form>
<br> </TD>
</TR>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file=Bottom1.asp-->
<%
elseif step=2 then
set rs_1=server.createobject("adodb.recordset")
sql="select * from users where userid='"&request("myuserid")&"'"
rs_1.open sql,conn,1,1
if ( rs_1.bof and rs_1.eof) then
response.write "<script language=JavaScript>" & chr(13) & "alert('错误信息如下：请检查！\n\n1. 你还没有输入用户名！\n\n2. 您输入的用户名错误！\n\n3. 该用户名还未被注册！');" & "history.back()" & "</script>"
response.end
else
session("myuserid")=rs_1("userid")
end if
rs_1.close
set rs_1=nothing
%>
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#1B409B" width="778" id="AutoNumber12" cellpadding="0">
<tr>
<td width="100%" bgcolor="#1B409B" height="589">
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="758" id="AutoNumber13" height="580" bgcolor="#4885FE" cellpadding="0">
<tr>
<td width="10" valign="top">
<img border="0" src="images/register-left1.gif" width="19" height="19"></td>
<td height="19" colspan="2">
</td>
<td width="10" valign="top" align="right">
<img border="0" src="images/register-right1.gif" width="19" height="19"></td>
</tr>
<tr valign="top" >
<td width="10"> </td>
<td width="544">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber15" cellpadding="0">
<tr>
<td width="100%" align="center" background="images/pass_title.jpg" height="68">
</td>
</tr>
<tr>
<TD align=middle valign=top width="100%" background="images/pay_bg1.jpg" height=405>
<font size="2" color="#FF0000"><br>
<br>
<br>
<br>
<%set rs_2=server.createobject("adodb.recordset")
sql="select * from users where userid='"&request("myuserid")&"'"
rs_2.open sql,conn,1,1%>
<font color="#FF0000">取回密码 (第二部)</font><br> <br>
<font color="#000000">问题是：<%=rs_2("city")%> <form name="formdaan" method="post" action="exitpwd.asp?step=3" onsubmit="if (!formdaancheck()) return false;">
<font color="#000000">请回答：
<input name="adress" type="text" size="10" style="border: 1px solid #3655AA; font-size:9pt; color:#000000" id="adress"><br><br>
<input name="b1" type="image" src="images/pass_clear.gif" class="button1" value="提交" width="81" height="20">
<a href="javascript:document.formname.reset()"><img border="0" src="images/pass_tijiao.gif" width="81" height="20"></a>
</form>
<%rs_2.close
set rs_2=nothing%>
</TD>
</TR>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file=Bottom1.asp-->
<%
elseif step=3 then
set rs_3=server.createobject("adodb.recordset")
sql="select * from users where userid='"&session("myuserid")&"'"
rs_3.open sql,conn,1,1
if request("adress")<>rs_3("adress") then
response.write "<script language=JavaScript>" & chr(13) & "alert('对不起，您输入的答案不正确，请重新输入！');" & "history.back()" & "</script>"
response.end
end if
rs_3.close
set rs_3=nothing
%><%
function makePassword(byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'“character
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
end function
dim radpass
radpass=makePassword(8)
%>
<% set rs_4=server.createobject("adodb.recordset")
sql="select * from users where userid='"&session("myuserid")&"'"
rs_4.open sql,conn,1,3%>
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#1B409B" width="778" id="AutoNumber12" cellpadding="0">
<tr>
<td width="100%" bgcolor="#1B409B" height="589">
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="758" id="AutoNumber13" height="580" bgcolor="#4885FE" cellpadding="0">
<tr>
<td width="10" valign="top">
<img border="0" src="images/register-left1.gif" width="19" height="19"></td>
<td height="19" colspan="2">
</td>
<td width="10" valign="top" align="right">
<img border="0" src="images/register-right1.gif" width="19" height="19"></td>
</tr>
<tr valign="top" >
<td width="10"> </td>
<td width="544">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber15" cellpadding="0">
<tr>
<td width="100%" align="center" background="images/pass_title.jpg" height="68">
</td>
</tr>
<tr>
<TD align=middle valign=top width="100%" background="images/pay_bg1.jpg" height=405>
<font size="2" color="#FF0000"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<%
rs_4("PassWord")=md5(radpass)
rs_4.update
%>
<font color="#ff0000">系统将您的密码被更改为：
<INPUT name="adress" maxlength="20" size="12" style="border: 1px solid #3655AA; font-size:9pt; color:#000000" value="<%=radpass%>" size="10">
此为随机密码请您登陆以后自行修改</font><br><br><br>
<INPUT type=button onclick="self.location='index.asp'" name="Submit" value="返 回 登 录" style="border: 1px solid #3655AA; font-size:9pt; color:#000000" size="20">
</td>
</tr>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file=Bottom1.asp-->
<%rs_4.close
set rs_4=nothing
session("myuserid")=""%>
<%end if%>
</BODY>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -