📄 getpass.asp
字号:
<!--#include file="../../Include/Reference.asp"-->
<!--#include file="../../include/connect.asp"-->
<!--#include file="../../Include/SendMail.asp"-->
<html>
<head>
<title><%=Opt_Page_Title%></title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Content-Language content=zh-cn>
<link href="<%=HomeDir%>css/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function Check()
{
if (document.add_cust.UserID.value == "")
{
alert("会员ID号不能为空，要填写！");
document.add_cust.UserID.focus();
return false;
}
if (document.add_cust.Email.value == "")
{
alert("请填写正确的电子邮件地址！");
document.add_cust.Email.focus();
return false;
}
if (document.add_cust.UserID.value != "")
{
for (i = 0; i < document.add_cust.UserID.value.length; i++)
{
ch = document.add_cust.UserID.value.charAt(i);
if (ch < '0' || ch > '9') {
alert("只能输入数字.");
document.add_cust.UserID.focus();
return false;
}
}
}
if (document.add_cust.Email.value.indexOf("@") == -1 )
{
alert("请填写正确的电子邮件地址！");
document.add_cust.Email.focus();
return false;
}
return true;
}
//-->
</SCRIPT>
</head>
<body background="<%=HomeDir%>Images/bg.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../../Head.asp"-->
<div align="left"><table border="0" cellpadding="0" cellspacing="0" width="760" height="1" align="center">
<tr>
<td width="780" height="1">
<div align="center"><img src="<%=HomeDir%>images/userreg.gif" width="758" height="117" border="0"></div>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="760" height="343" align="center">
<tr>
<td width="780" height="1" colspan="3">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" height="1" bgcolor="#B5B2B5" colspan="2"><img border="0" src="<%=HomeDir%>images/blank_1.gif"></td>
</tr>
<tr>
<td width="100%" bgcolor="#7B7D7B" height="1" colspan="2"><img border="0" src="<%=HomeDir%>images/blank_2.gif"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="136" height="386" background="<%=HomeDir%>images/bg_l.gif" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="122">
<tr>
<td width="100%" height="104" valign="top">
<p align="center"><img src="<%=HomeDir%>images/ureg.gif" width="134" height="85">
</td>
</tr>
<tr>
<td width="100%" height="18"></td>
</tr>
</table>
</td>
<td width="612" height="386" valign="top" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="73">
<tr>
<td width="100%" height="30">
<p style="margin-left: 20">您的位置: <a href="/">首页</a> > <a href="/aboutus">
</a>取回密码
</td>
</tr>
<tr>
<td width="100%" height="31">
<%
if len(request("IFOK"))>0 then
UserID=Request("UserID")
EMail=Request("EMail")
strSQL="SP_ChangePSW '1','"&UserID&"','"&EMail&"',''"
set rs=cn.Execute(strSQL)
if rs("result")="0" then '找不到
response.write "<div align='center'><img src='/images/errormsg.gif'><br><br></div><table width='520' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td align='center' height='25'><font color='red' style='font-size:11pt;line-height:16pt'>"& rs("msg") &"</font></td></tr><tr><td align='center' height='25'><div align='right'><a href='javascript:history.back(-1);'><u>返回上一页面</u></a> </div></td></tr><tr><td align='center'><table width='500' border='0' cellspacing='3' cellpadding='3' align='center' bgcolor='#cccccc'><tr><td> 如果还是出错，请联系客户中心，或者您可以在客户中心的“<font color=red>有问必答</font>”中提出您的问题。</td></tr></table></td></tr></table><br>"
else
strPSW=makePassword(10)
Set ASPObj = Server.CreateObject("BlueEncrypt.Decode")
UserPSW=ASPObj.EncryptStr(strPSW)
Set ASPObj = Nothing
strSQL="SP_ChangePSW '2','"&UserID&"','"&EMail&"','"&UserPSW&"'"
set rs1=cn.Execute(strSQL)
if rs1("result")="0" then '找不到
response.write "<br><br><p align='center'><font color='red' class='titletext'> " & rs1("msg") & "</font>"
else
Response.write "<center> <br><br><br><p class='titletext'>"&rs1("msg")&" 会员编号：<b><font color=red>"&UserID&"</font></b>"
Subject="新密码发送成功! --" & Opt_System_CompanyName
MailFile = "../../Include/MailTemplate/password.txt"
if Send_Email(Email,Subject,MailFile,"$注册ID$",UserID,"$密码$",strPSW,"","","","","","","","","","","","","","","","","","","","") then
Response.Write "<br>您的密码已经发入您的注册邮箱, 请查收您的邮箱"
else
Response.Write "<br>发送不成功，请重新尝试!"
end if
end if
rs1.close
set rs1=nothing
end if
rs.close
set rs=nothing
else
%>
<br>
<br>
<table cellspacing=0 bordercolordark=#ffffff cellpadding=8 width="98%" align=center bordercolorlight=#000000 border=0>
<tbody>
<tr valign=top>
<td>
<form name=add_cust onSubmit="return Check()" action="" method=post>
<table cellspacing=0 cellpadding=0 width=501 border=0 align="center">
<tbody>
<tr>
<td colspan=2><img src="<%=HomeDir%>images/getpasswd1.gif"></td>
</tr>
<tr>
<td width=178><img src="<%=HomeDir%>images/getpasswd2.gif"></td>
<td width=323>
<table height=69 cellspacing=0 cellpadding=0
width="100%" border=0>
<tbody>
<tr>
<td>用 户 名：
<input size=20 name=UserID>
</td>
<td valign=bottom width=74 rowspan=2>
<input type=hidden value="OK" name=IFOK>
<INPUT type=image src="<%=HomeDir%>images/getpasswd.gif" border=0 name=img>
</td>
</tr>
<tr>
<td>电子邮箱：
<input size=20 name=Email>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table bordercolor=#996666 cellspacing=0
bordercolordark=#ffffff cellpadding=1 width="85%"
border=1>
<tbody> </tbody>
</table>
<p>
</form>
</td>
</tr>
</tbody>
</table>
<%
end if
%>
</td>
</tr>
</table>
</td>
<td width="32" height="386" background="<%=HomeDir%>images/bg_r.gif"> </td>
</tr>
</table>
</div>
<!--#include file="../../Bottom.asp"-->
</body>
</html>
<%
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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -