如何在ASP中訪問Oracle

1、 如何在ASP中訪問Oracle？我一直使用Oracle數(shù)據(jù)庫，現(xiàn)在需要在Web上對Oracle8數(shù)據(jù)庫進(jìn)行訪問，可我發(fā)現(xiàn)，在ASP中，ADO對Oracle的訪問并不順利，不但速度慢，而且還不能訪問Oracle8的數(shù)字型字段（?。┱垎栍惺裁崔k法可以實(shí)現(xiàn)對它們的順利訪問？我們可以利用Oracle Object for OLE所包含的Oracle Objects Server來實(shí)現(xiàn)在ASP中對Oracle 8的訪問。Oracle Objects Server共提供Oraclient、Orasession、Oraconnection、OraDatabase、Or

2、aDynaset、OraSQLstmt、OraField、Oraparameter、Oraparameter Array等九個對象供開發(fā)者使用。Oracle Object for OLE是Oracle公司為客戶端訪問數(shù)據(jù)庫開發(fā)的一個軟件，運(yùn)行在Windows95/98/NT平臺。在用Oracle Objects Server訪問Oracle8數(shù)據(jù)庫之前，我們必須在Web服務(wù)器上安裝Oracle Object for OLE，然后利用SQL+Net Client2.X或Oracle Net8 Client8.X進(jìn)行數(shù)據(jù)庫的連接測試并設(shè)置數(shù)據(jù)庫別名。 下面舉一個在ASP中利用Oracle Obje

3、ct for OLE2.3查詢Oracle 8.0.5數(shù)據(jù)庫，并進(jìn)行分頁顯示的程序范例。需要說明，由于Orasession對象的屬性中沒有控制分頁的屬性，本例同時使用了一個分頁控制的程序，chunfeng.asp文件先取得數(shù)據(jù)庫表的內(nèi)容，然后計(jì)算分頁的頁數(shù)，如果頁數(shù)超過一頁，則交由chunfeng01.asp處理。具體代碼如下：chunfeng.asp% set orasession=createobject(oracleinprocserver.xorasession) set oradatabase=orasession.dbopendatabase(orant,scotter/tiger

4、,0) 連接數(shù)據(jù)庫 sql=select * from cq_hjwj set session(oradynaset)=oradatabase.dbcreatedynaset(sql,0) 設(shè) 置查詢條件 pagesize=15 設(shè)置頁長 if session(oradynaset).recordcount=0 then response.write 對不起,沒有找到符合條件的數(shù)據(jù)! else response.write精彩春風(fēng)之查詢結(jié)果 pages=int(session(oradynaset).recordcount/pagesize) if pages*pagesize=session

5、(oradynaset).recordcount then pages=int(session(oradynaset).recordcount/pagesize) 計(jì)算頁數(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&頁,目前第&page&頁 response.write for i=0 to session(oradynaset).

6、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 res

7、ponse.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 第一頁 response.write 上一頁 end if if cint(page)pages then response.write 下一頁 response.write 最

8、后頁 end if set orasession=nothing % chunfeng01.asp % pagesize=15 設(shè)置頁長 if session(oradynaset).recordcount=0 then response.write 對不起,沒有找到符合條件的數(shù)據(jù)! else response.write精彩春風(fēng)之查詢結(jié)果 pages=int(session(oradynaset).recordcount/pagesize) if pages*pagesize=session(oradynaset).recordcount then pages=int(session(ora

9、dynaset).recordcount/pagesize) 計(jì)算頁數(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&頁,目前第&page&頁 response.write for i=0 to session(oradynaset).fields.count - 1 response.write response.write sess

10、ion(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 res

11、ponse.write next response.write session(oradynaset).dbmovenext if session(oradynaset).eof then exit for next response.write end if if page1 then response.write 第一頁 response.write 上一頁 end if if cint(page)pages then response.write 下一頁 response.write 最后頁 end if set orasession=nothing % Oracle Objects S

12、erver提供的九個對象的功能與作用分述如下： 序號對象名稱作 用1Oraclient對象用來定義服務(wù)器端(Client或Workstation)的范圍，Oraclient會記錄此服務(wù)器端的所有Orasession對象。由系統(tǒng)根據(jù)需要自動建立。2Orasession對象用來在程序中管理Oraconnection、OraDatabase、OraDynaset等對象，其建立方法為：Set Orasession=Create(“OracleInProcServer.Xorasession”)3Oraconnection對象表示對OraDatabase對象的連接，當(dāng)需要建立OraDatabase對象時

13、，系統(tǒng)會自動產(chǎn)生一個Oraconnection對象。反之，當(dāng)與數(shù)據(jù)庫斷開連接時，Oraconnection對象自動釋放。4OraDatabase對象表示對數(shù)據(jù)庫服務(wù)器的虛擬登錄，其登錄方法為：Set Oradadabase=Orasession.Dbopendatabase_ (“數(shù)據(jù)庫別名”, “用戶名稱/密碼”,0)5OraDynaset對象將數(shù)據(jù)庫服務(wù)器符合SELECT命令的數(shù)據(jù)加以存儲在客戶端的緩沖區(qū)，讓用戶瀏覽或更新，最后將結(jié)果寫回到服務(wù)器，其方法：SetOraDynaset=OraDatabase.DbcreateDynaset(“SQL語句”,0)6OraSQLstmt對象通常用來運(yùn)行SQL命令，或調(diào)用存儲過程，其用法為：Set Orasqlstmt=Oradatabase.createSQl(“SQL語句”,0)7OraField對象表示在OraDynaset對象中的某個字段或數(shù)據(jù)項(xiàng)目，它通過Value屬性