【ASP】系统是否授权功能使用的权限检测代码

admin

'调用Navigator类，该类指向数据库HD_Menu
Set ClassNavigator = New Navigator
ClassNavigator.RootPath = RootPath
ClassNavigator.TableType = 2
'通过检测当前功能NavigatorID值的布尔值来识别是否授权
If Not ClassNavigator.IsPrivilege(NavigatorID) Then GetSiteMenu = "{""stat"":""err"",""msg"":""系统未授权使用该功能，请联系服务商开通！""}": Exit Function
Set ClassNavigator = Nothing