?? admin_adminmodifypwd.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="Admin_Chkpass.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/md5.asp"-->
<%
dim Action,FoundErr,ErrMsg
dim rs,sql
Action=trim(request("Action"))
sql="Select * from Admin where UserName='" & AdminName & "'"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
if rs.Bof and rs.EOF then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>不存在此用戶！</li>"
else
if Action="Modify" then
call ModifyPwd()
else
call main()
end if
end if
rs.close
set rs=nothing
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub ModifyPwd()
dim password,PwdConfirm,username
password=trim(Request("Password"))
PwdConfirm=trim(request("PwdConfirm"))
if password="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>新密碼不能為空！</li>"
end if
if PwdConfirm<>Password then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>確認密碼必須與新密碼相同！</li>"
exit sub
end if
UserName=rs("UserName")
if Password<>"" then
rs("password")=md5(password)
end if
rs.update
Response.Write"<script language=JavaScript>"
Response.Write"alert(""密碼修改成功，請重新登錄！"");"
Response.Write"window.history.go(-1);"
Response.Write"</script>"
end sub
sub main()
%>
<html>
<head>
<title>修改管理員密碼</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
<script language=javascript>
function check()
{
if(document.form1.Password.value=="")
{
alert("密碼不能為空！");
document.form1.Password.focus();
return false;
}
if((document.form1.Password.value)!=(document.form1.PwdConfirm.value))
{
alert("初始密碼與確認密碼不同！");
document.form1.PwdConfirm.select();
document.form1.PwdConfirm.focus();
return false;
}
}
</script>
<style type="text/css">
<!--
.style1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<body class="bgcolor">
<form method="post" action="admin_adminmodifypwd.asp" name="form1" onsubmit="javascript:return check();">
<br>
<br>
<table width="300" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center" class="style1">修 改 管 理 員 密 碼</div></td>
</tr>
<tr>
<td width="100" align="right" class="tdbg">用 戶 名：</td>
<td class="tdbg"><%=rs("UserName")%></td>
</tr>
<tr>
<td width="100" align="right" class="tdbg">新 密 碼：</td>
<td class="tdbg"><input type="password" name="Password"> </td>
</tr>
<tr>
<td width="100" align="right" class="tdbg">確認密碼：</td>
<td class="tdbg"><input type="password" name="PwdConfirm"> </td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg"><input name="Action" type="hidden" id="Action" value="Modify">
<input type="submit" name="Submit" value=" 確 定 " style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Index_Main.asp'" style="cursor:hand;"></td>
</tr>
</table>
</form>
</body>
</html>
<%
end sub
sub WriteErrMsg()
dim strErr
strErr=strErr & "<html><head><title>錯誤信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
strErr=strErr & "<link href='style.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbcrlf
strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbcrlf
strErr=strErr & " <tr align='center' class='title'><td height='22'><strong>錯誤信息</strong></td></tr>" & vbcrlf
strErr=strErr & " <tr class='tdbg'><td height='100' valign='top'><b>產生錯誤的可能原因：</b>" & errmsg &"</td></tr>" & vbcrlf
strErr=strErr & " <tr align='center' class='tdbg'><td><a href='javascript:history.go(-1)'><< 返回上一頁</a></td></tr>" & vbcrlf
strErr=strErr & "</table>" & vbcrlf
strErr=strErr & "</body></html>" & vbcrlf
response.write strErr
end sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -