📄 userrepass.asp
字号:
<!--#include file="SiteInfo.asp"-->
<!--#include file="System/MD5.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ 万博中小企业网站管理系统(NWEB) ☆
'★ ★
'☆ 版权所有 Nweb.cn ☆
'★ ★
'☆ 程序制作 万博工作室 ☆
'★ Add:四川省彭州市西大街228号/611930 ★
'☆ Tel:028-88079088 Fax:83708850 ☆
'★ E-m:duolaimi-123@163.com ★
'☆ Q Q:59309100 ☆
'★ ★
'☆ 相关网址 [产品介绍]http://www.Nweb.cn ☆
'★ [支持论坛]http://www.Nweb.cn/bbs ★
'☆ ☆
'★ 演示网址 http://www.Nweb.cn ★
'☆ ☆
'★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
%>
<%
dim Action,Id
Id=request.QueryString("Id")
Action=request.QueryString("Action")
%>
<HTML>
<HEAD>
<TITLE>首页-会员中心|<%=SiteName%></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="copyright" CONTENT="Copyright 2004-2005 - NWEB.CN-STUDIO-多来米">
<META NAME="Author" CONTENT="万博网络技术工作室,www.Nweb.cn">
<META NAME="Robots" CONTENT="all">
<META NAME="Keywords" CONTENT="<%=Keywords%>">
<META NAME="Description" CONTENT="<%=Description%>">
<link href="Images/CSS.css" type=text/css rel=stylesheet>
</HEAD>
<BODY >
<!--#include file="Top.asp" -->
<table width="868" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="190" height="96" valign="top" bgcolor="#F2F2F2" ><!--#include file="LeftNav.asp" -->
<!--#include file="UserLeft.asp" -->
</td>
<td width="5"></td>
<td width="673" valign="top" class="Index-Center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td height="180" colspan="2" bgcolor="#FFFFFF"><img src="Images/Banner_01.jpg" alt="万博中小企业网站系统" width="499" height="180"></td>
<td width="172" align="right" bgcolor="#FFFFFF"><img src="Images/Banner_02.jpg" alt="万博中小企业网站系统" width="171" height="180"></td>
</tr>
<tr>
<td width="93" height="5" bgcolor="#FFFFFF"></td>
<td width="408" bgcolor="#FFFFFF"></td>
<td bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#F2F2F2"><strong><font color="#1c529b"><img src="Images/Arrow-locality.gif" width="14" height="12" align="absmiddle"> 当前位置：</font></strong></td>
<td colspan="2" bgcolor="#F2F2F2" class="locality"><a href="index.asp">首 页</a> >> <a href="User.asp">会员中心</a> >><span class="ABOUT_01"> 找回密码</span></td>
</tr>
<tr>
<td height="5" align="center" bgcolor="#FFFFFF"></td>
<td colspan="2" align="center" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="20" height="12"> </td>
<td></td>
<td width="20"></td>
</tr>
<tr>
<td height="30"> </td>
<td align="center"><% select case Action
case "RePass1"
set rs=server.CreateObject("adodb.recordset")
rs.open "select Id,Uname,UpassS1,UpassS2 from UserInfo where Uname='"&trim(request("Uname"))&"'",conn,1,1
if rs.Bof then
response.write "<Script language='JavaScript'>window.alert('输入的用户名不存在，请返回重新输入！');location.replace('UserRePass.asp');</Script>"
response.End()
end if
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1">
<form name="User" method="post" action="Userrepass.asp?Id=<%=rs("Id")%>&Action=RePass2">
<tr>
<td width="38%" align="right"><br>
登录名：<br></td>
<td width="62%" align="left"><br>
<font color="#ff3300"><%=rs("Uname")%></font></td>
</tr>
<tr>
<td align="right">密码保护提示问题：</td>
<td align="left"><%=rs("UpassS1")%></td>
</tr>
<tr>
<td align="right">密码提示答案：</td>
<td align="left"><input name="UpassS2" type="text" class="myput" id="Rname" size="30">
<font color="#CC0000">*</font></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="Submit" value="下一步">
<br>
<br></td>
</tr>
</form>
</table>
<% rs.close
set rs=nothing
case "RePass2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select Id,Uname,Upass,UpassS1,UpassS2 from UserInfo where Id="&ID&"",conn,1,3
if rs.Bof then
response.write "<Script language='JavaScript'>window.alert('数据错误，请返回重新输入！');location.replace('UserRePass.asp');</Script>"
response.End()
end if
if rs("UpassS2")<>MD5(trim(request("UpassS2"))) then
response.write "<Script language='JavaScript'>window.alert('输入的答案不正确，请返回重新输入！');history.back(-1);</Script>"
response.End()
end if
dim NewPass,Uname
Uname=rs("Uname")
randomize timer
NewPass=Int(899999*Rnd() +100000)
rs("Upass")=MD5(NewPass)
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript> alert('会员 "&Uname&" 成功初始化登录密码\n\n新的密码是："&NewPass&"\n\n请记住密码登录会员中心，然后修改成易记并且安全的密码!');location.replace('User.asp');</script>"
response.End()
%>
<% case "" %>
<table width="100%" border="0" align="center" cellpadding="20" cellspacing="1">
<form name="User" method="post" action="Userrepass.asp?Action=RePass1">
<tr>
<td align="center">登录名：
<input name="Uname" type="text" class="myput" id="Rname" size="30">
<font color="#CC0000">*</font><br>
<br>
<input type="submit" name="Submit" value="下一步"> </td>
</tr>
</form>
</table>
<% end select %></td>
<td></td>
</tr>
<tr>
<td height="30"> </td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="bot.asp" -->
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -