当前位置：网学 > 编程文档 > ASP > 正文

如何用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 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.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 >

(责任编辑：admin)

上一篇资讯：如何用ASP显示ACCESS数据库的的GIF图象

下一篇资讯：解析ASP中脚本执行顺序