修改管理员密码

<% dim rs,sql Action=trim(request("Action")) If Session("adminname")<>"" Then FoundErr=True ErrMsg=ErrMsg & "
- 系统管理员不能在此界面上修改密码！
" call WriteErrMsg() Response.End End If sql="Select * from oblog_Admin where UserName='" & ProtectSql(Session("m_name")) & "' And roleid>0" Set rs=Server.CreateObject("Adodb.RecordSet") rs.Open sql,conn,1,3 if rs.EOF then FoundErr=True ErrMsg=ErrMsg & "
- 管理员或其他用户不能在此界面更改密码！
" 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 sub ModifyPwd() dim password,PwdConfirm,username password=trim(Request("Password")) PwdConfirm=trim(request("PwdConfirm")) if password="" then FoundErr=True ErrMsg=ErrMsg & "
- 新密码不能为空！
" end if if PwdConfirm<>Password then FoundErr=True ErrMsg=ErrMsg & "
- 确认密码必须与新密码相同！
" exit sub end if UserName=rs("UserName") if Password<>"" then rs("password")=md5(password) end if rs.update Response.Write"
" end sub sub main() %>

修 改 管 理 员 密 码
用 户 名： | <%=rs("UserName")%>
新 密 码： |
确认密码： |

<% end sub sub WriteErrMsg() dim strErr strErr=strErr & "
错误信息" & vbcrlf strErr=strErr & "
" & vbcrlf strErr=strErr & "

" & vbcrlf strErr=strErr & "
错误信息
" & vbcrlf strErr=strErr & "
产生错误的可能原因：" & errmsg &"
" & vbcrlf strErr=strErr & "
<< 返回上一页
" & vbcrlf strErr=strErr & "

" & vbcrlf strErr=strErr & "
" & vbcrlf response.write strErr end sub %>