📄 sendpass.asp

📁 一个非常优秀的自动建站程序
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="checkpost.asp"-->
<html>
<title>虚拟主机代理商自助管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
BODY {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"; line-height: 20px}
.TEXT1 {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"; line-height: 16px}
.TEXT2 {FONT-SIZE: 12pt; FONT-FAMILY: "宋体"; COLOR: #FFFFFF; line-height: 24px; font-weight: bold}
A {TEXT-TRANSFORM: none; COLOR: #000000; TEXT-DECORATION: none}
A:active {COLOR: #ff0000; TEXT-DECORATION: none}
A:visited {COLOR: #000000; TEXT-DECORATION: none}
A:hover {COLOR: #666666; TEXT-DECORATION: underline}
input {font-size:12px; height: 18; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
textarea {font-size:12px; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
select {font-size:12px; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
</STYLE>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr>
         <td align="center" valign="middle"> 
<TABLE WIDTH="760" BORDER="0" ALIGN="CENTER"><TR><TD>
<%
if Request("action")="action" then
if Trim(Request.Form("UserId"))="" or Trim(Request.Form("Email"))="" then response.redirect "error.asp?id=004"
if len(Trim(Request.Form("UserId")))<0 then response.redirect "error.asp?id=004"
if isValidstring(Trim(Request.Form("UserId")))<>"" then response.redirect "error.asp?id=022"
if IsValidEmail(Trim(Request.Form("Email")))=false then response.redirect "error.asp?id=015"
sql="select * from [Agent_User] where UserId='" & Trim(Request.Form("UserId")) & "'"
set rs=conn.Execute(Sql)
if rs.bof and rs.eof then Response.Redirect("error.asp?id=011")
if isNull(rs("Email")) then
Email=Split("Email|000000","|")
else
Email=Split(rs("Email"),"|")
end if
if IsValidEmail(Email(0))=false then response.redirect "error.asp?id=015"
if Email(0)<>Trim(Request.Form("email")) then 
Response.Redirect("error.asp?id=015")
else
randomize
if EncryptPass=1 then
Set Autohost = Server.CreateObject("autohost.Createhost")
passwd=left(autohost.md5(rnd*10000000000),8)
mdpasswd=autohost.md5(passwd)
Set Autohost=nothing
else
mdpasswd=left(autohost.md5(rnd*10000000000),8)
end if
rs.close
set rs=nothing
sql1="Update [Agent_User] set PassWd='"&mdpasswd&"' where UserId='"&Trim(Request.Form("UserId"))& "'"
conn.Execute(Sql1)
'Dim JMail
'Set JMail=Server.CreateObject("JMail.SMTPMail")
'JMail.Logging=True
'JMail.ServerAddress="mail.225500.com"
'JMail.Sender="admin@225500.com"
'JMail.Subject="宏杰网络密码找回系统！请您保护好您的密码！"
'JMail.Body="尊敬的客户，您好"&vbCrLf&"您使用的是我们的密码找回服务。"&vbCrLf&"你的用户名为："&Trim(Request.Form("UserId"))&vbCrLf&"密码已经为你重新初始化为："&passwd&vbCrLf&"宏杰网络科技http://www.225500.com"&vbCrLf&"域名60，空间1元/M"&vbCrLf&"电话:0523-5880920 13815922969"
'JMail.AddRecipient Email(0)
'JMail.Priority=3
'JMail.Execute
'Set JMail=nothing 
Response.write "密码已经发送到<font color=red>" &Trim(Request.Form("email"))&"</font>信箱中，请注意查收"
Response.write "<meta http-equiv=refresh content=3;url=index.asp >"
response.end
end if
end if
%>

<table width="100%" align="center" bgcolor="#000000" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">

<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#000000>
<form name=AddForm action="?action=action" method=post>
<tr>
<td bgcolor=ffffff align=center height=24 colspan="3">
取回密码
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 用户名称:
</td>
<td bgcolor=FFFFFF width=26%>
<input name="UserId" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF width=50%>
用户登录时所用ID号，只能是<font color=red>英文或数字</font>。
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 电子邮件:
</td>
<td bgcolor=FFFFFF>
<input name="Email" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF>
务必准确，否则不能收到密码
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="3">
<input type="submit" value=" 提 交 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;&nbsp;&nbsp;
<input type="reset" value=" 重 置 " name="B2" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;
</td>
</tr>
</form>
</table>
<br>

</td>
</tr>
</table>

</TD></TR></TABLE></td>
    </tr>
  </table>
⌨️ 快捷键说明

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