코드 사본은 다음과 같습니다.
'********************************************************
'다음은 데이터베이스 관련 기능입니다
'********************************************************
'==============================================================
'데이터베이스 연결 객체를 초기화하십시오
'사용 원칙 : 최신 정보를 호출하고 가장 빨리 릴리스하십시오
'==============================================================
subdbconnbegin ()
'데이터베이스 개체가 이미 열려 있다면 다시 열지 마십시오.
ifisobject (oconn) = truethenexitsub
'데이터베이스 연결 객체를 열지 않고도 레코드 세트 객체를 직접 열 수 있지만 여러 레코드 세트 객체를 열어야하는 경우 효율이 매우 비효율적입니다.
'데이터베이스 연결 객체를 만들지 않으면 ADO는 동일한 SQL 문을 사용하는 경우에도 각 레코드 세트가 열리면 새 데이터베이스 연결 객체를 자동으로 생성합니다.
setoconn = server.createobject ( "adodb.connection")
onerrorresumenext
OCONN.OPEN "제공자 = Microsoft.jet.oledb.4.0; DataSource ="& server.mappath ( "DB/LBEDIT.MDB")
iferr.number> 0then
'오류 메시지 표시 및 관리자에게 알리기 위해 이메일을 보내십시오.
'calldbconnerror (err)
'실행중인 스크립트를 완전히 종료하십시오
응답. 엔드
endif
'레코드 세트를 만듭니다
setors = server.createobject ( "adodb.recordset")
Endsub