ASP（Active Server Pages）是微軟公司為開(kāi)發(fā)互聯(lián)網(wǎng)應(yīng)用程序所提出的工具之一，ASP與數(shù)據(jù)庫(kù)的聯(lián)接一般通過(guò)ADO（Activex Data Object）來(lái)實(shí)現(xiàn)的，就象《計(jì)算機(jī)世界》2000年3月20日的《用ASP對(duì)SQL Server數(shù)據(jù)庫(kù)操作》文章介紹的一樣，ADO可以完全支持Microsoft SQL Server ,但對(duì)應(yīng)用更加廣泛、機(jī)制更加復(fù)雜的ORACLE 數(shù)據(jù)庫(kù)服務(wù)就有一些困難，如果想作一些簡(jiǎn)單的查詢功能，ADO是足夠的，如要想更好地發(fā)揮ORACLE數(shù)據(jù)庫(kù)特有的功能，如STORED PROCEDURE，STORED FUNCTION等就要采取利用ASP存取ORACLE 數(shù)據(jù)庫(kù)服務(wù)的另一個(gè)強(qiáng)有力工具---Oracle Object for OLE中的ORACLE對(duì)象服務(wù)器（The Oracle Object Server）。本文從一個(gè)實(shí)例說(shuō)明如何在ASP中使用ORACLE對(duì)象服務(wù)器提供的控件來(lái)實(shí)現(xiàn)對(duì)ORACLE數(shù)據(jù)庫(kù)的存取，并就如何維護(hù)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的完整性約束問(wèn)題進(jìn)行一些討論。 
---- Oracle Object for OLE是ORACLE公司為了客戶端存取數(shù)據(jù)庫(kù)所發(fā)展的一個(gè)很需要的產(chǎn)品，它以Windows 95/98/NT 為基礎(chǔ)供所有的與OLE 兼容的應(yīng)用程序與程序語(yǔ)言存取ORACLE數(shù)據(jù)庫(kù)，如ASP、Visual Basic excess97等 ，Oracle Object for OLE包含了ORACLE對(duì)象服務(wù)器（The Oracle Object Server）、ORCLE 數(shù)據(jù)控制項(xiàng)（The Oracle Data Control）與ORACLE 對(duì)象類程序庫(kù)（The Oracle Objects for OLE C++ Class Library）等三項(xiàng)產(chǎn)品。 
---- 與ADO相比，ORACLE對(duì)象服務(wù)器是專用于ORACLE數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)的產(chǎn)品，它有以下優(yōu)點(diǎn)： 
---- （1） 與數(shù)據(jù)庫(kù)服務(wù)器的連接的運(yùn)行效率好。因?yàn)锳DO是通過(guò)ODBC來(lái)連接數(shù)據(jù)庫(kù)服務(wù)器的，而ORACLE對(duì)象服務(wù)器是通過(guò)ORACLE的SQL*NET來(lái)連接數(shù)據(jù)庫(kù)服務(wù)器的 
---- （2） 能更好地發(fā)揮ORACLE數(shù)據(jù)庫(kù)的特有功能。如STORED PROCEDURE，STORED FUNCTION、PACKAGE或Multiple Cursor。 
---- 本例是一個(gè)通訊錄的查詢、錄入的小程序，用戶可以通過(guò)瀏覽器對(duì)通訊錄表進(jìn)行查詢，也可把自己的信息輸入，供別人查詢。 
---- 通訊錄表的結(jié)構(gòu)如下： 
Name                            Null?    Type
------------------------------- -------- ----
NAME                            NOT NULL CHAR(8)
ADDRESS                                  CHAR(20)
PHONE                                    CHAR(20)
EMAIL                                    VARCHAR2(30)
---- 首先：進(jìn)行環(huán)境配置： 
---- 在WEB服務(wù)器上安裝以下軟件并進(jìn)行配置： 
---- (1)基本的WEB 服務(wù)器（WEB SERVER）與ASP等軟件 
---- (2)Oracle Object for OLE2.x 
---- (3)SQL*Net Client 或 Oracle Net8 Client 8，安裝之后，用Sql*Net Easy Configuration建立數(shù)據(jù)庫(kù)別名（Database Alias），為ASP連接到數(shù)據(jù)庫(kù)所用的別名。 
---- 二．功能實(shí)現(xiàn) 
---- （1）查詢：用ASP 取數(shù)據(jù)庫(kù)通訊錄表（TSB1）的數(shù)據(jù)，將數(shù)據(jù)顯示在屏幕上。查詢的關(guān)鍵在于確定與數(shù)據(jù)庫(kù)的連接成功與否，ORACLE對(duì)象服務(wù)器本身有錯(cuò)誤控制機(jī)制可以報(bào)出數(shù)據(jù)庫(kù)連接方面的錯(cuò)誤，具體的程序如下： 
< HTML >
    < tile >  查詢程序 < /title >
