在ASP中通过oo4o连接Oracle数据库的例子

下面这段代码能够显示，当前用户所能够看到的所有的用户和表，有兴趣的， 可以把每个表的内容加上

<%
Dim objOraSession,objOraDb
Dim strDbUser,strDbPwd,strDbConn
Call ConnectDB()
Sub ConnectDB()
 '连接数据库
 On Error Resume Next
 strDbUser  = "tmpUser"     '连接用户名
 strDbPwd  = "rt45ps1w"    '用户密码
 strDbConn = "sun450"       '连接字符串
 Set objOraSession  = Se***r.CreateObject("Or***eInProcServer.XOraSession")
 Set objOraDB        = ob***aSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
 If Er***umber>0 then
  Re***nse.Write "错误 ：" & er***escription & ""
  re***nse.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***ble_name as tname,au***ername as uname from all_tables at,all_users au Where au***ername=at.owner order by au***ername"
  Set objRs = ob***aDb.DbCreateDynaset(strSql,0)
  While  Not ob***.Eof
   strA = objRs("uname") & "." & objRs("tname")
   If str=strA then
    strTmp = strTmp & "" & strA & ""
   Else
    strTmp = strTmp & "" & strA & ""
   End if
   ob***.MoveNext
  Wend
 Set objRs = Nothing
 getTableList = strTmp
End Function
%>