下面這段代碼能夠顯示，當前用戶所能夠看到的所有的用戶和表，有興趣的， 可以把每個表的內容加上

<%
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 "錯誤 ：" & err.description & ""
  response.end
 End if
End Sub
Sub

"
   Else
    strTmp = strTmp & ""
   End if
   objRs.MoveNext
  Wend 
 Set objRs = Nothing
 getTableList = strTmp
End Function
%>