📄 getpwd.asp

📁 强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。开通会员注册和产品
💻 ASP
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->

<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************

Dim Username,Userquesion,Useranswer,User_Passwd
Dim R_Answer,Getpwduser
    Class_Name="用户登陆"
    Class_Name="找回密码 > "
    IF Action="" THEN Class_Name=Class_Name & "请输入用户名"
    IF Action="Answer" THEN Class_Name=Class_Name & "密码提示问题"
    IF Action="Editpass" THEN Class_Name=Class_Name & "修改密码"
    IF Action="G_UserName" THEN
        Username=checkfSQLStr(trim(Request.form("R_User")))
        IF Username="" THEN
            error_title="对不起，请输入用户名！"
            founderr=True
        ElseIF int(Web_Const(48))=1 THEN
            IF cstr(Session("GetCode"))<>Request.form("VerifyCode") THEN
                error_title="对不起，验证码输入不正确！"
                founderr=True
            End IF
        End IF
        IF founderr=True THEN
            Call Page_check(3,0)
        Else
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User where User_Name='" & Username & "'"
            Rs.open Sql,Conn,1,3
                IF datediff("d",Rs("User_GetpwdDate"),date())>0 THEN
                    Rs("User_GetpwdDate")=Date()
                    Rs("User_Getpwd")=int(Web_Const(49))
                End IF
                IF Rs.Recordcount=0 THEN
                    error_title="对不起，操作失败（可能无此用户或被管理锁定）！"
                    founderr=True
                ElseIF Rs("User_Flag")=0 THEN
                    error_title="对不起，操作失败（可能未通过审核或被管理员锁定）！"
                    founderr=True
                ElseIF Rs("User_Getpwd")=0 THEN
                    error_title="对不起，操作失败（取回密码次数超过限制）！"
                    founderr=True
                Else
                    Userquesion=Rs("User_Quesion")
                    Rs("User_Getpwd")=Rs("User_Getpwd")-1
                    Rs.UpDate
                End IF
            Rs.Close
            Set Rs=Nothing
            IF founderr=True THEN
                Call Page_check(3,0)
            Else
                Session("Getpwduser")=Username
                Session("Getpwdquesion")=Userquesion
                Session.Timeout=5
                Response.Redirect "Getpwd.asp?Action=Answer"
            End IF
        End IF
    End IF
    IF Action="G_UserAnswer" THEN
        Useranswer=checkfSQLStr(trim(Request.form("R_Answer")))
        IF Useranswer="" THEN
            error_title="对不起，请输入密码提示问题的答案！"
            founderr=True
        ElseIF int(Web_Const(48))=1 THEN
            IF cstr(Session("GetCode"))<>Request.form("VerifyCode") THEN
                error_title="对不起，验证码输入不正确！"
                founderr=True
            End IF
        End IF
        IF founderr=True THEN
            Call Page_check(3,0)
        Else
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User where User_Name='" & Request.form("Getpwduser") & "'"
            Rs.open Sql,Conn,1,1
                IF Rs("User_Answer")<>Md5(Useranswer) THEN
                    error_title="对不起，操作失败（密码提示问题的答案不正确）！"
                    founderr=True
                End IF
                IF founderr=True THEN
                    Call Page_check(3,0)
                Else
                    Session("Getpwduser")=Rs("User_Name")
                    Session.Timeout=5
                    Response.Redirect "Getpwd.asp?Action=Editpass"
                    Rs.Close
                    Set Rs=Nothing
                End IF
            Rs.Close
            Set Rs=Nothing
        End IF
    End IF
    IF Action="G_editUserpass" THEN
        IF Request.form("Getpwduser")="" THEN
            error_title="对不起，操作失败（因安全因素，在修改密码时请勿刷新页面）！"
            founderr=True
        ElseIF len(trim(Request.form("R_Pass")))<6 THEN
            error_title="对不起，密码不能少于6个字符，请重新输入！"
            founderr=True
        ElseIF trim(Request.form("R_Pass"))<>trim(Request.form("R_Passtoo")) THEN
            error_title="对不起，确认密码和原密码不一致，请重新输入！"
            founderr=True
        End IF
        IF founderr=True THEN
            Call Page_check(3,0)
        Else
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User where User_Name='" & Request.form("Getpwduser") & "'"
            Rs.open Sql,Conn,1,3
                User_Passwd=checkfSQLStr(trim(Request.form("R_Pass")))
                Rs("User_Passwd")=Md5(User_Passwd)
                Rs.UpDate
            Rs.Close
            Set Rs=Nothing
            ToHistory="Login.asp"
            saveok="密码已修改，请用修改后的密码登陆！"
            Call Form_Saveok()
        End IF
    End IF
    Page_Name="找回密码 -- " & Web_Const(0)
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
    %>
	<table width="990" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="321" valign="bottom" bgcolor="#082421"><span>
          <%Call Page_Login()%>
        </span><img src="Skins/blak/leftad.jpg" width="321" /></td>
        <td valign="top" bgcolor="#003333"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td valign="top" class="TABLE-Main"><div class="page-head">找回密码</div>
                <div class="TABLE-Mainall">
                  <%
                Select Case Action
                Case ""
                %>
                  <form action="Getpwd.asp?Action=G_UserName" method="post" name="Login" id="Login" >
                    <div class="getpwd-NAME">找回密码第一步：填写用户名</div>
                    <div class="TYPE-height2"></div>
                    用 户 名：
                    <input name="R_User" type="text" class="INPUTimage1" id="R_User" size="25" maxlength="25" />
                    　
                    请输入您的用户名，如果没有请先<a href="Reg.asp" title="注册成为本站会员"><span class="TYPE-color2">注册</span></a>。<br />
                    <%IF Web_Const(48)=1 THEN%>
                    验 证 码：
                    <input name="VerifyCode" size="7" maxlength="4" type="text" class="INPUTimage1" value="<%IF GetCode=9999 THEN%>9999<%End IF%>" />
                    <img src="Getcode.asp" align="absmiddle" /><br />
                    <%End IF%>
                    <br />
                    说明：本操作只能修改您的登陆密码，请确认您已经填写了密码问题及答案。
                    <div class="table-tstd"><br />
              <a href="javascript:history.go(-1);"><img src="Skins/Blue/back.gif" align="absmiddle" border="0" /></a>
              <input type="image" src="Skins/Blue/next.gif" name="Ok" align="absmiddle" />
                    </div>
                  </form>
                  <%
                Case "Answer"
                    IF Session("Getpwdquesion")="" THEN
                        Response.Redirect "javascript:history.go(-1);"
                    End IF
                    IF Session("Getpwdquesion")<>"" THEN
                        R_Answer=Session("Getpwdquesion")
                    Else
                        R_Answer=R_Answer
                    End IF
                    IF Session("Getpwduser")<>"" THEN
                        Getpwduser=Session("Getpwduser")
                    Else
                        Getpwduser=Getpwduser
                    End IF
                    Session("Getpwduser")=""
                    Session("Getpwdquesion")=""
                    %>
                  <form action="Getpwd.asp?Action=G_UserAnswer" method="post" name="Login" id="Login" >
                    <div class="getpwd-NAME">找回密码第二步：密码提示问题</div>
                    <div class="TYPE-height2"></div>
                    寻密问题：
                    <input name="R_Quesion" type="text" class="INPUTimage1" id="R_Quesion" value="<%=R_Answer%>" size="20" maxlength="50" />
                    <br />
                    密码答案：
                    <input name="R_Answer" type="password" class="INPUTimage1" id="R_Answer" size="20" maxlength="50" />
　
