01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.OracleClient"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Dim objConn As OracleConnection
07. Dim objCmd As OracleCommand
08.
09. Sub Page_Load(sender As Object, e As EventArgs)
10. Dim strConnString As String
11. strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;"
12. objConn = New OracleConnection(strConnString)
13. objConn.Open()
14.
15. If objConn.State = ConnectionState.Open Then
16. Me.lblText.Text = "Oracle Connected"
17. Else
18. Me.lblText.Text = "Oracle Connect Failed"
19. End IF
20. End Sub
21.
22. Sub Page_UnLoad()
23. objConn.Close()
24. objConn = Nothing
25. End Sub
26.
27.</script>
28.<html>
29.<head>
30.<title>ThaiCreate.Com ASP.NET - Oracle</title>
31.</head>
32.<body>
33. <form id="form1" runat="server">
34. <asp:Label id="lblText" runat="server"></asp:Label>
35. </form>
36.</body>
37.</html>
