يمكن للتعليمة البرمجية التالية عرض كافة المستخدمين والجداول التي يمكن للمستخدم الحالي رؤيتها. إذا كنت مهتمًا، فيمكنك إضافة
<%
إلى محتوى كل جدول.
خافت objOraSession،objOraDb
خافت strDbUser،strDbPwd،strDbConn
كولكونكت دي بي ()
SubConnectDB()
'الاتصال بقاعدة البيانات
على خطأ استئناف التالي
strDbUser = "tmpUser" 'اسم مستخدم الاتصال
strDbPwd = "rt45ps1w" 'كلمة مرور المستخدم
strDbConn = "sun450" 'سلسلة الاتصال
تعيين objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
تعيين objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0)
إذا Err.Number>0 ثم
Response.اكتب "<font color=red>خطأ:" & err.description & "</font>"
Response.end
انتهي إذا
نهاية الفرعية
سوبينددب ()
تعيين objOraDB = لا شيء
تعيين objOraSession = لا شيء
نهاية الفرعية
الدالة getTableList(str)
خافت strSql، strTmp
كائنات خافتة
strSql = "اختر at.table_name كـ tname،au.username كـ uname من all_tables at،all_users au Where au.username=at.owner اطلب بواسطة au.username"
تعيين objRs = objOraDb.DbCreateDynaset(strSql,0)
بينما لا objRs.Eof
strA = objRs("uname") & "." & objRs("tname")
إذا str = strA ثم
strTmp = strTmp & "<option Selected>" & strA & "</option>"
آخر
strTmp = strTmp & "<option>" & strA & "</option>"
انتهي إذا
objRs.MoveNext
ويند
تعيين objRs = لا شيء
getTableList = strTmp
وظيفة النهاية
%>
< اسم النموذج = نموذج 1 الإجراء = "index.asp" طريقة = هدف POST = "الرئيسي">
<عرض الجدول = "100%" الحدود = 0 محاذاة = "المركز">
<tr><td>
كافة الجداول: <select name="tb">
<%=getTableList(tblName)%>
</حدد>
<نوع الإدخال = الاسم المخفي = "إرسال" القيمة = "عرض">
<input type=submit name="submit" value="عرض البيانات"> <font color=red>(<%=strDbUser & "/" & strDbPwd & "@" & strDbConn%>)</font>
</td></tr>
</الجدول>
</النموذج>