عندما نستخدم مكون ADO المدمج في ASP لبرمجة قاعدة البيانات، فإننا عادةً ما نفتح اتصالاً في بداية البرنامج النصي ونغلقه في نهاية البرنامج النصي، ومع ذلك، بالنسبة للبرامج النصية الأكبر حجمًا، يكون وقت فتح الاتصال أطول في معظم الحالات يستغرق فتحه وقتًا أطول بكثير. لذلك، من أجل حفظ موارد الخادم، يجب إغلاق الاتصال قدر الإمكان لتحرير الموارد التي يشغلها الاتصال. وتسمى هذه التقنية لإغلاق اتصال مجموعة السجلات دون إغلاق مجموعة السجلات بمجموعة سجلات غير متصلة، و مجموعة السجلات نفسها تسمى مجموعة السجلات غير المتصلة.
سنستخدم أدناه مثالًا لتوضيح استخدام هذه التقنية (NorthWind.mdb هي قاعدة بيانات تأتي مع Microsoft Access97، ويمكن العثور على الملف adovbs.inc ضمن C:/Program Files/Common Files/System/ADO):
انسخ رمز الكود كما يلي:
<% @LANGUAGE = VBScript %>
<!--#include file=adovbs.inc-->
<%
الاستجابة.انتهاء الصلاحية = 0
Dim Cnn،objRS، strOut، strQ، strC
StrC= Driver={Microsoft Access Driver (*.mdb)};
"إنشاء اتصال."
تعيين Cnn = Server.CreateObject(ADODB.Connection)
Cnn.OpenStrC
"إنشاء كائن مجموعة السجلات."
تعيين objRS = Server.CreateObject(ADODB.Recordset)
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = حدد معرف شركة الاتصالات واسم الشركة والهاتف من شركة الاتصالات
objRS.Open strQ، Cnn،،، adCmdText
تعيين objRS.ActiveConnection = لا شيء 'افصل مجموعة السجلات
Cnn.Close "أغلق الاتصال".
تعيين سي إن إن = لا شيء
الاستجابة.اكتب <HTML><BODY>
'استخدم مجموعة السجلات المعطلة أدناه
افعل بينما (ليس objRS.EOF)
strOut = objRS(معرف الشاحن) &، & objRS(اسم الشركة) &، & objRS(رقم الهاتف)
Response.Write Server.HTMLEncode(strOut) & <BR>
objRS.MoveNext
حلقة
Response.Write <BR> الاستعداد لإضافة أو إدراج السجلات:
'إذا كنت بحاجة إلى تحديث قاعدة البيانات، فأنت بحاجة إلى إعادة تأسيس الاتصال
تعيين Cnn = Server.CreateObject(ADODB.Connection)
Cnn.فتح strC
تعيين objRS.ActiveConnection = Cnn
objRS.Filter = اسم الشركة = 'Wu Feng'
إذا objRS.EOF ثم
objRS.AddNew
objRS(اسم الشركة) = وو فنغ
objRS(الهاتف) = 571-7227298
objRS.Update
Response.Write إذا كان السجل الذي يلبي هذا الشرط غير موجود، قم بإضافته.<BR>
آخر
objRS(الهاتف) = 571-7227071
Response.Write في حالة وجود سجل مطابق لهذا الشرط، قم بالتحديث.<BR>
objRS.Update
نهاية إذا
تعيين objRS.ActiveConnection = لا شيء
سي إن إن إغلاق
تعيين سي إن إن = لا شيء
objRS.Close
تعيين objRS = لا شيء
الاستجابة.اكتب </BODY></HTML>
%>