TManager 全局控制类

最新推荐文章于 2024-10-30 21:29:52 发布

原创最新推荐文章于 2024-10-30 21:29:52 发布 · 477 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#file #class #table #css

ASP 专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一个基于ASP的动态网页框架实现细节，包括全局控制管理器TManager的定义及其内部类如数据库操作、权限验证等组件的初始化过程。此外还展示了如何通过设置不同属性来控制页面行为。

<%Option Explicit%>          <% ' TManager 全局控制 ' 默认打开 Dim mgr,page Set mgr = new TManager Set page = mgr.page page.OnAction = "OnAction" page.OnBeforeEcho = "OnBeforeEcho" page.OnEcho = "OnEcho" page.OnAfterEcho = "OnAfterEcho" Class TManager Private FDB,FRSP,FConfig,FPrivilege,FPage Private FEntryPriv,FTitle Sub Class_Terminate If IsObject(FDB) Then Set FDB = Nothing If IsObject(FRSP) Then Set FRSP = Nothing If IsObject(FConfig) Then Set FConfig = Nothing If IsObject(FPrivilege) Then Set FPrivilege = Nothing If IsObject(FPage) Then Set FPage = Nothing End Sub Property Let EntryPriv(value) 'Privilege.checkPriv value End property Property Let TimeOut(value) If value Then Privilege.TimeOut End Property '-------------------- manage class begin --------------------- Property Get DB() If Not IsObject(FDB) Then Set FDB = new TDB FDB.ConnStr = Config.ConnStr End If Set DB = FDB End Property Property Get RSProxy() If Not IsObject(FRSP) Then Set FRSP = new TRSProxy End If Set RSProxy = FRSP End Property Property Get Config() If Not IsObject(FConfig) Then Set FConfig = new TConfig End If Set Config = FConfig End Property Property Get Privilege() If Not IsObject(FPrivilege) Then Set FPrivilege = new TPrivilege Set FPrivilege.DB = DB FPrivilege.LoginPage = Config.LoginPage '路径须处理 End If Set Privilege = FPrivilege End Property Property Get Page() If Not IsObject(FPage) Then Set FPage = new TPage FPage.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 If Set Page = FPage End Property Property Let Title(value) page.Title = value & " - " & config.SysName End property '===================== manage class end ========================== End Class %>