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

<%
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 <font color=red>错误 ： & err.description & </font>
  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 & <option selected> & strA & </option>
   Else
    strTmp = strTmp & <option> & strA & </option>
   End if
   objRs.MoveNext
  Wend
 Set objRs = Nothing
 getTableList = strTmp
End Function
%>
<form name=form1 action=index.asp method=POST target=main>
<table width=100% border=0 align=center>
<tr><td>
All Tables : <select name=tb>
<%=getTableList(tblName)%>
</select>
<input type=hidden name=submitc value=view>
<input type=submit name=submit value=View Data>  <font color=red>(<%=strDbUser & / & strDbPwd & @ & strDbConn%>)</font>
</td></tr>
</table>
</form>