从数据库获取用户权限-概念问题

Question

我有一个表 users

ID    status
1     5
2     50
3     60
4     999
5     5

表中的每个用户都有其状态。状态意味着：

5 = normal user
50 = article writer
60 = blog writer
999 = administrator

在我拥有正常的状态值上升线性系统之前，一切都很好。如果页面只能由管理员访问，我会进行状态 999 的会话检查，如果页面可由最小状态用户访问，我会检查状态是否> > 2等...它无需访问数据库即可工作（我在会话变量中获取状态，因此仅当会话超时和第一次访问时才会查询mysql）。

现在我对文章作者和博客管理员有一个问题......有一个概念问题。我只能应用 = 或 >状态，因此仅允许其中一种状态或任何更高的状态。管理员可以看到所有内容，因此它的编号最高。

现在我希望用户 2 也能够成为博客作者，因此实际上有 2 个确切的角色。他需要同时拥有50和60的状态。 60 并不是更高，因为我不希望每个博客作者都能够看到文章管理。现在该怎么办？

我当然可以放入状态列 50,60，然后解析出正确的列，但我会丢失数字列，并且我认为滥用列字段获取多个值是一种不好的做法。

合乎逻辑的方法是制作一个状态表，例如

IDuser     status
2          50
2          60
3          60
1          5
5          5
4          999

因此，当我在博客页面上时，我可以查询所需的确切状态，并且一个用户可以拥有多个角色...

但是...正如我所写，我在会话中有状态使用经典 ASP 的变量不必在每个页面上查询数据库。如果我制作另一个状态表，我将需要在每个页面上查询状态表以查看是否包含该用户的角色。我想以某种方式记住这些信息，但我不知道如何。

或者也许还有其他方法？

Answer 1

保持数据库表和代码可读的哈希图解决方案可以是：

在 header.inc 上

'add new tasks  here  (and in perfiles table) '
mask_order = "write_article,read_article,write_blog,read_blog"

' this function can be coded 2 ways: checking bad parameters or   '
' not checking bad parameters (best perfomance, but unpredictible problems on wrong calls), i coded this way here '
function can_user(what)
    x = split(" " & mask_order, what)    ' the extra space is needed here '
    x = ubound(split(x(0), ","))+1
    can_user = (session("mask") and 2^x)<>0
end function

重新启动会话

sql="select users.usuario, perfiles.* from users inner join perfiles on users.perfil=perfiles.perfil" _
 & " where usuario = '" & limpia(quien) & "' and pass ' = '" & limpia(password) & "';"
r.open sql, c
ok = not r.eof
if ok then 
    mask = 0: i = 0
    for each campo in split(mask_order, ",")
      i = i +1
      if r(campo) then mask = mask or 2^i
    next
    session("mask") = mask

、在 login.asp 上或在每个所需文件上

if can_user("read_article") then .... 

Answer 2

使用各种“状态”值的哈希图，并将您的用户与他们请求的任何权限进行“或”操作。

Answer 3

您仍然可以在会话变量中存储多个状态，我建议使用逗号分隔列表：

Session.Contents("Status") = "50,60"

然后您可以将列表作为数组获取，即

Dim Status
'Check if there is a comma in the list
If (InStr(Session.Contents("Status"), ",")) Then
   Status = Split(Session.Contents("Status"), ",")
Else
   Status Array(Session.Contents("Status"))
End If

'Use a for loop to check if the user has access
i = 0
For i = LBound(Status) To UBound(Status)
   'Do your check here
Next

Answer 4

我用两张桌子做：
“用户”具有关联的“个人资料”并且
“个人资料”关联了“允许的操作”
您可以根据“状态”维持“提升状态的正常线性系统”，并且可以开始迁移到这个新模型
这是我的 login.aps 的简化部分（经典）我还在会话上维护“允许的操作”
也许（我不确定，如果它作为长期解决方案很好）您可以使用“status”字段作为用户和 alowed_actions_by_profile 表之间的连接，

sql="select users.usuario, perfiles.* from users inner join perfiles on users.perfil=perfiles.perfil" _
 & " where usuario = '" & limpia(quien) & "' and pass ' = '" & limpia(password) & "';"
r.open sql, c
ok = not r.eof
if ok then 
    for each campo in r.fields
      if campo.name<>"usuario" then session("can_" & campo.name) = r(campo.name)
    next
    session("user") = r("usuario")

这里的配置文件表就像这样

perfil         varchar(20) not null,   
write_article  bolean null,   
read_article   bolean not null,
write_blog     bolean null,   
read_blog      bolean not null,
and so on 

，您将代码签入为

if session("can_write_blog") then ....