📄 getpass.asp
字号:
<%
'乘风多用户计数器
'制作：乘 风
'QQ：178575
'E-Mail：yliangcf@163.com
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfcount
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<!--#include file="Conn.asp"-->
<!--#include file="CF_MyFunction.asp"-->
<!--#include file="CF_Md5.asp"-->
<%If Request("Action")="modifypasswordsave" Then%>
<%
Pwd=GoBack(ChkStr(Request("Pwd"),1),"请输入密码!")
Pwd2=GoBack(ChkStr(Request("Pwd2"),1),"请输入重复密码!")
EmailCode=GoBack(ChkStr(Request("EmailCode"),1),"请输入较验码!")
If Pwd<>Pwd2 Then Call AlertBack("两次输入的密码不一致！")
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where EmailCode='" &EmailCode& "'"
Rs.Open Sql,Conn,1,1
If Rs.Eof And Rs.Bof Then Call AlertBack("较验码不存在!",1)
Randomize
Rannum=Int(90000000*rnd)+10000000
EmailCode_New=UserName&Rannum&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
EmailCode_New=Md5(EmailCode_New,1)
Sql="Update CFCount_User Set Pwd='"&Md5(Pwd,1)&"',EmailCode='"&EmailCode_New&"' Where EmailCode='"&EmailCode&"'"
Conn.ExeCute Sql'修改密码并替换一个新的EmailCookie
Call AlertUrl("修改成功，请牢记你的新密码","Index.asp")
End If
%>
<HTML><HEAD><TITLE><%=RsSet("Title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#Include File="CF_Style.asp"-->
</HEAD>
<BODY>
<!--#include file="Top.asp"-->
<table width="980" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="51%" valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TR>
<TD class=td1> </TD>
<TD class=td2_a> </TD>
<TD class=td3></TD>
</TR>
</TABLE>
<TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1
style="WORD-BREAK: break-all" width="100%">
<TR bgColor=#ffffff>
<TD colSpan=2 vAlign=top>
<%if request("action")="" then%>
<table width="98%" align="center" class="tba">
<form name="form1" method="post" action="?action=getpassword">
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><%=Rsset("Title")%></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><div align="center"><strong><font color="#000000">找回忘记的密码</font></strong></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><div align="left">请输入你的用户名，系统会自动发送一封修改密码邮件到你的管理资料中的E-Mail地址内,如果还没有收到请和超级管理员联系!
</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">你的用户名：
</div></td>
<td bgcolor="#FFFFFF"><input name="UserName" type="text" id="UserName" size="15"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">取回方式： </div></td>
<td bgcolor="#FFFFFF"><input name="assort" type="radio" value="1" checked>
根据提示问题
<input type="radio" name="assort" value="2">
发送到Email</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><div align="center">
<input type="submit" name="Submit" value="取回密码">
</div></td>
</tr>
</form>
</table>
<%End if%>
<%If Request("Action")="getpassword" And Int(Request("Assort"))=1 Then%>
<%
UserName=GoBack(ChkStr(request("UserName"),1),"请输入用户名")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from CFCount_User where UserName='"&UserName&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then Call AlertBack("没有此用户名!",1)
if Rs("PassWordAsk")="-" Then Call AlertBack("你以前没有填写密码保护资料!",1)
%>
<table width="98%" align="center" class="tba">
<form name="form1" method="post" action="?action=answermodifypassword&UserName=<%=UserName%>">
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><%=Rsset("Title")%></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><div align="center"><strong><font color="#000000">请回复你的答案</font></strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <div align="right">密码提示问题：
</div></td>
<td bgcolor="#FFFFFF"><%=rs("passwordask")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">密码提示答案： </div></td>
<td bgcolor="#FFFFFF"><input name="passwordanswer" type="text" size="20"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><div align="center">
<input type="submit" name="Submit3" value="确定">
</div></td>
</tr>
</form>
</table>
<%End if%>
<%If Request("Action")="answermodifypassword" Then%>
<%
UserName=GoBack(ChkStr(request("UserName"),1),"请输入用户名")
PasswordAnswer=GoBack(ChkStr(request("PasswordAnswer"),1),"请输入答案")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from CFCount_User where UserName='"&UserName&"'"
rs.open sql,conn,1,1
if Rs("PasswordAnswer")<>Md5(PasswordAnswer,1) Then Call AlertBack("答案有错误!",1)
Session("UserName")=UserName
%>
<table width="98%" align="center" class="tba">
<form name="form1" method="post" action="?Action=answermodifypasswordsave">
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><strong>修改密码</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">新密码：</div></td>
<td bgcolor="#FFFFFF"> <input name="Pwd" type="password" id="password">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">新密码确认：</div></td>
<td bgcolor="#FFFFFF"><input name="Pwd2" type="password" id="password2"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit2" value="修改密码">
</td>
</tr>
</form>
</table>
<%End if%>
<%
If request("action")="answermodifypasswordsave" Then
Pwd=goback(ChkStr(request("Pwd"),1),"请填入新密码")
Pwd2=goback(ChkStr(request("Pwd2"),1),"请再次填入新密码")
If Pwd<>Pwd2 Then Call AlertBack("填入的密码不一致，请重新输入一遍!",1)
Set Rs= Server.CreateObject("ADODB.Recordset")
Sql="select * from CFCount_User where UserName='"&Session("UserName")&"'"
Rs.Open Sql,Conn,3,2
Rs("Pwd")=Md5(Pwd,1)
Rs.update
Call AlertUrl("修改成功,请记牢！","index.asp")
End If
%>
<%If Request("Action")="getpassword" And Int(Request("Assort"))=2 Then%>
<%
UserName=GoBack(ChkStr(request("UserName"),1),"请输入用户名")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from CFCount_User where UserName='"&UserName&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then Call AlertBack("没有此用户名!",1)
%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td width="767" colspan="2"><div align="center"><%=Rsset("Title")%></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><div align="center"><strong>密码已经成功发送到你的<font color="#33CC00"><font color="#ff0000"><%=rs("email")%></font></font>,请查收,如果没有收到邮件请联系计数器系统管理员解决！</strong></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"> <div align="center">
<input type="submit" name="Submit523" value="返回" onClick="javascript:history.go(-2)">
</div></td>
</tr>
</table>
<%
Randomize
Rannum=Int(90000000*rnd)+10000000
EmailCode=UserName&Rannum&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
EmailCode=Md5(EmailCode,1)
Sql="Update CFCount_User Set EmailCode='"&EmailCode&"' Where UserName='" &UserName& "'"
Conn.ExeCute Sql
EmailTo=Rs("email")
EmailFrom=RsSet("JmailUser")
EmailFromName=RsSet("Title")
EmailSubj=RsSet("Title")
EmailBody1=RsSet("Title")&"发送的修改计数器的密码的链接,发送时间"&Now()&"<br>打开下面链接修改你的计数器密码<br>"
EmailBody2=HttpPath(2)&"Getpass.asp?Action=modifypassword&EmailCode="&EmailCode
EmailBody=EmailBody1+EmailBody2
If RsSet("emailsendtype")=1 Then
Set objMail = Server.CreateObject("CDONTS.Newmail")
objMail.To = EmailTo
objMail.From = EmailFrom
objMail.Subject = EmailSubj
objMail.Body = EmailBody
objMail.Send
Set objMail = Nothing
ElseIf RsSet("emailsendtype")=2 Then
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = RsSet("JmailUser")
msg.MailServerPassword = RsSet("JmailPassword")
msg.From = EmailFrom
msg.FromName = EmailFromName
msg.AddRecipient EmailTo
msg.Subject = EmailSubj
msg.Body = EmailBody
msg.Send (RsSet("JmailAddress"))
set msg = nothing
End if
%>
<%end if%>
<%If Request("Action")="modifypassword" Then%>
<%EmailCode=ChkStr(Request("EmailCode"),1)%>
<table width="98%" align="center" class="tba">
<form name="form1" method="post" action="?Action=modifypasswordsave&EmailCode=<%=EmailCode%>">
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><strong>修改密码</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">新密码：</div></td>
<td bgcolor="#FFFFFF"> <input name="Pwd" type="text" id="password">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">新密码确认：</div></td>
<td bgcolor="#FFFFFF"><input name="Pwd2" type="text" id="password2"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit2" value="修改密码">
</td>
</tr>
</form>
</table>
<%End If%></TD>
</TR>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TR>
<TD class=td4></TD>
<TD class=td5_a></TD>
<TD class=td6></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Bottom.asp"-->
</BODY></HTML>
<%Call ConnClose()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -