admin_edit2.asp

来自「have playing search print and many very 」· ASP 代码 · 共 69 行

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file ="Inc/MD5.asp"-->
<%
Dim rs,ro,Sql,uu
Dim idd,oldpwd,newpwd,selev,nname
Dim ad,pd,lls
Dim isadmin
nname = Trim(Request.Form("name"))
oldpwd = MD5(Request.Form("pwd"))
newpwd = Trim(Request.Form("newpwd"))
idd = Request.Form("id")

isadmin = Manage_Level(adl)
If isadmin<>"管理员" Then
Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
End if

Set ro = Conn.execute("Select User_Name,PassWord From [HQ_User] Where ID ="&idd)
ad = ro(0)
pd = ro(1)
ro.Close
Set ro=Nothing

If newpwd = "" Then 
newpwd = pd
Else
newpwd = MD5(newpwd)
End if

If oldpwd = pd Then
  If nname = ad Then
  Set uu = Server.CreateObject("ADODB.RecordSet")
  Sql = "Select User_Name,PassWord From [HQ_User] Where ID=" & idd
  uu.Open Sql,Conn,1,3
  uu("User_Name") = nname
  uu("PassWord") = newpwd
  uu.Update
  uu.Close
  Set uu=Nothing
  Response.write "<script language='javascript'>alert('管理员信息修改成功!');" & chr(13)
  Response.write "window.document.location.href='Admin_List.asp';</script>"
  Else
     Set rs = Conn.execute("Select User_Name From [HQ_User] Where User_Name='"&nname&"'")
     If Not (rs.Eof and rs.Bof) Then
     Response.write "<script language='javascript'>alert('此管理员已经存在!');" & chr(13)
     Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
     Else
     Set uu = Server.CreateObject("ADODB.RecordSet")
     Sql = "Select User_Name,PassWord From [HQ_User] Where ID=" & idd
     uu.Open Sql,Conn,1,3
     uu("User_Name") = nname
     uu("PassWord") = newpwd
     uu.Update
     uu.Close
     Set uu=Nothing
     Response.write "<script language='javascript'>alert('管理员信息修改成功!');" & chr(13)
     Response.write "window.document.location.href='Admin_List.asp';</script>"
     End if
     rs.Close
     Set rs=Nothing
  End if
Else
Response.write "<script language='javascript'>alert('密码错误!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
End if

%>