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:ProgrammeGemeinsame DateienSystemADO):
＜ % @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;"
'Eine Verbindung herstellen
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open StrC
'Erstellen ein Recordset-Objekt
Set 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 den Datensatzsatz
Cnn.Close 'Schließen Sie die Verbindung
Set Cnn = Nothing
Response.Write "＜HTML＞＜BODY＞"
'Verwenden Sie den getrennten Datensatzsatz
Do While (NotobjRS .EOF )
strOut = objRS("Versender-ID") & ", " & objRS("Firmenname") & ", " & objRS("Telefon")
Response.Write Server.HTMLEncode(strOut) & "＜BR ＞"
objRS. MoveNext
Loop
Response.Write "＜BR＞Bereiten Sie das Hinzufügen oder Einfügen von Datensätzen vor: "
'Wenn Sie die Datenbank aktualisieren müssen, stellen Sie die Verbindung erneut her.
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open strC
Set objRS .ActiveConnection = Cnn
objRS.Filter = "Company Name = 'Wu Feng'"
If objRS.EOF Then
objRS.AddNew
objRS("Company Name") = "Wu Feng"
objRS("Telephone") = "571-7227298"
objRS .Update
Response.Write „Wenn der Datensatz, der die Bedingung erfüllt, nicht vorhanden ist, fügen Sie ihn hinzu. <BR>“
Else
objRS(“Telephone“) = „571-7227071“
Response.Write „Wenn der Datensatz, der die Bedingung erfüllt, vorhanden ist , dann Aktualisieren. ＜BR＞"
objRS.Update
End If
Set objRS.ActiveConnection = Nothing
Cnn.close
Set Cnn = Nothing
objRS.Close
Set objRS = Nothing
Response.Write "＜/BODY＞＜/HTML＞"
%＞