用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.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
% >
< /body >
< /html >
---- 下面是程序的查询结果图面： 
通讯录 
name address phone email  
张玲 马鞍山市湖北路5号 0555-2887765 [e-mail] 
林向 马鞍山市湖南路9号  0555-2223856 [e-mail] 
邓国虹 采矿路子4幢504号 0555-2474748 [e-mail] 
李城 青岛海洋大学7幢507 0464-32456678 [e-mail] 
王国在 采矿小区7幢807号 0555-3445454 [e-mail] 
丁刚 红旗南路17幢405号 0555-2883721 [e-mail] 
全在保 江西路子7幢607号 0554-4566777 [e-mail] 
---- （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.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
% >
< /body >
< /html >
---- 以上是本人在用asp工具将原有的oracle数据库信息搬上互联网应用的一些体会，例子很简单，目的在于说明原理，本人在asp程序中还使用了 stored procedure，stored function、package 等oracle特有的功能以加快速度，提高效率。希望能对大家有所启发，请来信互相交流。