下面這段代碼能夠顯示，當(dāng)前用戶所能夠看到的所有的用戶和表，有興趣的， 可以把每個(gè)表的內(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 錯(cuò)誤 ： & 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

%>

更多信息請(qǐng)查看IT技術(shù)專欄