< BODY >
< %
on error resume next
'連接數(shù)據(jù)庫(kù)
set orasession=createobject
("OracleInprocServer.XOraSession")
set oradatabase=orasession.
dbopendatabase("axp03","scott/tiger",0)
'出錯(cuò)處理
if err.number >0 then
response.write"< h4 >asp 錯(cuò)誤控制 < /h4 >"
response.write"asp 錯(cuò)誤來(lái)源:"&err.source &"< br >"
response.write"asp 錯(cuò)誤代碼:"&err.number&"< br >"
response.write"asp 錯(cuò)誤說(shuō)明:"&err.description&"< br >"
err.clear
response.write"< h4 >ORACLE OLE 錯(cuò)誤控制< /h4 >"
response.write"ORACLE 錯(cuò)誤代碼:
"&OraSession.LastServerErr&"< br >"
response.write"ORACLE 錯(cuò)誤說(shuō)明:
"&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 >"
'關(guān)閉數(shù)據(jù)庫(kù)
oradatabase.close
set orasession=nothing
end if
% >
< /body >
< /html >
---- 下面是程序的查詢結(jié)果圖面： 
通訊錄 
NAME ADDRESS PHONE EMAIL  
張玲 馬鞍山市湖北路5號(hào) 0555-2887765 zhangl@mial.magang.com.cn 
林向 馬鞍山市湖南路9號(hào)  0555-2223856 lingx@mail.magang.com.cn 
鄧國(guó)虹 采礦路子4幢504號(hào) 0555-2474748 denggh@263.net 
李城 青島海洋大學(xué)7幢507 0464-32456678 licheng@263.net 
王國(guó)在 采礦小區(qū)7幢807號(hào) 0555-3445454 wang@mail.amgang.com.cn 
丁剛 紅旗南路17幢405號(hào) 0555-2883721 dingg@mail.magang.com.cn 
全在保 江西路子7幢607號(hào) 0554-4566777 quzab@mial.ccac.com 
---- （2）插入自己的信息：用ASP將用戶在瀏覽器上提供的數(shù)據(jù)插入到數(shù)據(jù)庫(kù)通訊錄表（TSB1）中，由ORACLE數(shù)據(jù)庫(kù)有一套完整性約束機(jī)制，所以插入過(guò)程不光是簡(jiǎn)單地把數(shù)據(jù)插入到表中，還要做完整性約束的檢查，不合要求的數(shù)據(jù)拒絕插入，如果在程序中不考慮處理，運(yùn)行時(shí)，就會(huì)因數(shù)據(jù)庫(kù)服務(wù)器報(bào)錯(cuò)而中斷程序。而ASP中的ERR對(duì)象可以報(bào)出錯(cuò)誤來(lái)源、錯(cuò)誤代碼、錯(cuò)誤說(shuō)明等，并能把程序引向錯(cuò)誤處理。 
---- 以下是程序，一個(gè)是insert.htm, 是一個(gè)輸入界面，供用戶輸入自己的信息，一個(gè)是insert.asp,負(fù)責(zé)將用戶輸入信息插入數(shù)據(jù)庫(kù)，并進(jìn)行錯(cuò)誤檢查。 
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 >請(qǐng)留下你的信息< /title >
< /head >
< body >
< p align="center" >請(qǐng)輸入你的信息< /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 >
---- 下面是用戶輸入界面： 
請(qǐng)輸入你的信息
姓　　　　名：  
地　　　　址：  
電　　　　話：  
E-MAIL：  
     Insert.asp:
< HTML >
< BODY >
< %
'連接數(shù)據(jù)庫(kù)
set orasession=createobject
("OracleInprocServer.XOraSession")
set oradatabase=orasession.
dbopendatabase("axp03","scott/tiger",0)
'把用戶插入信息變成SQL語(yǔ)句
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)&")"
'運(yùn)行SQL插入語(yǔ)句
oradatabase.dbEXECUTESQL(sql)
'檢查是否有違反完整性約束錯(cuò)誤
IF ERR.NUMBER >0 THEN
response.write"< h4 >asp 錯(cuò)誤控制 < /h4 >"
response.write"asp 錯(cuò)誤來(lái)源:"&err.source &"< br >"
response.write"asp 錯(cuò)誤代碼:"&err.number&"< br >"
response.write"asp 錯(cuò)誤說(shuō)明:"&err.description&"< br >"
ELSE 
'插入完成，返回
response.write"插入完成，< a href=insert.htm  > 返回。。。< /a >"
end if
% >
< /body >
< /html >
---- 以上是本人在用ASP工具將原有的ORACLE數(shù)據(jù)庫(kù)信息搬上互聯(lián)網(wǎng)應(yīng)用的一些體會(huì)，例子很簡(jiǎn)單，目的在于說(shuō)明原理，本人在ASP程序中還使用了 STORED PROCEDURE，STORED FUNCTION、PACKAGE 等ORACLE特有的功能以加快速度，提高效率。希望能對(duì)大家有所啟發(fā)，請(qǐng)來(lái)信互相交流。

最新評(píng)論