如何在ASP中訪問Oracle.doc

如何在ASP中訪問Oracle？我一直使用Oracle數(shù)據(jù)庫(kù)，現(xiàn)在需要在Web上對(duì)Oracle8數(shù)據(jù)庫(kù)進(jìn)行訪問，可我發(fā)現(xiàn)，在ASP中，ADO對(duì)Oracle的訪問并不順利，不但速度慢，而且還不能訪問Oracle8的數(shù)字型字段（?。┱?qǐng)問有什么辦法可以實(shí)現(xiàn)對(duì)它們的順利訪問？我們可以利用Oracle Object for OLE所包含的Oracle Objects Server來(lái)實(shí)現(xiàn)在ASP中對(duì)Oracle 8的訪問。Oracle Objects Server共提供Oraclient、Orasession、Oraconnection、OraDatabase、OraDynaset、OraSQLstmt、OraField、Oraparameter、Oraparameter Array等九個(gè)對(duì)象供開發(fā)者使用。Oracle Object for OLE是Oracle公司為客戶端訪問數(shù)據(jù)庫(kù)開發(fā)的一個(gè)軟件，運(yùn)行在Windows95/98/NT平臺(tái)。在用Oracle Objects Server訪問Oracle8數(shù)據(jù)庫(kù)之前，我們必須在Web服務(wù)器上安裝Oracle Object for OLE，然后利用SQL+Net Client2.X或Oracle Net8 Client8.X進(jìn)行數(shù)據(jù)庫(kù)的連接測(cè)試并設(shè)置數(shù)據(jù)庫(kù)別名。 下面舉一個(gè)在ASP中利用Oracle Object for OLE2.3查詢Oracle 8.0.5數(shù)據(jù)庫(kù)，并進(jìn)行分頁(yè)顯示的程序范例。需要說(shuō)明，由于Orasession對(duì)象的屬性中沒有控制分頁(yè)的屬性，本例同時(shí)使用了一個(gè)分頁(yè)控制的程序，chunfeng.asp文件先取得數(shù)據(jù)庫(kù)表的內(nèi)容，然后計(jì)算分頁(yè)的頁(yè)數(shù)，如果頁(yè)數(shù)超過(guò)一頁(yè)，則交由chunfeng01.asp處理。具體代碼如下：chunfeng.asp% set orasession=createobject(oracleinprocserver.xorasession) set oradatabase=orasession.dbopendatabase(orant,scotter/tiger,0) 連接數(shù)據(jù)庫(kù) sql=select * from cq_hjwj set session(oradynaset)=oradatabase.dbcreatedynaset(sql,0) 設(shè) 置查詢條件 pagesize=15 設(shè)置頁(yè)長(zhǎng) if session(oradynaset).recordcount=0 then response.write 對(duì)不起,沒有找到符合條件的數(shù)據(jù)! else response.write精彩春風(fēng)之查詢結(jié)果 pages=int(session(oradynaset).recordcount/pagesize) if pages*pagesize=session(oradynaset).recordcount then pages=int(session(oradynaset).recordcount/pagesize) 計(jì)算頁(yè)數(shù) else pages=int(session(oradynaset).recordcount/pagesize)+1 end if if request(page)= then page=1 else page=cstr(request(page) end if response.write共&pages&頁(yè),目前第&page&頁(yè) response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write session(oradynaset).fields(i).name response.write next response.write startrow=(page-1)*pagesize+1 endrow=page*pagesize oradynaset.moveto startrow for j=startrow to endrow response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write session(oradynaset).fields(i).value response.write next response.write session(oradynaset).dbmovenext if session(oradynaset).eof then exit for next response.write end if if page1 then response.write 第一頁(yè) response.write 上一頁(yè) end if if cint(page)pages then response.write 下一頁(yè) response.write 最后頁(yè) end if set orasession=nothing % chunfeng01.asp % pagesize=15 設(shè)置頁(yè)長(zhǎng) if session(oradynaset).recordcount=0 then response.write 對(duì)不起,沒有找到符合條件的數(shù)據(jù)! else response.write精彩春風(fēng)之查詢結(jié)果 pages=int(session(oradynaset).recordcount/pagesize) if pages*pagesize=session(oradynaset).recordcount then pages=int(session(oradynaset).recordcount/pagesize) 計(jì)算頁(yè)數(shù) else pages=int(session(oradynaset).recordcount/pagesize)+1 end if if request(page)= then page=1 else page=cstr(request(page) end if response.write共&pages&頁(yè),目前第&page&頁(yè) response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write session(oradynaset).fields(i).name response.write next response.write startrow=(page-1)*pagesize+1 endrow=page*pagesize oradynaset.moveto startrow for j=startrow to endrow response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write session(oradynaset).fields(i).value response.write next response.write session(oradynaset).dbmovenext if session(oradynaset).eof then exit for next response.write end if if page1 then response.write 第一頁(yè) response.write 上一頁(yè) end if if cint(page)pages then response.write 下一頁(yè) response.write 最后頁(yè) end if set orasession=nothing % Oracle Objects Server提供的九個(gè)對(duì)象的功能與作用分述如下： 序號(hào)對(duì)象名稱作 用1Oraclient對(duì)象用來(lái)定義服務(wù)器端(Client或Workstation)的范圍，Oraclient會(huì)記錄此服務(wù)器端的所有Orasession對(duì)象。由系統(tǒng)根據(jù)需要自動(dòng)建立。2Orasession對(duì)象用來(lái)在程序中管理Oraconnection、OraDatabase、OraDynaset等對(duì)象，其建立方法為：Set Orasession=Create(“OracleInProcServer.Xorasession”)3Oraconnection對(duì)象表示對(duì)OraDatabase對(duì)象的連接，當(dāng)需要建立OraDatabase對(duì)象時(shí)，系統(tǒng)會(huì)自動(dòng)產(chǎn)生一個(gè)Oraconnection對(duì)象。反之，當(dāng)與數(shù)據(jù)庫(kù)斷開連接時(shí)，Oraconnection對(duì)象自動(dòng)釋放。4OraDatabase對(duì)象表示對(duì)數(shù)據(jù)庫(kù)服務(wù)器的虛擬登錄，其登錄方法為：Set Oradadabase=Orasession.Dbopendatabase_ (“數(shù)據(jù)庫(kù)別名”, “用戶名稱/密碼”,0)5OraDynaset對(duì)象將數(shù)據(jù)庫(kù)服務(wù)器符合SELECT命令的數(shù)據(jù)加以存儲(chǔ)在客戶端的緩沖區(qū)，讓用戶瀏覽或更新，最后將結(jié)果寫回到服務(wù)器，其方法：SetOraDynaset=OraDatabase.DbcreateDynaset(“SQL語(yǔ)句”,0)6OraSQLstmt對(duì)象通常用來(lái)運(yùn)行SQL命令，或調(diào)用存儲(chǔ)過(guò)程，其用法為：Set Orasqlstmt=Oradatabase.createSQl(“SQL語(yǔ)句”,0)7Or