这是一种方法:
<%    
 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 
%> 
  
另外oracle提供了Oracle Objects for OLE (OO4O),可以到以下网址下载:
http://otn.oracle.com/software/tech/windows/ole/content.html
连接方法,请参考:
http://www.pep.com.cn/200212/ca3007.htm