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 Files/Common Files/System/ADO):
Copy kode kodenya sebagai berikut:
<% @LANGUAGE = VBScript %>
<!--#sertakan file=adovbs.inc-->
<%
Respon. Kedaluwarsa = 0
Redupkan Cnn,objRS, strOut, strQ, strC
StrC= Driver={Driver Microsoft Access (*.mdb)}; DBQ= & Server.MapPath(/asp24) & /NorthWind.mdb;
'Jalin koneksi
Setel Cnn = Server.CreateObject(ADODB.Connection)
Cnn.OpenStrC
'Buat objek Recordset
Setel objRS = Server.CreateObject(ADODB.Recordset)
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimis
strQ = PILIH ID operator, nama perusahaan, telepon DARI operator
objRS.Buka strQ, Cnn, , , adCmdText
Setel objRS.ActiveConnection = Nothing 'Putuskan sambungan kumpulan rekaman
Cnn.Tutup 'Tutup koneksi
Setel Cnn = Tidak Ada
Respon.Tulis <HTML><BODY>
'Gunakan rekaman rusak di bawah ini
Lakukan Sementara (Tidak objRS.EOF)
strOut = objRS(ID pengirim) & , & objRS(nama perusahaan) & , & objRS(nomor telepon)
Respons.Tulis Server.HTMLEncode(strOut) & <BR>
objRS.MoveNext
Lingkaran
Response.Write <BR>Bersiap untuk menambah atau menyisipkan catatan:
'Jika Anda perlu memperbarui database, Anda perlu membangun kembali koneksi
Setel Cnn = Server.CreateObject(ADODB.Connection)
Cnn.Buka strC
Setel objRS.ActiveConnection = Cnn
objRS.Filter = Nama Perusahaan = 'Wu Feng'
Jika objRS.EOF Lalu
objRS.TambahkanBaru
objRS(nama perusahaan) = Wu Feng
objRS(telepon) = 571-7227298
objRS.Perbarui
Response.Write Jika rekaman yang memenuhi kondisi ini tidak ada, tambahkan.<BR>
Kalau tidak
objRS(telepon) = 571-7227071
Response.Write Jika ada record yang cocok dengan kondisi ini, Perbarui.<BR>
objRS.Perbarui
Akhiri Jika
Setel objRS.ActiveConnection = Tidak Ada
Cnn.tutup
Setel Cnn = Tidak Ada
objRS.Tutup
Setel objRS = Tidak Ada
Respon.Tulis </BODY></HTML>
%>