TManager 全局控制类

来源：互联网发布：淘宝 app 提醒卖家发货编辑：程序博客网时间：2024/05/16 15:38

<%Option Explicit%><%' TManager 全局控制' 默认打开Dim mgr,pageSet mgr = new TManagerSet page = mgr.pagepage.OnAction = "OnAction"page.OnBeforeEcho = "OnBeforeEcho"page.OnEcho = "OnEcho"page.OnAfterEcho = "OnAfterEcho"Class TManagerPrivate FDB,FRSP,FConfig,FPrivilege,FPagePrivate FEntryPriv,FTitleSub Class_TerminateIf IsObject(FDB) Then Set FDB = NothingIf IsObject(FRSP) Then Set FRSP = NothingIf IsObject(FConfig) Then Set FConfig = NothingIf IsObject(FPrivilege) Then Set FPrivilege = NothingIf IsObject(FPage) Then Set FPage = NothingEnd SubProperty Let EntryPriv(value)'Privilege.checkPriv valueEnd propertyProperty Let TimeOut(value)If value Then Privilege.TimeOutEnd Property'-------------------- manage class begin ---------------------Property Get DB()If Not IsObject(FDB) ThenSet FDB = new TDBFDB.ConnStr = Config.ConnStrEnd IfSet DB = FDBEnd PropertyProperty Get RSProxy()If Not IsObject(FRSP) ThenSet FRSP = new TRSProxyEnd IfSet RSProxy = FRSPEnd PropertyProperty Get Config()If Not IsObject(FConfig) ThenSet FConfig = new TConfigEnd IfSet Config = FConfigEnd PropertyProperty Get Privilege()If Not IsObject(FPrivilege) ThenSet FPrivilege = new TPrivilegeSet FPrivilege.DB = DBFPrivilege.LoginPage = Config.LoginPage '路径须处理End IfSet Privilege = FPrivilegeEnd PropertyProperty Get Page()If Not IsObject(FPage) ThenSet FPage = new TPageFPage.Head.Addchild FPage.link(Config.ThemePath & "reset.css")FPage.Head.Addchild FPage.script(Config.URLRoot & "javascript/func.js")FPage.Head.Addchild FPage.script(Config.URLRoot & "javascript/lightbox.js")FPage.Head.Addchild FPage.script(Config.URLRoot & "javascript/calendar.js")FPage.Head.Addchild FPage.link(Config.ThemePath & "style.css")FPage.currentElement.name = "css"End IfSet Page = FPageEnd PropertyProperty Let Title(value)page.Title = value & " - " & config.SysNameEnd property'===================== manage class end ==========================End Class%>