用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

'连接数据库

set orasession=createobject
(OracleInprocServer.XOraSession)
set oradatabase=orasession.
dbopendatabase(axp03,scott/tiger,0)

'出错处理

if err.number >0 then

response.write< h4 >asp 错误控制 < /h4 >

response.writeasp 错误来源:&err.source &< br >

response.writeasp 错误代码:&err.number&< br >
response.writeasp 错误说明:&err.description&< br >
err.clear
response.write< h4 >ORACLE OLE 错误控制< /h4 >
response.writeORACLE 错误代码:
&OraSession.LastServerErr&< br >

response.writeORACLE 错误说明:
&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
% >
< /body >
< /html >

---- 下面是程序的查询结果图面：
通讯录

NAME ADDRESS PHONE EMAIL　
张玲马鞍山市湖北路5号 0555-2887765 zhangl@mial.magang.com.cn
林向马鞍山市湖南路9号　0555-2223856 lingx@mail.magang.com.cn
邓国虹采矿路子4幢504号 0555-2474748 denggh@263.net
李城青岛海洋大学7幢507 0464-32456678 licheng@263.net
王国在采矿小区7幢807号 0555-3445454 wang@mail.amgang.com.cn
丁刚红旗南路17幢405号 0555-2883721 dingg@mail.magang.com.cn
全在保江西路子7幢607号 0554-4566777 quzab@mial.ccac.com

---- （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 >
< body >
< 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 >
< /body >
< /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.writeasp 错误来源:&err.source &< br >
response.writeasp 错误代码:&err.number&< br >
response.writeasp 错误说明:&err.description&< br >
ELSE

'插入完成，返回

response.write插入完成，< a href=insert.htm　> 返回。。。< /a >

end if

% >

< /body >

< /html >

---- 以上是本人在用ASP工具将原有的ORACLE数据库信息搬上互联网应用的一些体会，例子很简单，目的在于说明原理，本人在ASP程序中还使用了 STORED PROCEDURE，STORED FUNCTION、PACKAGE 等ORACLE特有的功能以加快速度，提高效率。希望能对大家有所启发，请来信互相交流。