connect-strings.ascx

来自「This is a book about vb.you could learn 」· ASCX 代码 · 共 32 行

<%@Control Language="VB"%>

<script language="VB" runat="server">

	'*****************************************************
	'  Edit the connection strings to suit your database
	'*****************************************************

	Public ReadOnly Property OLEDBConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksOleDb")
	  End Get
	End Property

	Public ReadOnly Property SQLConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksOleSql")
	  End Get
	End Property

	Public ReadOnly Property JetConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksJet") _
			   & Request.PhysicalApplicationPath _
			   & "\databases\books.mdb"
	  End Get
	End Property

</script>