ASP 如何连接Oracle？？

certainly~<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"ORACL错误代码:”-  
&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> 

解决方案 »

  1.   

    如果用 ado 的话，就：
    <%
    set conn=server.createobject("adodb.connection")
    dns="Provider=OraOLEDB.Oracle.1<I>&#</I>59;Persist Security Info=True<I>&#</I>59;User ID=user1<I>&#</I>59;Password=pass1<I>&#</I>59;Data Source=oradb" http://www.acnow.net/ 0AVB
    conn.Open dnsSQL="insert into test(a) values(sysdate)"
    set rs=conn.execute(SQL)set rs=nothing
    conn.close
    set conn=nothing
    %> <% 
    set conn=server.createobject("adodb.connection")0AVB
    dns="Provider=OraOLEDB.Oracle.1<I>&#</I>59;Persist Security Info=True<I>&#</I>59;User ID=user1<I>&#</I>59;Password=pass1<I>&#</I>59;Data Source=oradb" http://www.acnow.net/ 0AVB
    conn.Open dns SQL="select to_char(a,&iexcl;&macr;hh24:mi:ss&iexcl;&macr;) from test"
    set rs=conn.execute(SQL) 
    do while (not rs.eof)
    %>
    <table border=1> 
    <tr><td><%=rs.fields(0).value%></font></td>
    </tr>
    <%
    rs.movenext
    loop rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    %> 
      

  2.   

    <%    
     dim cn,rs,driver_name  
     driver_name="Provider=MSDAORA.1;Password=pass;User ID=user;Data Source=afis;Persist Security Info=True"  
     set cn = server.CreateObject("adodb.connection")  
     cn.open driver_name  
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from table",cn,3,1
     do while not rs.eof
        response.write rs("field")
        rs.movenext
     loop 
    %>
      

  3.   

    ASP 中通过OLEDB访问 Oracle 的代码
    http://www.oradb.net/setup/asp_001.htm