Cuando utilizamos el componente ADO integrado de ASP para la programación de bases de datos, normalmente abrimos una conexión al principio del script y la cerramos al final. Sin embargo, para scripts más grandes, en la mayoría de los casos el tiempo de apertura de la conexión es mayor. eso. Tarda mucho más en abrirse. Por lo tanto, para ahorrar recursos del servidor, la conexión debe cerrarse tanto como sea posible para liberar los recursos ocupados por la conexión. Esta técnica de cerrar la conexión del conjunto de registros sin cerrar el conjunto de registros se denomina conjunto de registros desconectado. el conjunto de registros en sí se denomina conjunto de registros desconectado.
A continuación usaremos un ejemplo para ilustrar el uso de esta tecnología (NorthWind.mdb es una base de datos que viene con Microsoft Access97, y el archivo adovbs.inc se puede encontrar en C:/Program Files/Common Files/System/ADO):
Copie el código de código de la siguiente manera:
<% @LANGUAGE = VBScript %>
<!--#include file=adovbs.inc-->
<%
Respuesta.Expira = 0
Dim Cnn, objRS, strOut, strQ, strC
StrC= Controlador={Controlador de Microsoft Access (*.mdb)}; DBQ= & Server.MapPath(/asp24) & /NorthWind.mdb;
'Establecer conexión
Establecer Cnn = Server.CreateObject(ADODB.Connection)
CNN.OpenStrC
'Crear objeto conjunto de registros
Establecer objRS = Server.CreateObject(ADODB.Recordset)
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = SELECCIONAR ID del operador, nombre de la empresa, teléfono DEL operador
objRS.Open strQ, CNN, , , adCmdText
Establecer objRS.ActiveConnection = Nada 'Desconectar el conjunto de registros
Cnn.Close 'Cerrar la conexión
Establecer Cnn = Nada
Respuesta.Escribir <HTML><BODY>
'Utilice el conjunto de registros rotos a continuación
Hacer mientras (no objRS.EOF)
strOut = objRS(ID del remitente) &, & objRS(nombre de la empresa) &, & objRS(número de teléfono)
Respuesta.Write Server.HTMLEncode(strOut) & <BR>
objRS.MoveNext
Bucle
Response.Write <BR>Prepárese para agregar o insertar registros:
'Si necesita actualizar la base de datos, debe restablecer la conexión
Establecer Cnn = Server.CreateObject(ADODB.Connection)
CNN.Abrir strC
Establecer objRS.ActiveConnection = Cnn
objRS.Filter = Nombre de la empresa = 'Wu Feng'
Si objRS.EOF Entonces
objRS.AñadirNuevo
objRS(nombre de la empresa) = Wu Feng
objRS(teléfono) = 571-7227298
objRS.Actualizar
Response.Write Si el registro que cumple esta condición no existe, agréguelo.<BR>
Demás
objRS(teléfono) = 571-7227071
Response.Write Si existe un registro que coincida con esta condición, Update.<BR>
objRS.Actualizar
Terminar si
Establecer objRS.ActiveConnection = Nada
CNN.cerrar
Establecer Cnn = Nada
objRS.Cerrar
Establecer objRS = Nada
Respuesta.Escribir </BODY></HTML>
%>