测试

Partial Class Master1
    Inherits System.Web.UI.MasterPage

    Private strConn As String = ""

    Public Sub getData(ByVal sql As String, ByRef ds As DataSet)
        Dim conn As New SqlConnection(strConn)
        Dim da As New SqlDataAdapter(sql, conn)
        da.Fill(ds)
    End Sub
    Public Sub getData(ByVal sql As String, ByRef ds As DataTable)
        Dim conn As New SqlConnection(strConn)
        Dim da As New SqlDataAdapter(sql, conn)
        da.Fill(ds)
    End Sub


    '在初始化函数中，给变量赋值
    Public Sub New()
        Dim rootWebConfig As System.Configuration.Configuration
        rootWebConfig = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration("/MyWebSiteRoot")
        Dim connString As System.Configuration.ConnectionStringSettings
        If (0 < rootWebConfig.ConnectionStrings.ConnectionStrings.Count) Then
            connString = rootWebConfig.ConnectionStrings.ConnectionStrings("WaterSupplySystemConnectionString")
            If Not (Nothing = connString.ConnectionString) Then
                strConn = connString.ConnectionString
            Else
                Exit Sub
            End If
        End If
    End Sub
End Class