เมื่อเราใช้คอมโพเนนต์ ADO ที่มีอยู่แล้วภายในของ ASP สำหรับการเขียนโปรแกรมฐานข้อมูล เรามักจะเปิดการเชื่อมต่อที่จุดเริ่มต้นของสคริปต์และปิดที่ส่วนท้ายของสคริปต์ อย่างไรก็ตาม สำหรับสคริปต์ที่มีขนาดใหญ่กว่า ในกรณีส่วนใหญ่ เวลาในการเปิดการเชื่อมต่อจะนานกว่า นั่นใช้เวลานานกว่ามากในการเปิด ดังนั้นเพื่อประหยัดทรัพยากรเซิร์ฟเวอร์ ควรปิดการเชื่อมต่อให้มากที่สุดเท่าที่จะเป็นไปได้เพื่อปล่อยทรัพยากรที่ถูกครอบครองโดยการเชื่อมต่อ เทคนิคการปิดการเชื่อมต่อของชุดบันทึกโดยไม่ปิดชุดบันทึกนี้เรียกว่าชุดบันทึกที่ไม่ได้เชื่อมต่อ และ ชุดบันทึกนั้นเรียกว่าชุดบันทึกที่ไม่เชื่อมต่อ
ด้านล่างนี้เราจะใช้ตัวอย่างเพื่อแสดงการใช้เทคโนโลยีนี้ (NorthWind.mdb เป็นฐานข้อมูลที่มาพร้อมกับ Microsoft Access97 และไฟล์ adovbs.inc สามารถพบได้ภายใต้ C:/Program Files/Common Files/System/ADO):
คัดลอกรหัสรหัสดังต่อไปนี้:
<% @LANGUAGE = VBScript %>
<!--#include file=adovbs.inc-->
-
การตอบกลับหมดอายุ = 0
หรี่ Cnn,objRS, strOut, strQ, strC
StrC= ไดรเวอร์={ไดรเวอร์ Microsoft Access (*.mdb)};
'สร้างการเชื่อมต่อ
ตั้งค่า Cnn = Server.CreateObject (ADODB.Connection)
Cnn.OpenStrC
'สร้างวัตถุชุดระเบียน
ตั้ง objRS = Server.CreateObject(ADODB.Recordset)
objRS.CursorLocation = adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = เลือก ID ผู้ให้บริการ ชื่อบริษัท โทรศัพท์จากผู้ให้บริการ
objRS เปิด strQ, Cnn, , , adCmdText
Set objRS.ActiveConnection = Nothing 'ตัดการเชื่อมต่อชุดระเบียน
Cnn.Close 'ปิดการเชื่อมต่อ'
ตั้งค่า Cnn = ไม่มีเลย
การตอบสนองเขียน <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 = ชื่อบริษัท = 'หวู่เฟิง'
ถ้า objRS.EOF แล้ว
objRS.AddNew
objRS(ชื่อบริษัท) = หวู่เฟิง
objRS(โทรศัพท์) = 571-7227298
objRS.อัปเดต
Response.Write หากไม่มีเรกคอร์ดที่ตรงตามเงื่อนไขนี้ ให้เพิ่ม<BR>
อื่น
objRS(โทรศัพท์) = 571-7227071
Response.Write หากมีบันทึกที่ตรงกับเงื่อนไขนี้ ให้อัปเดต<BR>
objRS.อัปเดต
สิ้นสุดถ้า
ตั้งค่า objRS.ActiveConnection = ไม่มีเลย
ซีเอ็น.ปิด
ตั้งค่า Cnn = ไม่มีเลย
objRS.ปิด
ตั้ง objRS = ไม่มีเลย
ตอบกลับเขียน </BODY></HTML>
-