<OBJECT RUNAT=Server SCOPE=Application ID=OraSession 
        PROGID="OracleInProcServer.XOraSession"></OBJECT>

OraSession.CreateDatabasePool 1,40,200,dbAlias, UserName/Password, 0

Set OraDB = OraSession.GetDatabaseFromPool(10)

<%
Dim objOraSession,objOraDb
Dim strDbUser,strDbPwd,strDbConn
Call ConnectDB()
Sub ConnectDB()
 '连接数据库 
 On Error Resume Next
 strDbUser  = "tmpUser"     '连接用户名
 strDbPwd  = "rt45ps1w"    '用户密码
 strDbConn = "sun450"       '连接字符串
 Set objOraSession  = Server.CreateObject("OracleInProcServer.XOraSession")
 Set objOraDB        = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
 If Err.Number>0 then
  Response.Write "<font color=red>错误 ：" & err.description & "</font>"
  response.end
 End if
End Sub
Sub EndDB()
 Set objOraDB       = Nothing
 Set objOraSession = Nothing
End Sub
Function getTableList(str)
 Dim strSql,strTmp
 Dim objRs
  strSql = "Select at.table_name as tname,au.username as uname from all_tables at,all_users au Where 

au.username=at.owner order by au.username"
  Set objRs = objOraDb.DbCreateDynaset(strSql,0)
  While  Not objRs.Eof
   strA = objRs("uname") & "." & objRs("tname")
   If str=strA then
    strTmp = strTmp & "<option selected>" & strA & "</option>"
   Else
    strTmp = strTmp & "<option>" & strA & "</option>"
   End if
   objRs.MoveNext
  Wend 
 Set objRs = Nothing
 getTableList = strTmp
End Function
%>
<form name=form1 action="index.asp" method=POST target="main">
<table width="100%" border=0 align="center">
<tr><td>
All Tables : <select name="tb">
<%=getTableList(tblName)%>
</select>
<input type=hidden name="submitc" value="view">
<input type=submit name="submit" value="View Data">  <font color=red>(<%=strDbUser & "/" & strDbPwd & "@" 

& strDbConn%>)</font>
</td></tr>
</table>
</form>

‘// 函数注释：传入一个Sql语句，得到一个二维数组，数组元素类型为String。 
Public Function get2dArrayBySql(strSql As String) 
   '// 建立记录集 
   Dim OraDynaset As Object 
   Set OraDynaset = gOraDatabase.DbCreateDynaset(strSql, ORADYN_READONLY) 
    
   '// 建立并调整数组的大小 
   Dim arrayRetval() As String 
   ReDim arrayRetval(OraDynaset.recordcount, OraDynaset.fields.Count - 1) 
    
   '// 遍历记录集将数据传入数组 
   Dim i, j As Integer 
   While Not OraDynaset.EOF 
       For j = 0 To OraDynaset.fields.Count - 1 
           arrayRetval(i, j) = mfChgNull(OraDynaset.fields(j).Value) 
       Next 
       i = i + 1 
       OraDynaset.MoveNext 
   Wend 
    
   '// 将数组返回 
   get2dArrayBySql = arrayRetval 
End Function 

   Dim arrayRowBody() As String 
   arrayRowBody = get2dArrayBySql(strSql) 

 
Public Function mfChgNull(varData As Variant) As String 
On Error GoTo errorproc 

   If (IsNull(varData)) Then 
       mfChgNull = "" 
   Else 
       mfChgNull = CStr(varData) 
   End If 
    
   Exit Function 
errorproc: 
   mfChgNull = "" 
End Function 

DbAccessBase  dbAccess; 

if(数据库类型==Oracle数据库){ 
        dbAccess=new OracleDbAccessBase(); 
} 
else if(数据库类型==SqlServer数据库){ 
        dbAccess=new SqlServerDbAccessBase(); 
} 
else{ 
        dbAccess=new MySqlDbAccessBase(); 
} 

class DbAccessFactory{ 
        public static gettDbAccessInstance(String 数据库类型){ 
                 DbAccessBase  dbAccess; 
                          if(数据库类型==Oracle数据库){ 
                                   dbAccess=new OracleDbAccessBase(); 
                          } 
                          else if(数据库类型==SqlServer数据库){ 
                                   dbAccess=new SqlServerDbAccessBase(); 
                          } 
                          else{ 
                                   dbAccess=new MySqlDbAccessBase(); 
                          } 

                          return dbAccess; 
        } 
} 

DbAccessBase  dbAccess=DbAccessFactory.gettDbAccessInstance(数据库类型)