รหัสต่อไปนี้สามารถแสดงผู้ใช้และตารางทั้งหมดที่ผู้ใช้ปัจจุบันสามารถดูได้ หากคุณสนใจ คุณสามารถเพิ่ม
<%
ลงในเนื้อหาของแต่ละตารางได้
หรี่ objOraSession, objOraDb
หรี่ strDbUser,strDbPwd,strDbConn
CallConnectDB()
ย่อยConnectDB()
'เชื่อมต่อกับฐานข้อมูล
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
strDbUser = "tmpUser" 'ชื่อผู้ใช้การเชื่อมต่อ
strDbPwd = "rt45ps1w" 'รหัสผ่านผู้ใช้
strDbConn = "sun450" 'สตริงการเชื่อมต่อ
ตั้งค่า objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
ตั้งค่า objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
ถ้า Err.Number>0 แล้ว
Response.Write "<font color=red>ข้อผิดพลาด:" & err.description & "</font>"
การตอบสนองสิ้นสุด
จบถ้า
จบหมวดย่อย
ย่อยEndDB()
ตั้ง objOraDB = ไม่มีเลย
ตั้งค่า objOraSession = ไม่มีเลย
จบหมวดย่อย
ฟังก์ชัน getTableList(str)
หรี่ strSql,strTmp
ติ่ม objRs
strSql = "เลือก at.table_name เป็น tname,au.username เป็น uname จาก all_tables at,all_users au โดยที่ au.username=at.owner สั่งซื้อโดย au.username"
ตั้งค่า objRs = objOraDb.DbCreateDynaset(strSql,0)
ในขณะที่ไม่ใช่ objRs.Eof
strA = objRs("uname") & "." & objRs("tname")
ถ้า str=strA แล้ว
strTmp = strTmp & "<ตัวเลือกที่เลือก>" & strA & "</option>"
อื่น
strTmp = strTmp & "<ตัวเลือก>" & strA & "</option>"
จบถ้า
objRs.MoveNext
เวนด์
ตั้ง objRs = ไม่มีเลย
getTableList = strTmp
ฟังก์ชันสิ้นสุด
-
<ชื่อฟอร์ม=form1 action="index.asp" method=POST target="main">
<table width="100%" border=0 align="center">
<tr><td>
ตารางทั้งหมด: <select name="tb">
<%=getTableList(tblName)%>
</เลือก>
<input type=hidden name="submitc" value="view">
<input type=submit name="submit" value="ดูข้อมูล"> <font color=red>(<%=strDbUser & "/" & strDbPwd & "@" & strDbConn%>)</font>
</td></tr>
</ตาราง>
</แบบฟอร์ม>