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 del script. 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 FilesCommon FilesSystemADO):
＜ % @LANGUAGE= VBScript %＞
＜!--#includefile="adovbs.inc"--＞
＜%
Response.Expires = 0
Dim Cnn,objRS, strOut, strQ, strC
StrC= "Driver={Controlador de Microsoft Access ( * .mdb)}; DBQ=" & Server.MapPath("asp24") & "NorthWind.mdb;"
'Establecer una conexión
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open StrC
'Crear un objeto Recordset
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
Set objRS.ActiveConnection = Nothing 'Desconectar el conjunto de registros
Cnn.Close 'Cerrar la conexión
Set Cnn = Nada
Response.Write "＜HTML＞＜BODY＞"
'Usar el conjunto de registros desconectados
Do While (NotobjRS .EOF )
strOut = objRS("ID del remitente") & ", " & objRS("Nombre de la empresa") & ", " & objRS("Teléfono")
Respuesta.Write Server.HTMLEncode(strOut) & "＜BR ＞"
objRS. MoveNext
Loop
Response.Escriba "＜BR＞Prepárese para agregar o insertar registros: "
'Si necesita actualizar la base de datos, restablezca la conexión
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open strC
Set objRS .ActiveConnection = Cnn
objRS.Filter = "Nombre de la empresa = 'Wu Feng'"
Si objRS.EOF Entonces
objRS.AddNew
objRS("Nombre de la empresa") = "Wu Feng"
objRS("Teléfono") = "571-7227298"
objRS .Update
Response.Write "Si el registro que cumple con la condición no existe, agréguelo. <BR>"
Else
objRS("Teléfono") = "571-7227071"
Response.Write "Si el registro que cumple con la condición existe , luego Actualizar ＜BR＞"
objRS.Update
End If
Establecer objRS.ActiveConnection = Nada
Cnn.close
Establecer Cnn = Nada
objRS.Close
Establecer objRS = Nada
Respuesta.Escribir "＜/BODY＞＜/HTML＞"
%＞