首先在microsoft ODBC 管理中的系统DSN中加入oracle的驱动 then

<%
Set Conn_ODBC=Server.CreateObject("ADODB.Connection") ‘创建名为Conn的Connection对象
Conn_ODBC.Open("DSN=OracleDSN;uid=soft;pwd=soft;") ‘建立连接
SET RS_ODBC=SERVER.CreateObject("ADODB.RECORDSET")
SQL_ODBC="select * from T_USER"
RS_ODBC.OPEN SQL_ODBC,Conn_ODBC,1,3
RESPONSE.Write("ID      NAME<BR>")
RESPONSE.Write("————<BR>")
DO WHILE NOT RS_ODBC.EOF
RESPONSE.Write(RS_ODBC("ID")&"      "&RS_ODBC("NAME")&"<BR>")
RS_ODBC.MOVENEXT
LOOP
%>