当前文件路径：DNN/Website/App_Code/Global.asax.vb

		            
  1'
  2' DotNetNuke?- http://www.dotnetnuke.com
  3' Copyright (c) 2002-2008
  4' by DotNetNuke Corporation
  5'
  6' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
  7' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
  8' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
  9' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
 10'
 11' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
 12' of the Software.
 13'
 14' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
 15' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
 16' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
 17' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
 18' DEALINGS IN THE SOFTWARE.
 19'
 20Imports System.Security
 21Imports System.Security.Principal
 22Imports System.Threading
 23Imports System.Web.Security
 24Imports System.IO
 25
 26Imports DotNetNuke.Security.Roles
 27Imports DotNetNuke.Services.Log.EventLog
 28Imports DotNetNuke.Services.Upgrade
 29
 30
 31Namespace DotNetNukeNamespace DotNetNuke.Common
 32
 33    /**/''' -----------------------------------------------------------------------------
 34    ''' Project     : DotNetNuke
 35    ''' Class     : Global
 36    ''' 
 37    ''' -----------------------------------------------------------------------------
 38    ''' <summary>
 39    ''' 
 40    ''' </summary>
 41    ''' <remarks>
 42    ''' </remarks>
 43    ''' <history>
 44    '''     [sun1]    1/18/2004    Created
 45    ''' </history>
 46    ''' -----------------------------------------------------------------------------
 47    Public Class [Class [Global]
 48        Inherits System.Web.HttpApplication
 49
 50Application Event Handlers#Region "Application Event Handlers"
 51
 52        /**/''' -----------------------------------------------------------------------------
 53        ''' <summary>
 54        ''' Application_Start
 55        ''' Executes on the first web request into the portal application, 
 56        ''' when a new DLL is deployed, or when web.config is modified.
 57        ''' </summary>
 58        ''' <param name="Sender"></param>
 59        ''' <param name="E"></param>
 60        ''' <remarks>
 61        ''' - global variable initialization
 62        ''' </remarks>
 63        ''' <history>
 64        ''' </history>
 65        ''' -----------------------------------------------------------------------------
 66        Private Sub Application_Start()Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
 67            If Config.GetSetting("ServerName") = "" Then
 68                ServerName = Server.MachineName
 69            Else
 70                ServerName = Config.GetSetting("ServerName")
 71            End If
 72        End Sub
 73
 74        /**/''' -----------------------------------------------------------------------------
 75        ''' <summary>
 76        ''' Application_End
 77        ''' Executes when the Application times out
 78        ''' </summary>
 79        ''' <param name="Sender"></param>
 80        ''' <param name="E"></param>
 81        ''' <remarks>
 82        ''' </remarks>
 83        ''' <history>
 84        ''' </history>
 85        ''' -----------------------------------------------------------------------------
 86        Private Sub Application_End()Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
 87
 88            ' stop scheduled jobs
 89            Initialize.StopScheduler()
 90
 91            ' log APPLICATION_END event
 92            Initialize.LogEnd()
 93
 94        End Sub
 95
 96#End Region
 97
 98        Private Sub Global_BeginRequest()Sub Global_BeginRequest(ByVal sender As Object, ByVal e As EventArgs) Handles Me.BeginRequest
 99            Dim app As HttpApplication = CType(sender, HttpApplication)
100            Dim Request As HttpRequest = app.Request
101
102            'run schedule if in Request mode
103            Initialize.RunSchedule(Request)
104
105        End Sub
106
107    End Class
108
109End Namespace
110