【ASP】系统判断企业员工操作网站是否拥有网站管理员授予的权限

admin

'调用员工权限类，对于企业网站管理员无效，企业管理员权限由服务商控制，服务商由上级渠道商控制，顶级渠道可控制下家渠道权限。
Set ClassPermission = New LPermission
'传递权限类所需必要参数，缺一不可
Set ClassPermission.HD_Conn = HD_Conn
ClassPermission.CompanyID = CompanyID
ClassPermission.CurrentLanguage = CurrentLanguage
ClassPermission.EmployeeID = EmployeeID
'判断当前功能是否拥有列表（list）权限
If Not ClassPermission.ExistPrivilege("list") Then Response.Write "权限不足！"
'判断当前功能是否拥有编辑（edit）权限
If ClassPermission.ExistPrivilege("edit") Then
    StringContent = StringContent & "<a rel=""" & Rs(0) & """ act=""edit"" method=""post"" title=""" & Edit & """></a> <a rel=""" & Rs(0) & """ act=""top"" method=""post"" title=""" & IsTop & """></a> "
Else
    StringContent = StringContent & "<a disabled title=""" & Edit & """></a> "
End If
'判断当前功能是否拥有删除（del）权限
If ClassPermission.ExistPrivilege("del") Then
    StringContent = StringContent & "<a rel=""" & Rs(0) & """ act=""del"" title=""" & Del & """></a>"
    DelDisabled = "return dels()"""
Else
    StringContent = StringContent & "<a disabled title=""" & Del & """></a>"
    DelDisabled = " disabled"
End If
'更多权限功能见 HD_Privileggs，HD_Actions数据表
'释放权限类，解锁数据库，提高数据库运行效能。
Set ClassPermission = Nothing