/Visual Studio 2008/VBSL3OOB/VBSL3OOB.Web/My Project/MyExtensions/MyWebExtension.vb

#If _MyType <> "Empty" Then



Namespace My

    ''' <summary>

    ''' Module used to define the properties that are available in the My Namespace for Web projects.

    ''' </summary>

    ''' <remarks></remarks>

    <Global.Microsoft.VisualBasic.HideModuleName()> _

    Module MyWebExtension

        Private s_Computer As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Devices.ServerComputer)

        Private s_User As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.ApplicationServices.WebUser)

        Private s_Log As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Logging.AspLog)

        ''' <summary>

        ''' Returns information about the host computer.

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _

        Friend ReadOnly Property Computer() As Global.Microsoft.VisualBasic.Devices.ServerComputer

            Get

                Return s_Computer.GetInstance()

            End Get

        End Property

        ''' <summary>

        ''' Returns information for the current Web user.

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _

        Friend ReadOnly Property User() As Global.Microsoft.VisualBasic.ApplicationServices.WebUser

            Get

                Return s_User.GetInstance()

            End Get

        End Property

        ''' <summary>

        ''' Returns Request object.

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _

        <Global.System.ComponentModel.Design.HelpKeyword("My.Request")> _

        Friend ReadOnly Property Request() As Global.System.Web.HttpRequest

            <Global.System.Diagnostics.DebuggerHidden()> _

            Get

                Dim CurrentContext As Global.System.Web.HttpContext = Global.System.Web.HttpContext.Current

                If CurrentContext IsNot Nothing Then

                    Return CurrentContext.Request

                End If

                Return Nothing

            End Get

        End Property

        ''' <summary>

        ''' Returns Response object.

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _

         <Global.System.ComponentModel.Design.HelpKeyword("My.Response")> _

         Friend ReadOnly Property Response() As Global.System.Web.HttpResponse

            <Global.System.Diagnostics.DebuggerHidden()> _

            Get

                Dim CurrentContext As Global.System.Web.HttpContext = Global.System.Web.HttpContext.Current

                If CurrentContext IsNot Nothing Then

                    Return CurrentContext.Response

                End If

                Return Nothing

            End Get

        End Property

        ''' <summary>

        ''' Returns the Asp log object.

        ''' </summary>

        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _

        Friend ReadOnly Property Log() As Global.Microsoft.VisualBasic.Logging.AspLog

            Get

                Return s_Log.GetInstance()

            End Get

        End Property

     End Module

End Namespace



#End If