Oracle 数据库，比SQL 7 都快多了！
而且 ors.RecordCount 能返回准确值！
详细请参考Oracle自带的说明文档。
Global.ASA
<OBJECT RUNAT=Server SCOPE=Application ID=OraSession PROGID="OracleInProcServer.XOraSession">
</OBJECT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'Get an instance of the Connection Pooling object and create a pool of OraDatabase
'
OraSession.CreateDatabasePool 1,40,200,"", "username/password", 0
End Sub
</SCRIPT>
----------------------------------------------------------------------
OO4O.ASP
<html>
<head>
</head>
<body>
<form ACTION="OO4O.asp" METHOD="POST">
<%
SQL = Request("SQL")
%>
<p>SQL Select Query: <input SIZE="48" NAME="SQL" VALUE="<%=SQL%>"></p><p><input TYPE="SUBMIT"></p></form>
<%
If SQL<>"" Then
Set ODB = OraSession.GetDatabaseFromPool(10)
Set ORS = ODB.CreateDynaset(SQL,0)
Set Columns= ORS.Fields
%>
<table BORDER="1">
<tr>
<% For i = 0 to Columns.Count - 1 %>
<td><b><% = Columns(i).Name %></b></td>
<% Next %>
</tr>
<% while NOT ORS.EOF %>
<tr>
<% For col = 0 to Columns.Count - 1 %>
<td><A href="oo4o.asp?SQL=select * from <%=columns(col)%>"><% = Columns(col) %></A></td>
<% Next %>
</tr>
<% ORS.MoveNext %>
<% WEnd %>
</table>
<%End If%>
