Lorsque nous utilisons le composant ADO intégré d'ASP pour la programmation de bases de données, nous ouvrons généralement une connexion au début du script et la fermons à la fin du script. Cependant, pour les scripts plus volumineux, dans la plupart des cas, le temps d'ouverture de la connexion est plus long. ça. Il faut beaucoup plus de temps pour ouvrir. Par conséquent, afin d'économiser les ressources du serveur, la connexion doit être fermée autant que possible pour libérer les ressources occupées par la connexion. Cette technique de fermeture de la connexion du jeu d'enregistrements sans fermer le jeu d'enregistrements est appelée jeu d'enregistrements déconnecté. l'ensemble d'enregistrements lui-même est appelé un ensemble d'enregistrements déconnecté.
Ci-dessous, nous utiliserons un exemple pour illustrer l'utilisation de cette technologie (NorthWind.mdb est une base de données fournie avec Microsoft Access97, et le fichier adovbs.inc se trouve sous C:Program FilesCommon FilesSystemADO) :
＜ % @LANGUAGE= VBScript %＞
＜!--#includefile="adovbs.inc"--＞
＜%
Response.Expires = 0
Dim Cnn,objRS, strOut, strQ, strC
StrC= "Driver={Microsoft Access Driver ( * .mdb)}; DBQ=" & Server.MapPath("asp24") & "NorthWind.mdb;"
'Établir une connexion
Définir Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open StrC
'Créer un objet Recordset
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = "SELECT ID de l'opérateur, nom de l'entreprise, téléphone DE l'opérateur"
objRS.Open strQ , Cnn, , , adCmdText
Set objRS.ActiveConnection = Nothing 'Déconnecter le jeu d'enregistrements
Cnn.Close 'Fermer la connexion
Set Cnn = Nothing
Response.Write "＜HTML＞＜BODY＞"
'Utiliser le jeu d'enregistrements déconnecté
Do While (NotobjRS .EOF )
strOut = objRS("ID de l'expéditeur") & ", " & objRS("Nom de la société") & ", " & objRS("Téléphone")
Response.Write Server.HTMLEncode(strOut) & "＜BR ＞"
objRS. MoveNext
Loop
Response.Write "＜BR＞Préparez l'ajout ou l'insertion d'enregistrements : "
'Si vous devez mettre à jour la base de données, rétablissez la connexion
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open strC
Set objRS .ActiveConnection = Cnn
objRS.Filter = "Nom de la société = 'Wu Feng'"
Si objRS.EOF Then
objRS.AddNew
objRS("Nom de la société") = "Wu Feng"
objRS("Téléphone") = "571-7227298"
objRS .Update
Response.Write "Si l'enregistrement qui remplit la condition n'existe pas, alors ajoutez-le. <BR>"
Else
objRS("Téléphone") = "571-7227071"
Response.Write "Si l'enregistrement qui remplit la condition existe , puis mettre à jour. ＜BR＞"
objRS.Update
End If
Set objRS.ActiveConnection = Nothing
Cnn.close
Set Cnn = Nothing
objRS.Close
Set objRS = Nothing
Response.Write "＜/BODY＞＜/HTML＞"
%＞