El siguiente código puede mostrar todos los usuarios y tablas que el usuario actual puede ver. Si está interesado, puede agregar
<%
al contenido de cada tabla.
Dim objOraSession,objOraDb
Dim strDbUser,strDbPwd,strDbConn
Llamar a ConnectDB()
SubConectarDB()
'Conectarse a la base de datos
En caso de error Continuar siguiente
strDbUser = "tmpUser" 'Nombre de usuario de conexión
strDbPwd = "rt45ps1w" 'Contraseña de usuario
strDbConn = "sun450" 'Cadena de conexión
Establecer objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
Establecer objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
Si Número de error>0 entonces
Respuesta.Escribir "<font color=red>Error:" & err.description & "</font>"
respuesta.fin
terminar si
Subtítulo final
SubEndDB()
Establecer objOraDB = Nada
Establecer objOraSession = Nada
Subtítulo final
Función getTableList(cadena)
Dim strSql, strTmp
Objetos tenues
strSql = "Seleccione at.table_name como tname,au.username como uname de all_tables at,all_users au Donde au.username=at.owner ordenar por au.username"
Establecer objRs = objOraDb.DbCreateDynaset(strSql,0)
Mientras no sea objRs.Eof
strA = objRs("uname") & "." & objRs("tname")
Si str=strA entonces
strTmp = strTmp & "<opción seleccionada>" & strA & "</option>"
Demás
strTmp = strTmp & "<opción>" & strA & "</option>"
terminar si
objRs.MoveNext
Encaminarse a
Establecer objRs = Nada
getTableList = strTmp
Función final
%>
<nombre del formulario=form1 acción="index.asp" método=POST destino="principal">
<ancho de tabla="100%" borde=0 align="centro">
<tr><td>
Todas las tablas: <select name="tb">
<%=getTableList(tblName)%>
</seleccionar>
<tipo de entrada=nombre oculto="enviar" valor="ver">
<tipo de entrada=enviar nombre="enviar" valor="Ver datos"> <font color=red>(<%=strDbUser & "/" & strDbPwd & "@" & strDbConn%>)</font>
</td></tr>
</tabla>
</formulario>