ASP 中通過OLEDB訪問 Oracle 的代碼

　　系統環境
　　操作系統Windows
　　數據庫　Oracle i R () for NT 企業版
　　安裝路徑C:\ORACLE
　　
　　訪問方法
　　連入SQL*Plus
　　以system/manager用戶登錄
　　SQL> conn system/manager
　　
　　創建新的用戶如user/pass賦予connectresource權限
　　SQL> grant connectresource to user identified by pass;
　　
　　SQL> conn user/pass
　　SQL> create table test(a date);
　　
　　Oracle數據庫的實例名本例oradb
　　Oracle用戶名本例user
　　Oracle主機字符串oradb
　　
　　tnsnamesora文件中
　　ORADB =
　　　(DESCRIPTION =
　　　　(ADDRESS_LIST =
　　　　　(ADDRESS = (PROTOCOL = TCP)(HOST = )(PORT = ))
　　　　)
　　　　(CONNECT_DATA =
　　　　　(SERVICE_NAME = oradb)
　　　　)
　　　)
　　
　　在IIS默認WWW目錄下創建testasp用notebook編輯輸入以下代碼
　　<%
　　set conn=servercreateobject(nnection)
　　dns=Provider=OraOLEDBOracle;Persist Security Info=True;User ID=user;Password=pass;Data Source=oradb
　　connOpen dns
　　
　　SQL=insert into test(a) values(sysdate)
　　set rs=connexecute(SQL)
　　
　　set rs=nothing
　　connclose
　　set conn=nothing
　　%>
　　
　　<%
　　set conn=servercreateobject(nnection)
　　dns=Provider=OraOLEDBOracle;Persist Security Info=True;User ID=user;Password=pass;Data Source=oradb
　　connOpen dns
　　
　　SQL=select to_char(ahh:mi:ss) from test
　　set rs=connexecute(SQL)
　　
　　do while (not rseof)
　　%>
　　<table border=>
　　<tr><td><%=rsfields()value%></font></td>
　　</tr>
　　<%
　　rsmovenext
　　loop
　　
　　rsclose
　　set rs=nothing
　　connclose
　　set conn=nothing
　　%>
　　
　　打開一個浏覽器窗口輸入以下地址來查看運行結果可以通過不斷的按F鍵來刷新顯示結果
　　
　　
　　總結
　　利用以上代碼可以省去創建ODBC的麻煩並提高效率

From:http://tw.wingwit.com/Article/program/Oracle/201311/17261.html