thomas

修改根目录下ConContent.asp 的 2318行（大约）

在
'--------------------------删除用户----------------------------
用下面代码替换此处代码
'==================友情链接管理=====

'--------------------------删除用户----------------------------
  elseif Request.form("whatdo")="DelUser" then
    dim DelUserID,DelUserName,blogmemberNum, DelUserStatus
    DelUserID=Request.form("DelID")
        blogmemberNum=conn.execute("select count(mem_ID) from blog_Member where mem_Status='SupAdmin'")(0)       
       
        DelUserStatus=conn.execute("select mem_Status from blog_Member where mem_ID="&DelUserID)(0)
            if ((blogmemberNum = 1) and (DelUserStatus = "SupAdmin")) then
                        session(CookieName&"_ShowMsg")=true
                   session(CookieName&"_MsgText")="不能删除仅有的管理员权限!"
                   Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=Users")
                else
                DelUserName=conn.execute("select mem_Name from blog_Member where mem_ID="&DelUserID)(0)
                    conn.execute("delete * from blog_Member where mem_ID="&DelUserID)
                        Conn.ExeCute("UPDATE blog_Info SET blog_MemNums=blog_MemNums-1")
                        getInfo(2)
                    session(CookieName&"_ShowMsg")=true
                    session(CookieName&"_MsgText")="<span style=""color:#900"">“"&DelUserName&"”</span> 删除成功!"
                    Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=Users")       
                  end if   
   else
    session(CookieName&"_ShowMsg")=true
    session(CookieName&"_MsgText")="非法提交内容!"
    Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=")
  end if
'==========================友情链接管理===============================

关于更改设置权限，造成无管理员用户的预防代码 （2307行）
替换
'--------------------------保存用户权限----------------------------
用下面代码替换此处代码
'--------------------------删除用户----------------------------


'--------------------------保存用户权限----------------------------
  elseif Request.form("whatdo")="SaveUserRight" then
   dim gMemID,gMemStatus,AdminNum
   gMemID=split(Request.form("mem_ID"),", ")
   gMemStatus=split(Request.form("mem_Status"),", ")
   AdminNum=0
   for i=0 to ubound(gMemID)
       if gMemStatus(i)= "SupAdmin" then               
              AdminNum=1
           end if
   next
   if AdminNum = 1 then
                  for i=0 to ubound(gMemID)
                    conn.execute("update blog_Member set mem_Status='"&gMemStatus(i)&"' where mem_ID="&gMemID(i))
                  next
            session(CookieName&"_ShowMsg")=true
            session(CookieName&"_MsgText")="用户权限设置成功!"
            Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=Users")
   else
            session(CookieName&"_ShowMsg")=true
            session(CookieName&"_MsgText")="无管理员帐户!"
            Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=Users")     
   end if       
'--------------------------删除用户----------------------------

[ 本帖最后由 thomas 于 2006-12-28 13:59 编辑 ]

snake

不错,收藏了!

Sirit

反正空间是我的，不行就该数据库。

建议pj3加上以上代码！

marcher

正在使用