关于网友提出的“ios7如何关闭后台 我如何在每个网页的后台代码里共享一段代码呀,谢了
”问题疑问，本网通过在网上对“ios7如何关闭后台 我如何在每个网页的后台代码里共享一段代码呀,谢了
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题：ios7如何关闭后台 我如何在每个网页的后台代码里共享一段代码呀,谢了
描述:

要共享的代码是

        If Request("se")="sss" Then

                SqlDataSource1.SelectCommand = "SELECT * FROM da_wsda " & strArray(1) & ""

        End If

---

解决方案1:

单独写入类 需要时引用

解决方案2:

写成类可以不？

解决方案3:

把代码放在BasePage这个新建的类中，所有页面继续它就行了

解决方案4:

在外部单独写个文件，把公用的代码放进去，每次用的时候引用该文件就好了

解决方案5:

是啊,用继承即可.

解决方案6:

使用类的静态方法不就行了，哪用那么麻烦

解决方案7:

Dim request As HttpContext = application.Request==>
Dim request As HttpRequest = application.Request

解决方案8:

实现接口IHttpModule即可

Imports Microsoft.VisualBasic

Public Class HelloWorldModule

    Implements IHttpModule

    Public ReadOnly Property ModuleName() As [String]

        Get

            Return "HelloWorldModule"

        End Get

    End Property

    ' In the Init function, register for HttpApplication 

    ' events by adding your handlers.

    Public Sub Init(ByVal application As HttpApplication) _

            Implements IHttpModule.Init

        AddHandler application.BeginRequest, _

            AddressOf Me.Application_BeginRequest

        AddHandler application.EndRequest, _

            AddressOf Me.Application_EndRequest

    End Sub

    Private Sub Application_BeginRequest(ByVal source As Object, _

            ByVal e As EventArgs)

    ' Create HttpApplication and HttpContext objects to access

    ' request and response properties.

        Dim application As HttpApplication = CType(source, _

            HttpApplication)

        Dim request As HttpContext = application.Request

          If request ("se")="sss" Then

                SqlDataSource1.SelectCommand = "SELECT * FROM da_wsda " & strArray(1) & ""

        End If

            End Sub

    Private Sub Application_EndRequest(ByVal source As Object, _

            ByVal e As EventArgs)

        Dim application As HttpApplication = CType(source, _

            HttpApplication)

        Dim context As HttpContext = application.Context

        context.Response.Write _

            ("
HelloWorldModule: " & _

                "End of Request
")

    End Sub

    Public Sub Dispose() Implements IHttpModule.Dispose

    End Sub

End Class

最后在注册下