Kode berikut dapat menampilkan semua pengguna dan tabel yang dapat dilihat oleh pengguna saat ini. Jika tertarik, Anda dapat menambahkan
<%
ke konten setiap tabel.
Redupkan objOraSession,objOraDb
Redupkan strDbUser,strDbPwd,strDbConn
PanggilanConnectDB()
SubConnectDB()
'Hubungkan ke basis data
Pada Kesalahan Lanjutkan Berikutnya
strDbUser = "tmpUser" 'Nama pengguna koneksi
strDbPwd = "rt45ps1w" 'Kata sandi pengguna
strDbConn = "sun450" 'String koneksi
Setel objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
Setel objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
Jika Err.Number>0 maka
Respon.Tulis "<font color=red>Error:" & err.deskripsi & "</font>"
respon.akhir
Berakhir jika
Akhiri Sub
SubEndDB()
Setel objOraDB = Tidak Ada
Setel objOraSession = Tidak Ada
Akhiri Sub
Fungsi getTableList(str)
Redupkan strSql,strTmp
Redupkan objek
strSql = "Pilih at.table_name sebagai tname,au.username sebagai uname dari all_tables at,all_users au Where au.username=at.owner diurutkan berdasarkan au.username"
Setel objRs = objOraDb.DbCreateDynaset(strSql,0)
Sementara Tidak keberatan.Eof
strA = objRs("nama") & "." & objRs("nama")
Jika str=strA maka
strTmp = strTmp & "<opsi dipilih>" & strA & "</option>"
Kalau tidak
strTmp = strTmp & "<pilihan>" & strA & "</pilihan>"
Berakhir jika
objRs.MoveNext
Pergi ke
Setel objRs = Tidak ada
getTableList = strTmp
Fungsi Akhir
%>
<nama formulir=form1 action="index.asp" metode=POST target="utama">
<lebar tabel="100%" perbatasan=0 align="center">
<tr><td>
Semua Tabel: <pilih nama="tb">
<%=getTableList(tblNama)%>
</pilih>
<tipe input=nama tersembunyi=”kirim” nilai=”tampilan”>
<input type=kirim nama="kirim" value="Lihat Data"> <font color=merah>(<%=strDbUser & "/" & strDbPwd & "@" & strDbConn%>)</font>
</td></tr>
</tabel>
</bentuk>