Wenn wir die in ASP integrierte ADO-Komponente für die Datenbankprogrammierung verwenden, öffnen wir normalerweise eine Verbindung am Anfang des Skripts und schließen sie am Ende des Skripts. Bei größeren Skripten ist die Verbindungsöffnungszeit jedoch in den meisten Fällen länger Das. Das Öffnen dauert viel länger. Um Serverressourcen zu sparen, sollte die Verbindung daher so weit wie möglich geschlossen werden, um die von der Verbindung belegten Ressourcen freizugeben. Diese Technik zum Schließen der Verbindung des Datensatzes, ohne den Datensatzsatz zu schließen, wird als getrennter Datensatzsatz bezeichnet Der Datensatz selbst wird als getrennter Datensatz bezeichnet.
Im Folgenden veranschaulichen wir anhand eines Beispiels die Verwendung dieser Technologie (NorthWind.mdb ist eine Datenbank, die mit Microsoft Access97 geliefert wird, und die Datei adovbs.inc finden Sie unter C:/Program Files/Common Files/System/ADO):
Kopieren Sie den Codecode wie folgt:
<% @LANGUAGE = VBScript %>
<!--#include file=adovbs.inc-->
<%
Response.Expires = 0
Dim Cnn,objRS, strOut, strQ, strC
StrC= Driver={Microsoft Access Driver (*.mdb)}; DBQ= & Server.MapPath(/asp24) & /NorthWind.mdb;
'Verbindung herstellen
Setze Cnn = Server.CreateObject(ADODB.Connection)
Cnn.OpenStrC
'Recordset-Objekt erstellen
Setze objRS = Server.CreateObject(ADODB.Recordset)
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = SELECT Carrier ID, Firmenname, Telefon FROM Carrier
objRS.Open strQ, Cnn, , , adCmdText
Set objRS.ActiveConnection = Nothing 'Trennen Sie die Verbindung zum Recordset
Cnn.Close 'Verbindung schließen
Setze Cnn = Nichts
Response.Write <HTML><BODY>
„Verwenden Sie den defekten Datensatz unten.“
Do While (Nicht objRS.EOF)
strOut = objRS(Versender-ID) & , & objRS(Firmenname) & , & objRS(Telefonnummer)
Response.Write Server.HTMLEncode(strOut) & <BR>
objRS.MoveNext
Schleife
Response.Write <BR>Bereiten Sie das Hinzufügen oder Einfügen von Datensätzen vor:
„Wenn Sie die Datenbank aktualisieren müssen, müssen Sie die Verbindung erneut herstellen.“
Setze Cnn = Server.CreateObject(ADODB.Connection)
Cnn.Open strC
Legen Sie objRS.ActiveConnection = Cnn fest
objRS.Filter = Firmenname = 'Wu Feng'
Wenn objRS.EOF Dann
objRS.AddNew
objRS(Firmenname) = Wu Feng
objRS(Telefon) = 571-7227298
objRS.Update
Response.Write Wenn der Datensatz, der diese Bedingung erfüllt, nicht vorhanden ist, fügen Sie ihn hinzu.<BR>
Anders
objRS(Telefon) = 571-7227071
Response.Write Wenn ein Datensatz vorhanden ist, der dieser Bedingung entspricht, Update.<BR>
objRS.Update
Ende wenn
Setze objRS.ActiveConnection = Nothing
Cnn.schließen
Setze Cnn = Nichts
objRS.Schließen
Setze objRS = Nichts
Response.Write </BODY></HTML>
%>