一、找到系统管理员权限类库文件
Manage/Include/Tkl_SYSProedomClass.asp
二、定义权限变量名
Private
Podm_ManageDataBase
三、赋于该权限变量数字值做为唯一的权限Id标识
Podm_ManageDataBase=19
四、在“初始化权限列表”中加入该权限变量
Podm_ManageDataBase & ",数据库管理,"
&_
五、最后新建一个类属性,开发者通过都获取该属性以得知是否具有此权限(返回为Bool型)
'是否有数据库的权限
Public
Property Get ManageDataBase()
'如果当前管理员所属的角是超级管理员,则直接返回True值
If AdminRoleTitle=defAdminRoleTitle
Then
ManageDataBase=True
Exit Property
End If
'使用EnoughPopedom函数判断当前管理员的权限列表中是否有此权限的Id值
ManageDataBase=EnoughPopedom(Podm_ManageDataBase)
End Property
六、使用举例:(系统管理员信息类库) |