我如何在每个网页的后台代码里共享一段代码呀,谢了

Question

要共享的代码是        If Request("se")="sss" Then
                SqlDataSource1.SelectCommand = "SELECT * FROM da_wsda " & strArray(1) & ""
        End If

Answer 1

define a BasePage, and then inheritate from it.

Answer 2

实现接口IHttpModule即可Imports Microsoft.VisualBasicPublic 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 _
            ("<hr><h1><font color=red>HelloWorldModule: " & _
                "End of Request</font></h1>")
    End Sub    Public Sub Dispose() Implements IHttpModule.Dispose
    End Sub
End Class最后在注册下<system.web>
        <httpModules>           <add name="HelloWorldModule" type="HelloWorldModule"/>        </httpModules>
    </system.web>

Answer 3

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

Answer 4

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