コードコピーは次のとおりです。
'*****************************************
「以下はデータベース関連の機能です
'*****************************************
'==============================================================================
'データベース接続オブジェクトを初期化します
'使用の原則：最新のものを呼び出し、最も早くリリースします
'==============================================================================
subdbconnbegin（）
「データベースオブジェクトがすでに開いている場合、再度開かないでください
ifisobject（oconn）= truethenexitsub
「データベース接続オブジェクトを開くことなく、レコードセットオブジェクトを直接開くことができますが、複数のレコードセットオブジェクトを開く必要がある場合、効率は非常に非効率的です。
「データベース接続オブジェクトを作成しない場合、ADOは、同じSQLステートメントを使用している場合でも、各レコードセットが開かれたときに新しいデータベース接続オブジェクトを自動的に作成します。
setoconn = server.createObject（ "adodb.connection"）
onerrorresumenext
oconn.open "provider = microsoft.jet.oledb.4.0; dataSource ="＆server.mappath（ "db/lbedit.mdb"）
iferr.Number> 0then
「エラーメッセージを表示し、メールを送信して管理者に通知します
'calldbconnerror（err）
「実行中のスクリプトを完全に終了します
Response.End
endif
'レコードセットを作成します
setors = server.createObject（ "adodb.recordset"）
Endingub