ADO是一種用于連接數據庫的技術，可以使用ADO技術來連接各種不同的數據庫。其中之一就是Oracle數據庫，在本文中將介紹如何使用ADO來連接和操作Oracle數據庫。

連接Oracle數據庫

使用ADO連接Oracle數據庫需要先創建一個Connection對象，通過設置Connection對象的屬性來連接數據庫。下面是一個連接Oracle數據庫的示例代碼：

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=OraOLEDB.Oracle; Data Source=ORCL; User Id=username; Password=password;"
conn.Open

其中，Provider指定了連接Oracle數據庫的提供程序，Data Source指定了要連接的數據庫，User Id和Password指定了連接數據庫所需的用戶名和密碼。

執行SQL語句

使用ADO連接Oracle數據庫后，可以使用該連接對象來執行SQL語句。下面是一個使用ADO執行SQL語句的示例：

Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=OraOLEDB.Oracle; Data Source=ORCL; User Id=username; Password=password;"
conn.Open
Dim sql
sql = "SELECT * FROM user_info WHERE user_id = 123"
Set rs = conn.Execute(sql)
While Not rs.EOF 
Response.Write rs("user_name")
rs.MoveNext 
Wend
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

上述代碼中，先使用Connection對象來連接Oracle數據庫，然后執行查詢語句并返回結果集。接著使用rs.MoveNext語句來遍歷結果集并輸出結果。最后記得關閉連接和結果集對象。

使用參數化查詢

在上面的示例中，我們使用字符串拼接的方式來構造查詢語句。這種方式容易受到SQL注入攻擊。為了防止SQL注入攻擊，建議使用參數化查詢。下面是一個使用參數化查詢的示例：

Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=OraOLEDB.Oracle; Data Source=ORCL; User Id=username; Password=password;"
conn.Open
Dim cmd, sql
sql = "SELECT * FROM user_info WHERE user_id = ?"
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = sql
cmd.CommandType = adCmdText
Dim param
Set param = cmd.CreateParameter("user_id", adInteger, adParamInput)
param.Value = 123
cmd.Parameters.Append param
Set rs = cmd.Execute
While Not rs.EOF 
Response.Write rs("user_name")
rs.MoveNext 
Wend
rs.Close
Set rs = Nothing
cmd.ActiveConnection.Close
Set cmd.ActiveConnection = Nothing
Set cmd = Nothing
conn.Close
Set conn = Nothing

上述代碼中，使用ADODB.Command對象來代替直接在SQL語句中使用參數，通過CreateParameter方法來創建參數，然后添加到ADODB.Command對象中。然后使用該對象執行SQL語句。

事務處理

使用ADO操作Oracle數據庫時，還需要考慮事務處理。下面是一個使用ADO進行事務處理的示例：

Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=OraOLEDB.Oracle; Data Source=ORCL; User Id=username; Password=password;"
conn.Open
conn.BeginTrans '開啟事務
Dim sql
sql = "UPDATE user_info SET user_name = 'NewName' WHERE user_id = 123"
conn.Execute sql
sql = "INSERT INTO user_info (user_id, user_name) VALUES (456, 'NewUser')"
conn.Execute sql
'IIS服務器崩潰，當我們重新啟動后，發現第一次的修改操作已經提交，而第二次的插入操作沒有提交，數據庫中并不存在新用戶‘NewUser’。
'Do something...
If somethingWrong Then
conn.RollbackTrans '事務回滾
Else
conn.CommitTrans '事務提交
End If
conn.Close
Set conn = Nothing

在上面的示例中，首先通過conn.BeginTrans方法開啟一個事務，然后執行兩個操作：修改和插入。如果出現了問題，則使用conn.RollbackTrans方法回滾事務，否則使用conn.CommitTrans方法提交事務。注意，在實際開發中，可能需要更加復雜的事務處理操作。

總結

使用ADO操作Oracle數據庫，需要先建立連接，然后可以通過Connection對象執行SQL語句，使用ADODB.Command對象進行參數化查詢，以及使用事務處理來確保數據的完整性。