请确认您已填写过问题及答案。          <br />
                    <%IF Web_Const(48)=1 THEN%>
                    验 证 码：
                    <input name="VerifyCode" size="7" maxlength="4" type="text" class="INPUTimage1" value="<%IF GetCode=9999 THEN%>9999<%End IF%>" />
                    <img src="Getcode.asp" align="absmiddle" /><br />
                    <%End IF%>
                    <div class="table-tstd"><br />
              <input name="Getpwduser" type="hidden" id="Getpwduser" value="<%=Getpwduser%>" />
                      <a href="javascript:history.go(-1);"><img src="Skins/Blue/back.gif" align="absmiddle" border="0" /></a>
              <input type="image" src="Skins/Blue/next.gif" name="Ok" align="absmiddle" />
                    </div>
                  </form>
                  <%
                Case "Editpass"
                    IF Session("Getpwduser")="" THEN
                        Response.Redirect "javascript:history.go(-1);"
                    End IF
                    IF Session("Getpwduser")<>"" THEN
                        Getpwduser=Session("Getpwduser")
                    Else
                        Getpwduser=Getpwduser
                    End IF
                    Session("Getpwduser")=""
                    %>
                  <form action="Getpwd.asp?Action=G_editUserpass" method="post" name="Login" id="Login" >
                    <div class="getpwd-NAME">找回密码第三步：修改您的登陆密码</div>
                    <div class="TYPE-height2"></div>
                    登陆密码：
                    <input name="R_Pass" type="password" class="INPUTimage1" id="R_Pass" size="15" maxlength="20" />
                    <font color="#ff0000">*</font>　密码长度为6-20个字符<br />
                    确认密码：
                    <input name="R_Passtoo" type="password" class="INPUTimage1" id="R_Passtoo" value="" size="15" />
                    <font color="#ff0000">*</font>　请再输入一次登陆密码<br />
                    <%IF Web_Const(48)=1 THEN%>
                    验 证 码：
                    <input name="VerifyCode" size="7" maxlength="4" type="text" class="INPUTimage1" value="<%IF GetCode=9999 THEN%>9999<%End IF%>" />
                    <img src="Getcode.asp" align="absmiddle" /><br />
                    <%End IF%>
                    <div class="table-tstd"><br />
              <input name="Getpwduser" type="hidden" id="Getpwduser" value="<%=Getpwduser%>" />
                      <a href="javascript:history.go(-1);"><img src="Skins/Blue/back.gif" align="absmiddle" border="0" /></a>
              <input type="image" src="Skins/Blue/next.gif" name="Ok" align="absmiddle" />
                    </div>
                  </form>
                  <%End Select%>
              </div></td>
          </tr>
        </table></td>
      </tr>
    </table>
	<%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>
⌨️ 快捷键说明

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