LOTUS/DOMINO学习笔记之判断是否为数据库管理员和用户的角色

在对数据库操作的过程中，需要对数据库进行权限判断，因此是否为管理员或当前的用户角色非常重要

Function  IsDbManager  As  Variant
     Dim  db  As  NotesDatabase
     Dim  session   As   New  NotesSession
     Dim  user  As   String
     Dim  commuser  As   String
    commuser = session.CommonUserName
    user = session.UserName
     Set  db = session.CurrentDatabase
    IsDbManager = False
    Forall m  In  db.Managers
         If  (m = user  Or  m = commuser)  Then
            IsDbManager = True
             Exit  Forall
         End   If  
     End  Forall
End Function

 

判别用户的角色

Function  IsAuthor  As  Variant
     Dim  db  As  NotesDatabase
     Dim  session  As   New  NotesSession
     Dim  colls  As  NotesDocumentCollection
     Dim  user  As   String
     Dim  commuser  As   String
     Dim  roles  As  Variant    
     Set  db = session.CurrentDatabase    
    user = session.UserName
    commuser = session.CommonUserName
    
    roles = Evaluate( " @Name([cn];@UserRoles) " )
    
    IsAuthor = False
    
    Forall r  In  roles
         If  r = " [图书管理员] "   Or  r = " [系统管理员] "   Then
            IsAuthor = True
             Exit  Forall
         End   If             
     End  Forall        
    
End Function