>< %@ Application Language="VB" % > > ><script runat=server> > ></script> >>
>Imports System.Data.OleDb >Imports System.Data.SqlClient >Imports System.Data.Odbc > >Namespace Framework > > Public Class App > ... > Public Shared oApp As Framework.App = New Framework.App() > ... > End Class > >End Namespace >>
>Namespace Framework > > Public Class WebForm > Inherits System.Web.UI.Page > > Public oProcess As Framework.LXProcess = New Framework.LXProcess() > > Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init > > If Not App.oApp.lInitialize Then > App.oApp.nApplicationMode = 3 > App.oApp.oServer = Server > App.oApp.Initialize() > End If > > oProcess.oApp = App.oApp > oProcess.oRequest = Request > oProcess.oResponse = Response > oProcess.oServer = Server > oProcess.oPage = Me > oProcess.BeginRequest() > End Sub > > Sub Page_UnLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Unload > oProcess.EndRequest() > End Sub > > Sub Page_Error(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Error > oProcess.ErrorSetup() > End Sub > > End Class > >End Namespace >>