عادةً ما نسمع عن نوع واحد فقط من كائنات ASP مثل ADO، ولكن يوجد كائن وصول ASP غير معروف خصيصًا لـ SQL Server في ASP، وهو كائن SQLOLE.SQLServer. يمكن لـ SQLOLE.SQLServer الوصول مباشرة إلى خصائص نظام SQL Server. ستقوم عبارة Set oSQLServer = CreateObject ("SQLOLE.SQLServer") بإنشاء كائن خادم SQL Server.
---- لعرض مجموعة قواعد البيانات في هذا الخادم، البيان المتاح:
For Each SQLDB In oSQLServer.Databases
Response.Write SQLDB.Name 'سوف يسرد جميع قواعد البيانات، مثل Pubs، وما إلى ذلك.
التالي
---- لعرض مجموعة جداول البيانات في قاعدة بيانات (مثل قاعدة بيانات PUBS)، يمكنك استخدام العبارة التالية:
pubDatabase=oSQLServer.Databases("الناشرون")
'oSQLServer هو كائن خادم SQL Server الذي تم إنشاؤه مسبقًا
لكل DBTable في pubDatabase.Tables
الاستجابة.WriteDBTable.Name
التالي
---- البيان التالي سوف يسرد عروض البيانات في قاعدة البيانات (قاعدة بيانات PUBS)
pubDatabase =oSQLServer.Databases("الناشر")
'oSQLServer هو كائن خادم SQL Server الذي تم إنشاؤه مسبقًا
لكل DBView في pubDatabase.Views
الاستجابة.اكتب DBView.Text
التالي
---- البيان التالي سوف يسرد الإجراءات المخزنة في قاعدة البيانات (قاعدة بيانات PUBS)
pubDatabase =oSQLServer.Databases("الناشر")
'oSQLServer هو كائن خادم SQL Server الذي تم إنشاؤه مسبقًا
لكل DBSP في pubDatabase.StoredProcedures
الاستجابة.اكتب DBSP.Text
التالي
---- نتيجة تشغيل البرنامج (احصل على اسم جدول البيانات):
---- احصل على نتيجة العملية المخزنة:
---- مرفق مثال صغير كامل لكود المصدر (قراء بوظائف أخرى) يمكن إضافته).
< %@ LANGUAGE = VBScript % >
< HTML >
<الرأس>
< اسم التعريف = "المولد" المحتوى =
"استوديو مطوري مايكروسوفت">
< META HTTP-EQUIV = "نوع المحتوى"
content="text/html; charset=gb2312" >
< العنوان >< /العنوان >
</الرأس>
<%
على خطأ استئناف التالي
خافت oSQLServer
تعيين oSQLServer = CreateObject ("SQLOLE.SQLServer")
strServer = "ديب"
تسجيل الدخول = "سا"
strPwd = ""
oSQLServer.Connect strServer، strLogin، strPwd
%>
<BODY BGCOLOR=#ffffff>
قائمة قاعدة البيانات
< حدد الاسم = "قاعدة البيانات" >
<%
لكل SQLDB في oSQLServer.Databases
إذا لم يكن SQLDB.SystemObject إذن
الاستجابة.اكتب "< قيمة الخيار =
""" & SQLDB.Name & """ >" & SQLDB.Name
& " "
نهاية إذا
التالي
تعيين oSQLServer = لا شيء
%>
< /حدد>
< /الجسم>
< /أتش تي أم أل>