⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 findpass3.asp

📁 顶级影视站ASP源代码系统。很全面很强大。数据库用access
💻 ASP
字号:
<!--#include file="webconfig.asp"-->
<!--#include file="HMconnection.asp"-->
<!--#include file="MD5/md5.asp"-->
<%dim username,answer
username=trim(request("username"))
answer=trim(request("answer"))
if username="" or answer="" then%>
   <script language="vbscript">
   msgbox"资料不全,操作无法继续!"
   location.href="javascript:history.go(-1)"
   </script>
   <%response.end
end if
dim qrSQL,qrRS,KeyWord,KWmd5
set qrRS=server.createobject("adodb.recordset")
qrSQL="select UserName,Answer,PassWord from user where username='"&username&"'"
qrRS.open qrSQL,conn,1,3
if qrRS.bof and qrRS.eof then
%>
<script language="vbscript">
msgbox"参数错误!"
location.href="javascript:history.go(-1)"
</script><%
response.end
else
if qrRS("answer")<>md5(answer) then
%>
<script language="vbscript">
msgbox"答案错误,请注意:你的操作己被纪录!"
location.href="javascript:history.go(-1)"
</script>
<%
response.end
else
dim rndRS,rndValue
set rndRS=server.createobject("adodb.recordset")
rndRS.open "select * from RndRoot",conn,1,3
rndValue=rndRS("totalValue")
Randomize
KeyWord=Int((1000000*Rnd)+rndValue)
rndRS("totalValue")=Int((555555*Rnd)+KeyWord)
rndRS.update
rndRS.close
set rndRS=nothing
KWmd5=md5(KeyWord)
qrRS("PassWord")=KWmd5
qrRS.update
%>
<head>
<title><%=webname%>--修复密码之三</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style/style.css" rel=stylesheet type=text/css>
</head>

<body bgcolor="#FFFFFF" text="cc9900" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"  >
<table  align=center width="540" height="100%">
  <form name=reg2 action="member/userchklogin.asp" method=post target="_parent">
<tr>
      <td align=center valign="middle" width="100%"> 
        <table border=0 cellpadding=0 cellspacing=0 width="100%">
          <tr>
<td height="50" align="center">
              <br><font color="#99CC33" size="2"><b>::修复密码-->方法一::</b></font> 
                  <hr align="center" color="#00CCFF" width="80%" noshade size="2">
               <br>
              <div align="left"> <font color="#FF0000">第三步:您的用户名、密码如下,请务必记住:</font></div>
                
              <table bordercolor="#262626" width="396" cellpadding="5" cellspacing="0" border="0">
                <tr> 
                  <td width=37% align=right><font color="#000000">用 户 名: </font></td>
                  <td width="63%"> <font color="#FF0000"><%=Username%> </font></td>
                </tr>
                <tr> 
                  <td align=right width="37%"><font color="#000000">您的密码为:</font></td>
                  <td width="63%"> <font color="#000000">
				    <%=KeyWord%>
                    <input type="hidden" maxlength=16 size=13 name=username value="<%=Username%>">
                    <input type="hidden" maxlength=16 size=13 name=password value="<%=KeyWord%>">
                    </font></td>
                </tr>
                <td colspan=2 align="center"> <a href="####">
                  <input type="hidden" name="submit" value="mysubmit">
                  <input type="image" border="0" name="submit" value="mysubmit" src="images/login1.gif" width="45" height="20" align=absMiddle readonly>
                  </a> &nbsp;&nbsp;<a href="index.asp" target="_parent"><img src="images/page.gif" width="45" height="20" border="0" align=absMiddle></a></td>
                </tr>
              </table>
<br>
</div>
</td>
</tr>
</table>
      </td>
</tr>
</form>
</table>
</body>
</html>
<%qrRS.close
  set qrRS=nothing
  end if
end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -