用ASP实现对ORACLE数据库的操作

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
&apos
连接数据库
set 
orasession=createobject
("OracleInprocServer.XOraSession")
set 
oradatabase=orasession.
dbopendatabase("axp03","scott/tiger",0)
&apos
出错处理
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 

&apos
查询
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 
>"
&apos
关闭数据库
oradatabase.close
set 
orasession=nothing
end 
if
% 
>
< 
/body 
>
< 
/ht