Oracle认证:用ASP实现对Oracle数据库的操作Oracle认证考试

文章作者 100test 发表时间 2009:04:30 03:57:56
来源 100Test.Com百考试题网

　　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="0select * 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