<%@ Register TagPrefix="Title" TagName="TitleShow" Src="/aspnetdata/Title.ascx" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %>
<%@ Import Namespace="System.Configuration" %>
<html>
<head>
	<script language="VB" runat="server">
	Sub Page_load(sender As Object, e As EventArgs) 
	Dim ConfigInfo As Hashtable = Context.GetConfig("appsettings")
	Dim nowDSN As String = ConfigurationSettings.AppSettings("dsn")'CStr(ConfigInfo("dsn"))
	Try 
		dim NowConn as SQLConnection = New SQLConnection(nowDSN)
		dim re as SQLDataAdapter = New SQLDataAdapter("select * from Customers", NowConn)
		dim ds as New Dataset
		re.Fill(ds, "Customers")
		Show.Text="以" & nowDSN & "连接成功"
	Catch Uppr As Exception
		Show.Text="以" & nowDSN & "连接失败" & "系统错误信息：" & Uppr.Tostring
	End Try
	end sub
	</script>
</head>
<body background="/aspnetdata/images/winback.gif">
<Title:TitleShow id="BookT" Runat="server" />
<ASP:LABEL ID="show" runat="server" />
</body>
</form>