📄 getpwd.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<!--#include file="Head.asp"-->
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - 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="770"  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 NAME=Login METHOD=post action="Getpwd.asp?Action=G_UserName" >
                    <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 NAME=Login METHOD=post action="Getpwd.asp?Action=G_UserAnswer" >
                    <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 NAME=Login METHOD=post action="Getpwd.asp?Action=G_editUserpass" >
                    <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>
            <TD WIDTH="5"></TD>
            <TD WIDTH="195" ALIGN="center" VALIGN="top" CLASS="TABLE-Side">
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">产品搜索</SPAN></DIV>
                <DIV CLASS='TABLE-side3'><%Call page_Search("Products")%></DIV>
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">订单搜索</SPAN></DIV>
                <DIV CLASS='TABLE-side3'><%Call page_Search("ShopCode")%></DIV>
            </TD>
        </TR>
    </TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>
⌨️ 快捷键说明

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