ASP 調用 Oracle 存儲過程是一種常見的開發需求。通過使用 ASP 與 Oracle 之間的連接串，可以簡單快速地實現與 Oracle 數據庫的交互。在本文中，我們將介紹如何使用 ASP 調用 Oracle 存儲過程，并提供一些實例來幫助讀者更好地理解。

首先，我們需要在 ASP 中建立與 Oracle 數據庫的連接。通常，我們可以使用以下代碼來實現：

<% 
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=hostname)(PORT=port))(CONNECT_DATA=(SERVICE_NAME=sid)));User ID=username;Password=password;"
con.Open
%>

在上面的代碼中，我們使用 ADODB.Connection 對象來創建連接，并設置連接字符串（Connection String）的值。在連接字符串中，需要指定數據庫的相關信息，例如主機名、端口號、服務名等。同時，也需要提供有效的用戶名和密碼來進行身份驗證。

隨后，我們可以定義一個存儲過程的調用方法。在 ASP 中，可以使用 ADODB.Command 對象來實現：

<% 
Dim cmd
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "procedure_name"
%>

上述代碼中，我們創建了一個 ADODB.Command 對象，然后設置其 ActiveConnection 屬性為前面建立的連接對象。通過設置 CommandType 屬性為 adCmdStoredProc，我們指定該對象將用于執行存儲過程。最后，我們使用 CommandText 屬性來設置存儲過程的名稱。

接下來，我們可以添加一些參數到存儲過程調用中。例如：

<% 
cmd.Parameters.Append(cmd.CreateParameter("param_name", adVarChar, adParamInput, 20, param_value))
%>

在上面的代碼中，我們使用 cmd.CreateParameter 方法創建一個參數，并添加到 cmd.Parameters 集合中。參數的名稱、類型、方向、大小和值都需要在創建時指定。

最后，我們可以執行存儲過程，并處理返回的結果：

<%
Dim rs
Set rs = cmd.Execute
' 處理結果集...
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>

在上述代碼中，我們使用 cmd.Execute 方法來執行存儲過程，并將返回的結果賦值給一個 ADODB.Recordset 對象。然后，我們可以通過該對象來處理結果集。最后，我們需要關閉 Recordset 和 Connection 對象，并釋放相關資源。

假設有一個名為 "get_employee_name" 的存儲過程，接受一個員工編號參數，并返回該員工的姓名。我們可以使用上述的方法來調用該存儲過程：

<% 
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=hostname)(PORT=port))(CONNECT_DATA=(SERVICE_NAME=sid)));User ID=username;Password=password;"
con.Open
Dim cmd
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "get_employee_name"
cmd.Parameters.Append(cmd.CreateParameter("emp_id", adInteger, adParamInput, , 123))
Dim rs
Set rs = cmd.Execute
If Not rs.EOF Then
Response.Write "員工姓名：" & rs.Fields("emp_name").Value
End If
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>

通過上述的示例，我們可以看到如何使用 ASP 調用 Oracle 存儲過程，并處理返回的結果。當然，具體的實現方式可能會根據需求的不同而有所變化。讀者可以根據自己的實際情況進行相應的調整和擴展。

在本文中，我們介紹了如何使用 ASP 調用 Oracle 存儲過程，并提供了一個簡單的示例來說明。通過理解并掌握相關的代碼和技巧，開發人員可以更加便捷地實現與 Oracle 數據庫的交互。