权限管理的设计和实现

权限管理的核心，就是对不同权限的用户，分配管理对应权限的资源。

    本例以一个网站栏目后台管理模块（资源）的权限管理为例，实现了不同用户的权限管理。

    数据库设计：

    帐户信息表：
      f_i_autoid     自动编码(主键)
      f_i_orderid
      f_accountid    帐户编码
      f_accountname  帐户    (外键)
      f_password     密码
      f_accounttype
      f_username
      f_remark
      f_datetime

      栏目信息表：
      f_i_autoid    自动编码(主键)
      f_i_orderid
      f_lanmuid     栏目编码
      f_lanmuname   栏目    (外键)
      f_ishidden
      f_remark
      f_datetime

      权限表：
      f_i_autoid    自动编码(主键)
      f_accountname 帐户    (外键)
      f_lanmuname   栏目    (外键)
      f_remark
      f_datetime

    通过权限表的 f_accountname 帐户(外键)和 f_lanmuname 栏目(外键)把帐户信息表
    和栏目信息表联系起来，通过给“帐户”分配“栏目”，或者给“栏目”分配“帐户”，使帐户和栏目建立关系（可以是“一对多”“多对一”或者“多对多”）。

    然后以当前登陆的帐户为基准，在权限表中查找其可管理的栏目(资源)。

    本例实现了一个用户对多栏目的管理(但是一个栏目只能被一个用户管理 - 这个通过程序代码的约束来实现)。

    以下是部分代码：
<% Option explicit %>

 
 
 
 
 
 

<%
  Dim sSQL, rs1, rs2, rs3, CurrentAccount

  CurrentAccount = request("CurrentAccount")
%>

 
   
 
 
 
   
   
   
 
 
   
 

帐号信息：                 <%           sSQL = "select * from tabAccountInfo where f_accountname='" & CurrentAccount & "'"           Set rs1 = Server.CreateObject("ADODB.Recordset")           rs1.open sSQL, sConn, 1, 1           if rs1.eof and rs1.bof then             response.write("没有取得该用户的信息。")             response.end           else             response.write " [帐号:] " & rs1("f_accountname") & " [用户姓名:] " & rs1("f_username") & " [帐号类型:] " & rs1("f_accounttype")           end if           Set rs1 = nothing         %>
已分配该用户管理的栏目：               <%          '选择所有栏目中除去已经分配的栏目：           sSQL = "select f_lanmuname from tabQXB where f_accountname='"& CurrentAccount &"' order by f_lanmuname"           Set rs3 = Server.CreateObject("ADODB.Recordset")           rs3.open sSQL, sConn, 1, 1           if rs3.eof and rs3.bof then             response.write("无") & chr(13)           else             while not rs3.eof               response.write "" & rs3("f_lanmuname") & "" & chr(13)               rs3.movenext             wend           end if           Set rs3 = nothing         %>	<       <<       >       >>	待分配的栏目：               <%          '选择所有栏目中除去已经分配的栏目：           sSQL = "select f_lanmuid, f_lanmuname from tabLanmuInfo " & _                  "where f_lanmuname not in (select distinct f_lanmuname from tabQXB) order by f_lanmuid"           Set rs2 = Server.CreateObject("ADODB.Recordset")           rs2.open sSQL, sConn, 1, 1           if rs2.eof and rs2.bof then             response.write("无 ")           else             while not rs2.eof               response.write "" & rs2("f_lanmuname") & " "               rs2.movenext             wend           end if           Set rs2 = nothing         %>
保 存                    返 回

    源代码下载：