加入收藏 | 设为首页 | 会员中心 | 我要投稿 聊城站长网 (https://www.0635zz.com/)- 智能语音交互、行业智能、AI应用、云计算、5G!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

ASP成功实现对ORACLE数据库的操作

发布时间:2023-08-11 14:55:12 所属栏目:Asp教程 来源:
导读:我们在开发项目的时候,可能会使用多种数据进行操作,本文小编为大家介绍的ASP实现对ORACLE数据库的操作,希望对你了解这方面知识有所帮助。

ASP(Active Server Pages)是微软公司为开发互联网应用程序所提出的
我们在开发项目的时候,可能会使用多种数据进行操作,本文小编为大家介绍的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 >
 
 

(编辑:聊城站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章