ASP.NET入門教程 11.6.2 存儲首選項[2]

Imports System

Imports SystemWeb

Imports SystemWebUI

Namespace WroxWebGlobalEvents

    Public Class ThemeModule

        Implements IHttpModule

        Public Sub Dispose() Implements SystemWebIHttpModuleDispose

        End Sub

        Public Sub Init(ByVal context As SystemWebHttpApplication) Implements SystemWebIHttpModuleInit

            AddHandler contextPreRequestHandlerExecute New EventHandler(AddressOf app_PreRequestHandlerExecute)

        End Sub

        Private Sub app_PreRequestHandlerExecute(ByVal Sender As Object ByVal E As EventArgs)

            HttpContextCurrentTraceWrite(ThemeModule app_PreRequestHandlerExecute)

            Dim p As Page = TryCast(HttpContextCurrentHandler Page)

            If p IsNot Nothing Then

                Dim pb As ProfileCommon = DirectCast(HttpContextCurrentProfile ProfileCommon)

                pTheme = pbTheme

            End If

        End Sub

    End Class

End Namespace

      <httpModules>

        <add name=Page type=WroxWebGlobalEventsThemeModule/>