Когда мы используем встроенный компонент ADO ASP для программирования базы данных, мы обычно открываем соединение в начале сценария и закрываем его в конце сценария. Однако для более крупных сценариев в большинстве случаев время открытия соединения превышает . что открытие занимает гораздо больше времени. Следовательно, чтобы сэкономить ресурсы сервера, соединение должно быть закрыто как можно больше, чтобы освободить ресурсы, занятые соединением. Этот метод закрытия соединения набора записей без закрытия набора записей называется отключенным набором записей. сам набор записей называется несвязным набором записей.
Ниже мы будем использовать пример, чтобы проиллюстрировать использование этой технологии (NorthWind.mdb — это база данных, поставляемая с Microsoft Access97, а файл adovbs.inc можно найти в папке C:/Program Files/Common Files/System/ADO):
Скопируйте код кода следующим образом:
<% @LANGUAGE = VBScript %>
<!--#include file=adovbs.inc-->
<%
Ответ.Истекает = 0
Dim Cnn,objRS, strOut, strQ, strC
StrC= Driver={Драйвер Microsoft Access (*.mdb)}; Server.MapPath(/asp24) &/NorthWind.mdb;
'Установить соединение
Установите Cnn = Server.CreateObject(ADODB.Connection)
Cnn.OpenStrC
'Создаем объект набора записей
Установите objRS = Server.CreateObject(ADODB.Recordset)
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = ВЫБРАТЬ идентификатор оператора, название компании, телефон ОТ оператора связи
objRS.Open strQ, Cnn, , , adCmdText
Set objRS.ActiveConnection = Nothing 'Отключить набор записей
Cnn.Close 'Закрыть соединение
Установить Cnn = Ничего
Response.Write <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.Open ул.
Установите objRS.ActiveConnection = Cnn
objRS.Filter = Название компании = 'Ву Фэн'
Если objRS.EOF Тогда
objRS.AddNew
objRS(название компании) = У Фэн
objRS(телефон) = 571-7227298
objRS.Update
Response.Write Если запись, отвечающая этому условию, не существует, добавьте ее.<BR>
Еще
objRS(телефон) = 571-7227071
Response.Write Если существует запись, соответствующая этому условию, обновить.<BR>
objRS.Update
Конец, если
Установите objRS.ActiveConnection = Ничего
Cnn.закрыть
Установить Cnn = Ничего
objRS.Close
Установить objRS = Ничего
Ответ.Запись </BODY></HTML>
%>