Der folgende Code kann alle Benutzer und Tabellen anzeigen, die der aktuelle Benutzer sehen kann. Wenn Sie interessiert sind, können Sie
<%
zum Inhalt jeder Tabelle hinzufügen.
Dim objOraSession,objOraDb
Dimmen Sie strDbUser, strDbPwd, strDbConn
CallConnectDB()
SubConnectDB()
'Mit Datenbank verbinden
Bei Fehler Weiter fortsetzen
strDbUser = "tmpUser" 'Verbindungsbenutzername
strDbPwd = "rt45ps1w" 'Benutzerpasswort
strDbConn = "sun450" 'Verbindungszeichenfolge
Set objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
Set objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
Wenn Err.Number>0 dann
Response.Write „<font color=red>Error:“ & err.description & „</font>“
Antwort.Ende
Ende wenn
Sub beenden
SubEndDB()
Setze objOraDB = Nichts
Setze objOraSession = Nothing
Sub beenden
Funktion getTableList(str)
Dimmen Sie strSql,strTmp
ObjRs dimmen
strSql = „Wählen Sie at.table_name als tname,au.username als uname aus all_tables at,all_users au aus, wobei au.username=at.owner nach au.username sortiert ist.“
Setze objRs = objOraDb.DbCreateDynaset(strSql,0)
Während nicht objRs.Eof
strA = objRs("uname") & "." & objRs("tname")
Wenn str=strA dann
strTmp = strTmp & "<option selected>" & strA & "</option>"
Anders
strTmp = strTmp & "<option>" & strA & "</option>"
Ende wenn
objRs.MoveNext
Wend
Setze objRs = Nothing
getTableList = strTmp
Funktion beenden
%>
<form name=form1 action="index.asp" method=POST target="main">
<table width="100%" border=0 align="center">
<tr><td>
Alle Tabellen: <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>