<%Option Explicit%> <!--#include file="const.asp"--> <!--#include file="file_define.asp"--> <!--#include file="table_define.asp"--> <!--#include file="classes/system.asp"--> <!--#include file="classes/db.asp"--> <!--#include file="classes/rs_proxy.asp"--> <!--#include file="classes/config.asp"--> <!--#include file="classes/privilege.asp"--> <!--#include file="classes/page.asp"--> <% ' 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 %>