<% if Instr(session("AdminPurview"),"|36,")=0 then response.write ("你不具有该管理模块的操作权限，请返回！") response.end end if '========判断是否具有管理权限 %> <% select case request.QueryString("Action") case "ModifyPass" SaveNewPass case else end select %>

网站管理员：添加，修改管理员信息
添加管理员 | 查看所有管理员 | 修改管理员密码

" >

登 录 名： " maxlength="16" readonly> 3-10位字符，不可修改 新 密 码：  * 注意字母大小写 确认密码：  *

<% function SaveNewPass() dim LoginName,rs,sql LoginName=request.QueryString("LoginName") set rs = server.createobject("adodb.recordset") sql="select * from LiangJingCMS_Admin where AdminName='"&LoginName&"'" rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write "读取数据库记录出错！" response.end else if len(trim(Request.Form("NewPassword")))<6 or len(trim(Request.Form("NewPassword")))>20 then response.write "" response.end end if if Request.Form("NewPassword")<>Request.Form("vNewPassword") then response.write "" response.end end if rs("Password")=Md5(Request.Form("NewPassword")) rs.update rs.close set rs=nothing end if response.write "你的管理密码已成功修改，请牢记[ "&trim(Request.Form("NewPassword"))&" ]！" response.end end function %>