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

80酷酷网    80kuku.com

  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 &

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: