Кода -копия выглядит следующим образом:
'************************************************
'Ниже приведены функции, связанные с базой данных
'************************************************
'====================================================================
'Инициализировать объект подключения базы данных
'Принцип использования: позвоните по последнему, выпустите самые ранние
'====================================================================
Subdbconnbegin ()
'Если объект базы данных уже открыт, не открывайте его снова
Ifisobject (oconn) = truethenexitsub
«Вы можете открыть объект Set Record напрямую, не открывая объект подключения базы данных, но если вам нужно открыть несколько объектов SET Record, эффективность очень неэффективна.
«Если вы не создаете объект подключения базы данных, 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
Эндиф
'Создать набор записей
Setors = server.createObject ("adodb.recordset")
Заканчивая