Salinan kode adalah sebagai berikut:
'********************************************
'Berikut ini adalah fungsi terkait database
'********************************************
'=============================================================
'Inisialisasi objek koneksi database
'Prinsip Penggunaan: Hubungi yang terbaru, rilis paling awal
'=============================================================
Subdbconnbegin ()
'Jika objek database sudah terbuka, jangan buka lagi
IfisObject (oconn) = truethenexitsub
'Anda dapat membuka objek set rekaman secara langsung tanpa membuka objek koneksi database, tetapi jika Anda perlu membuka beberapa objek set rekaman, efisiensinya sangat tidak efisien.
'Jika Anda tidak membuat objek koneksi basis data, ADO akan secara otomatis membuat objek koneksi database baru ketika setiap set rekaman dibuka, bahkan jika Anda menggunakan pernyataan SQL yang sama.
Setoconn = server.createObject ("adodb.connection")
OnerrorresumeNext
oconn.open "penyedia = microsoft.jet.oledb.4.0; datasource =" & server.mappath ("db/lbedit.mdb")
Iferr.number> 0then
'Tampilkan pesan kesalahan dan kirim email untuk memberi tahu administrator
'Calldbconnerror (err)
'Keluar dari skrip yang berjalan sepenuhnya
Respons.end
Endif
'Buat set rekaman
Setors = server.createObject ("adodb.recordset")
Endsub