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 Files/Common Files/System/ADO) :
Copiez le code comme suit :
<% @LANGUAGE = VBScript %>
<!--#include file=adovbs.inc-->
<%
Réponse.Expire = 0
Dim Cnn, objRS, strOut, strQ, strC
StrC= Pilote={Pilote Microsoft Access (*.mdb)} ; DBQ= & Server.MapPath(/asp24) & /NorthWind.mdb ;
'Établir la connexion
Définir Cnn = Server.CreateObject (ADODB.Connection)
Cnn.OpenStrC
'Créer un objet Recordset
Définir 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
Définir Cnn = Rien
Réponse.Write <HTML><BODY>
'Utilisez le jeu d'enregistrements cassé ci-dessous
Faire pendant (pas objRS.EOF)
strOut = objRS(ID de l'expéditeur) & , & objRS(nom de l'entreprise) & , & objRS(numéro de téléphone)
Réponse.Write Server.HTMLEncode(strOut) & <BR>
objRS.MoveNext
Boucle
Response.Write <BR>Préparez-vous à ajouter ou insérer des enregistrements :
'Si vous devez mettre à jour la base de données, vous devez rétablir la connexion
Définir Cnn = Server.CreateObject (ADODB.Connection)
Cnn.Ouvrir strC
Définir objRS.ActiveConnection = Cnn
objRS.Filter = Nom de l'entreprise = 'Wu Feng'
Si objRS.EOF Alors
objRS.AddNew
objRS(nom de l'entreprise) = Wu Feng
objRS(téléphone) = 571-7227298
objRS.Mise à jour
Response.Write Si l'enregistrement qui remplit cette condition n'existe pas, ajoutez-le.<BR>
Autre
objRS(téléphone) = 571-7227071
Response.Write Si un enregistrement correspondant à cette condition existe, Update.<BR>
objRS.Mise à jour
Fin si
Définir objRS.ActiveConnection = Rien
Cnn.close
Définir Cnn = Rien
objRS.Fermer
Définir objRS = Rien
Réponse.Ecrire </BODY></HTML>
%>