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

<%

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 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 & "

"

Else

strTmp = strTmp & ""

End if

objRs.MoveNext

Wend

Set objRs = Nothing

getTableList = strTmp

End Function

%>

更多信息请查看IT技术专栏