ASP通过Oracle Object for OLE对Oracle查询
Oracle Object for OLE是ORACLE公司为了客户端存取数据库所发展的一个很需要的产品，它以Windows 95/98/NT 为基础供所有的与OLE 兼容的应用程序与程序语言存取ORACLE数据库，如ASP、Visual Basic 等 ，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 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连接到数据库所用的别名。
查询：用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
- %>