ASP（Active Server Pages）是微軟公司為開發網路應用程式所提出的工具之一，ASP與資料庫的連結一般透過ADO（Activex Data Object）來實現的，就像《電腦世界》2000年3月20日的《用ASP對SQL Server資料庫操作》文章介紹的一樣，ADO可以完全支援Microsoft SQL Server ,但對應用更廣泛、機制更複雜的ORACLE 資料庫服務就有一些困難，如果想作一些簡單的查詢功能， ADO是足夠的，如要想更好地發揮ORACLE資料庫特有的功能，如STORED PROCEDURE，STORED FUNCTION等就要採取利用ASP訪問ORACLE 資料庫服務的另一個強有力工具---Oracle Object for OLE中的ORACLE物件伺服器（The Oracle Object Server）。本文從一個實例說明如何在ASP中使用ORACLE物件伺服器提供的控制項來實現對ORACLE資料庫的訪問，並就如何維護網路資料庫的完整性限制問題進行一些討論。
---- Oracle Object for OLE是ORACLE公司為了客戶端訪問資料庫所發展的一個很需要的產品，它以Windows 95/98/NT 為基礎供所有的與OLE 相容的應用程式與程式語言存取ORACLE資料庫，如ASP、Visual Basic excess97等，Oracle Object for OLE包含了ORACLE物件伺服器（The Oracle Object Server）、ORCLE 資料控制項（The Oracle Data Control）與ORACLE 物件類別程式庫（The Oracle Objects for OLE C++ Class Library）等三項產品。
---- 與ADO相比，ORACLE物件伺服器是專用於ORACLE資料庫應用程式開發的產品，它有以下優點：
---- （1） 與資料庫伺服器的連接的運作效率好。因為ADO是透過ODBC來連接資料庫伺服器的，而ORACLE物件伺服器是透過ORACLE的SQL*NET來連接資料庫伺服器的
---- （2） 能更好地發揮ORACLE資料庫的獨特功能。如STORED PROCEDURE，STORED FUNCTION、PACKAGE或Multiple Cursor。
---- 本例是一個通訊錄的查詢、輸入的小程序，使用者可以透過瀏覽器對通訊錄表進行查詢，也可把自己的資料輸入，供別人查詢。
---- 通訊錄表的架構如下：
Name Null? Type
------------------------------- -------- ----
NAME NOT NULL CHAR(8)
ADDRESS CHAR(20)
PHONE CHAR(20)
EMAIL VARCHAR2(30)
---- 首先：進行環境配置：
---- 在WEB伺服器上安裝以下軟體並進行設定：
---- (1)基本的WEB 伺服器（WEB SERVER）與ASP等軟體
---- (2)Oracle Object for OLE2.x
---- (3)SQL*Net Client 或Oracle Net8 Client 8，安裝之後，用Sql*Net Easy Configuration建立資料庫別名（Database Alias），為ASP連接到資料庫所使用的別名。
---- 二．功能實現
----（1） 查詢：用ASP 取資料庫通訊錄表（TSB1）的數據，將數據顯示在螢幕上。查詢的關鍵在於確定與資料庫的連線成功與否，ORACLE物件伺服器本身有錯誤控制機制可以報出資料庫連線方面的錯誤，具體的程式如下：
< HTML >
< tile > 查詢程式< /title >
< BODY >
< %
on error resume next
'連接資料庫
set orasession=createobject
("OracleInprocServer.XOraSession")
set oradatabase=orasession.
dbopendatabase("axp03","scott/tiger",0)
'出錯處理
if err.number >0 then
response.write"< h4 >asp 錯誤控制< /h4 >"
response.write"asp 錯誤來源:"&err.source &"< br >"
response.write"asp 錯誤碼:"&err.number&"< br >"
response.write"asp 錯誤說明:"&err.description&"< br >"
err.clear
response.write"< h4 >ORACLE OLE 錯誤控制< /h4 >"
response.write"ORACLE 錯誤碼:
"&OraSession.LastServerErr&"< br >"
response.write"ORACLE 錯誤說明:
"&OraSession.LastServerErrText&"< br >"
else
'查詢
sql="select * from tsb1"
set oradynaset=oradatabase.dbcreatedynaset(sql,0)
response.write"< h3 >result< /h3 >"
response.write"< table border=5 >< tr >"
for i=0 to oradynaset.fields.count-1
response.write"< td >"
response.write oradynaset.fields(i).name & " "
response.write"< /td >"
next
response.write"< /tr >"
do until oradynaset.eof
response.write"< tr >"
for i=0 to oradynaset.fields.count-1
response.write"< td >"
response.write oradynaset.fields(i).value
response.write"< /td >"
next
response.write"< /tr >"
oradynaset.dbmovenext
loop
response.write"< /table >"
'關閉資料庫
oradatabase.close
set orasession=nothing
end if
% >
< /身體 >
< /html >
---- 下面是程式的查詢結果圖面：
通訊錄
NAME ADDRESS PHONE EMAIL
張玲馬鞍山市湖北路5號0555-2887765 [email protected]
林向馬鞍山市湖南路9號 0555-2223856 [email protected]
鄧國虹採礦路子4幢504號0555-2474748 [email protected]
李城青島海洋大學7幢507 0464-32456678 [email protected]
王國在採礦小區7幢807號0555-3445454 [email protected]
丁剛紅旗南路17幢405號0555-2883721 [email protected]
全在保江西路子7幢607號0554-4566777 [email protected]
----（2）插入自己的資訊：用ASP將使用者在瀏覽器上提供的資料插入資料庫通訊錄表（TSB1）中，由ORACLE資料庫有一套完整性限制機制，所以插入過程不光是簡單地把資料插入表中，還要做完整性約束的檢查，不合要求的資料拒絕插入，如果在程式中不考慮處理，執行時，就會因資料庫伺服器報錯而中斷程式。而ASP中的ERR物件可以報出錯誤來源、錯誤代碼、錯誤說明等，並能把程式引向錯誤處理。
---- 以下是程序，一個是insert.htm, 是一個輸入介面，供使用者輸入自己的信息，一個是insert.asp,負責將使用者輸入資訊插入資料庫，並進行錯誤檢查。
Insert.htm:
< html >
< head >
< meta http-equiv="Content-Language"
content="zh-cn" >
< meta http-equiv="Content-Type"
content="text/html; charset=gb2312" >
< meta name="GENERATOR" content=
"Microsoft FrontPage 4.0" >
< meta name="ProgId" content=
"FrontPage.Editor.Document" >
< title >請留下你的訊息< /title >
< /head >
< 身體 >
< p align="center" >請輸入你的資訊< /p >
< form method="post" action="insert.asp" >
姓名：
< input type="text" name="name" size="8" > < br >
地址：
< input type="text" name="address" size="20" > < br >
電話：
< input type="text" name="phone" size="20" > < br >
E-MAIL：< input type="text" name="email" size="20" > < br >
< input type="submit" value="確定" >
< input type="reset" value="取消" >< br >
< /form >
< /身體 >
< /html >
---- 下面是使用者輸入介面：
請輸入你的資料姓名：
地址：
電話：
E-MAIL：
Insert.asp:
< HTML >
< BODY >
< %
'連接資料庫
set orasession=createobject
("OracleInprocServer.XOraSession")
set oradatabase=orasession.
dbopendatabase("axp03","scott/tiger",0)
'把使用者插入資訊變成SQL語句
sql="insert into tsb1 values
(" &chr(39)&request("name")&chr(39) &","_
&chr(39)&request("ADDRESS")&chr(39)&","_
&chr(39) & request("phone")&chr(39) &","_
&chr(39)&request("EMAIL")&chr(39)&")"
'運行SQL插入語句
oradatabase.dbEXECUTESQL(sql)
'檢查是否有違反完整性約束錯誤
IF ERR.NUMBER >0 THEN
response.write"< h4 >asp 錯誤控制< /h4 >"
response.write"asp 錯誤來源:"&err.source &"< br >"
response.write"asp 錯誤碼:"&err.number&"< br >"
response.write"asp 錯誤說明:"&err.description&"< br >"
ELSE
'插入完成，返回
response.write"插入完成，< a href=insert.htm > 返回。。。< /a >"
end if
% >
< /身體 >
< /html >
---- 以上是本人在用ASP工具將原有的ORACLE資料庫資訊搬上網路應用的一些體會，例子很簡單，目的在於說明原理，本人在ASP程式中也使用了STORED PROCEDURE，STORED FUNCTION、PACKAGE等ORACLE特有的功能以加快速度，提高效率。希望能對大家有所啟發，請來信互相交流。