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

<%

Dim objOraSession,objOraDb

Dim strDbUser,strDbPwd,strDbConn

Call ConnectDB()

Sub ConnectDB()

'連接數(shù)據(jù)庫

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技術專欄