01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.SqlClient"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06.Dim objConn As SqlConnection
07.
08.Dim objCmd As SqlCommand
09.Sub Page_Load(sender As Object, e As EventArgs)
10.
11.Dim strConnString As String
12.
13.strConnString = "Server=localhost;Uid=;PASSWORD=;database=Genius;Max Pool Size=400;Connect Timeout=600;"
14.
15.objConn = New SqlConnection(strConnString)
16.
17.objConn.Open()
18.
19.
20.
21.If objConn.State = ConnectionState.Open Then
22.
23.Me.lblText.Text = "SQL Server Connected"
24.
25.Else
26.
27.Me.lblText.Text = "SQL Server Connect Failed"
28.
29.End IF
30.
31.End Sub
32.
33.Sub Page_UnLoad()
34.
35.objConn.Close()
36.
37.objConn = Nothing
38.
39.End Sub
40.
41.</script>
42.<html>
43.<head>
44.<title>ThaiCreate.Com ASP.NET - SQL Server</title>
45.</head>
46.<body>
47.
48.<form id="form1" runat="server">
49.
50.<asp:Label id="lblText" runat="server"></asp:Label>
51.
52.</form>
53.</body>
54.</html>
