下面这段代码能够显示，当前用户所能够看到的所有的用户和表，有兴趣的， 可以把每个表的内容加上
<%
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技术专栏
