?? admin_modifypwd.asp
字號:
<%option explicit%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改密碼</title>
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'根據(jù)不同的參數(shù)值決定是修改操作員提交的密碼還是顯示操作員密碼修改頁面
if checkAdminLogin() = true then
if request.form("action") = "modify" then
call modifyPwd()
else
call showModifyPwd()
end if
else
response.redirect "admin_index_main.asp"
end if
'顯示密碼修改頁面
sub showModifyPwd()
dim rsPwd,strSqlPwd
set rsPwd = server.createobject("ADODB.Recordset")
strSqlPwd = "select * from admin where adminname='" & request.cookies("aoyi")("adminname") & "'"
rsPwd.open strSqlPwd,G_CONN,1,1
if rsPwd.bof or rsPwd.eof then
rsPwd.close
set rsPwd = nothing
response.redirect "admin_login.asp"
end if
%>
<form action="admin_modifypwd.asp" method="post">
<input name="action" type="hidden" value="modify">
<table align="center" width="90%" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" class="tborder">
<tr class="tdtbg">
<td colspan="3" align="center">
<font color="#FFFFFF"><storng> 修 改 密 碼 </strong></font>
</td>
</tr>
<tr class="tdbg">
<td align="right" width="200">
登錄名稱：
</td>
<td>
<%=rsPwd("adminname")%>
</td>
</tr>
<tr class="tdbg">
<td align="right">
舊密碼：
</td>
<td>
<input name="pwd" class="text" type="password" size="18" maxlength="50">
</td>
</tr>
<tr class="tdbg">
<td align="right">
新密碼：
</td>
<td>
<input name="newpwd" class="text" type="password" size="18" maxlength="50">
</td>
</tr>
<tr class="tdbg">
<td align="right">
確認密碼：
</td>
<td>
<input name="confirmpwd" class="text" type="password" size="18" maxlength="50">
</td>
</tr>
<tr class="tdbg">
<td colspan="2" height="30" align="center">
<input type="submit" value=" 修 改 ">
<input type="button" onClick="history.go(-1)" value=" 取 消 ">
</td>
</tr>
</table>
</form>
<%
rsPwd.close
set rsPwd = nothing
end sub
'修改操作員密碼
sub modifyPwd()
dim rsModifyPwd,strSqlModifyPwd,strPwd,strNewPwd,strConfirmPwd,strErr
strErr = ""
'驗證操作員提交的新密碼與確認密碼是否合法
if trim(request.form("newpwd")) = "" then
strErr = strErr & "<li>新密碼為空！</li>" & vbcrlf
else
strNewPwd = trim(request.form("newpwd"))
end if
if trim(request.form("newpwd")) <> trim(request.form("confirmpwd")) then
strErr = strErr & "<li>新密碼與確認密碼不符！</li>" & vbcrlf
else
strConfirmPwd = trim(request.form("confirmpwd"))
end if
strPwd = trim(request.form("pwd"))
set rsModifyPwd = server.createobject("ADODB.Recordset")
strSqlModifyPwd = "select adminpwd from admin where adminname='" & request.cookies("aoyi")("adminname") & "'"
rsModifyPwd.open strSqlModifyPwd,G_CONN,1,3
'驗證操作員記錄是否存在
if rsModifyPwd.bof or rsModifyPwd.eof then
rsModifyPwd.close
set rsModifyPwd = nothing
response.redirect "student_login.asp"
end if
'驗證舊密碼是否正確
if rsModifyPwd("adminpwd") <> strPwd then
strErr = strErr & "<li>原密碼錯誤！</li>" & vbcrlf
end if
if strErr = "" then
'如果通過驗證則進行操作員的密碼修改
rsModifyPwd("adminpwd") = strPwd
rsModifyPwd.update
%>
<table align="center" width="500" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" class="tborder">
<tr class="tdtbg">
<td align="center">
<font color="#FFFFFF"><strong> 修 改 密 碼 </strong></font>
</td>
</tr>
<tr class="tdbg">
<td align="center">
操作員<%=request.cookies("aoyi")("adminname")%> 的密碼已經(jīng)成功修改！<br>
<a href="admin_index_main.asp" target="_top">返回首頁</a>
</td>
</tr>
</table>
<%
else '沒有通過驗證則顯示錯誤信息
showErrMsg(strErr)
end if
rsModifyPwd.close
set rsModifyPwd = nothing
end sub
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -