Ketika kita menggunakan komponen ADO bawaan ASP untuk pemrograman database, kita biasanya membuka koneksi di awal skrip dan menutupnya di akhir skrip. Namun, untuk skrip yang lebih besar, dalam banyak kasus, waktu pembukaan koneksi lebih lama dari itu. Butuh waktu lebih lama untuk membukanya. Oleh karena itu, untuk menghemat sumber daya server, koneksi harus ditutup sebanyak mungkin untuk melepaskan sumber daya yang digunakan oleh koneksi. Teknik menutup koneksi kumpulan rekaman tanpa menutup kumpulan rekaman disebut kumpulan rekaman terputus, dan kumpulan rekaman itu sendiri disebut kumpulan rekaman terputus.
Di bawah ini kami akan menggunakan contoh untuk mengilustrasikan penggunaan teknologi ini (NorthWind.mdb adalah database yang disertakan dengan Microsoft Access97, dan file adovbs.inc dapat ditemukan di C:Program FilesCommon FilesSystemADO):
＜ % @LANGUAGE= VBScript %＞
＜!--#includefile="adovbs.inc"--＞
＜%
Response.Expires = 0
Redupkan Cnn,objRS, strOut, strQ, strC
StrC= "Driver={Microsoft Access Driver ( * .mdb)}; DBQ=" & Server.MapPath("asp24") & "NorthWind.mdb;"
'Buat koneksi
Setel Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Buka StrC
'Buat objek Recordset
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = "PILIH ID operator, nama perusahaan, telepon DARI operator"
objRS.Open strQ , Cnn, , , adCmdText
Set objRS.ActiveConnection = Nothing 'Putuskan sambungan kumpulan data
Cnn.Close 'Tutup sambungan
Set Cnn = Tidak Ada
Response.Write "＜HTML＞＜BODY＞"
'Gunakan kumpulan data yang terputus
Do While (NotobjRS .EOF )
strOut = objRS("ID Pengirim") & ", " & objRS("Nama Perusahaan") & ", " & objRS("Telepon")
Response.Write Server.HTMLEncode(strOut) & "＜BR ＞"
objRS. MoveNext
Loop
Response.Write "＜BR＞Bersiap untuk menambah atau menyisipkan catatan: "
'Jika Anda perlu memperbarui database, buat kembali koneksi
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open strC
Set objRS .ActiveConnection = Cnn
objRS.Filter = "Nama Perusahaan = 'Wu Feng'"
Jika objRS.EOF Lalu
objRS.AddNew
objRS("Nama Perusahaan") = "Wu Feng"
objRS("Telepon") = "571-7227298"
objRS .Update
Response.Write "Jika record yang memenuhi syarat tidak ada, maka tambahkan. <BR>"
Else
objRS("Telephone") = "571-7227071"
Response.Write "Jika record yang memenuhi syarat ada , lalu Perbarui. ＜BR＞"
objRS.Perbarui
Berakhir Jika
Setel objRS.ActiveConnection = Tidak Ada
Cnn.close
Setel Cnn = Tidak ada
objRS.Tutup
Setel objRS = Tidak Ada
Respons.Tulis "＜/BODY＞＜/HTML＞"
%＞