เมื่อเราใช้คอมโพเนนต์ ADO ที่มีอยู่แล้วภายในของ ASP สำหรับการเขียนโปรแกรมฐานข้อมูล เรามักจะเปิดการเชื่อมต่อที่จุดเริ่มต้นของสคริปต์และปิดที่ส่วนท้ายของสคริปต์ อย่างไรก็ตาม สำหรับสคริปต์ที่มีขนาดใหญ่กว่า ในกรณีส่วนใหญ่ เวลาในการเปิดการเชื่อมต่อจะนานกว่า นั่นใช้เวลานานกว่ามากในการเปิด ดังนั้นเพื่อประหยัดทรัพยากรเซิร์ฟเวอร์ ควรปิดการเชื่อมต่อให้มากที่สุดเท่าที่จะเป็นไปได้เพื่อปล่อยทรัพยากรที่ถูกครอบครองโดยการเชื่อมต่อ เทคนิคการปิดการเชื่อมต่อของชุดบันทึกโดยไม่ปิดชุดบันทึกนี้เรียกว่าชุดบันทึกที่ไม่ได้เชื่อมต่อ และ ชุดบันทึกนั้นเรียกว่าชุดบันทึกที่ไม่เชื่อมต่อ
ด้านล่างนี้เราจะใช้ตัวอย่างเพื่อแสดงการใช้เทคโนโลยีนี้ (NorthWind.mdb เป็นฐานข้อมูลที่มาพร้อมกับ Microsoft Access97 และไฟล์ adovbs.inc สามารถพบได้ภายใต้ C:Program FilesCommon FilesSystemADO):
＜ % @LANGUAGE= VBScript %＞
＜!--#includefile="adovbs.inc"-->
＜%
Response.Expires = 0
Dim Cnn,objRS, strOut, strQ, strC
StrC= "ไดรเวอร์={ไดรเวอร์ Microsoft Access ( * .mdb)}; DBQ=" & Server.MapPath("asp24") & "NorthWind.mdb;"
'สร้างการเชื่อมต่อ
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open StrC
'Create
ชุดวัตถุชุดระเบียน
objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = "เลือก ID ผู้ให้บริการ ชื่อบริษัท โทรศัพท์จากผู้ให้บริการ"
objRS.Open strQ Cnn, , , adCmdText
Set objRS.ActiveConnection = Nothing 'ยกเลิกการเชื่อมต่อชุดบันทึก
Cnn.Close 'ปิดการเชื่อมต่อ
Set Cnn = Nothing
Response.Write "＜HTML><BODY>"
'ใช้ชุดบันทึกที่ไม่ได้เชื่อมต่อ
Do While (NotobjRS .EOF )
strOut = objRS("รหัสผู้จัดส่ง") & `, " & objRS("ชื่อบริษัท") & `, " & objRS("โทรศัพท์")
Response.Write Server.HTMLEncode(strOut) & "<BR >"
objRS MoveNext
Loop
Response.Write "<BR>เตรียมที่จะเพิ่มหรือแทรกบันทึก: "
'หากคุณต้องการอัพเดตฐานข้อมูล ให้สร้างการเชื่อมต่อใหม่
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open strC
Set objRS .ActiveConnection = Cnn
objRS.Filter = "ชื่อบริษัท = 'Wu Feng'"
ถ้า objRS.EOF จากนั้น
objRS.AddNew
objRS("ชื่อบริษัท") = "Wu Feng"
objRS("โทรศัพท์") = "571-7227298"
objRS .Update
Response.Write "หากไม่มีบันทึกที่ตรงตามเงื่อนไข ให้เพิ่ม <BR>"
Else
objRS("Telephone") = "571-7227071"
Response.Write "หากมีบันทึกที่ตรงตามเงื่อนไขอยู่ จากนั้นอัปเดต ＜BR><"
objRS.Update
End If
Set objRS.ActiveConnection = Nothing
Cnn.close
Set Cnn = Nothing
objRS.Close
Set objRS = Nothing
Response.Write "＜/BODY">＜/HTML><"
%>