Um die Leistung von ASP -Programmen zu verbessern, verwenden Menschen häufig zwischengespeicherte Daten in Anwendungen. In diesem Artikel geht es darum, Sie zu lehren, die Leistung von ASP -Programmen durch den Herausgeber des falschen neuen Technologiekanals zu unterrichten und zu verbessern. Ich hoffe, es wird für Sie hilfreich sein, dieses Wissen zu lernen!
Lehre dir, wie man die Leistung von ASP -Programmen zwischenspeichert und verbessert
<%
Klasse WAWA_APP_GETROWS
Öffentliche Funktion WAWA_get_List (Strapp, Strconn, Strsql)
'*************************************************
'Funktion: Extrahieren Sie ein Array aus der Anwendung. Wenn die Daten in der Anwendung ein leerer Wert sind, rufen Sie die Funktion wawa_get_rows () auf, um der Anwendung einen Wert zuzuweisen.
', Sie können den entsprechenden Anwendungswert bei der Änderung der Datenbank in leer löschen, und die Anwendung wird beim Surfen automatisch aktualisiert.
'Wenn Sie die Datenbank aktualisieren (z. B. Hinzufügen, Änderungen oder Löschen von Daten), entfernen Sie die entsprechende Anwendungsvariable nach der Änderung der Datenbank.
„Verwenden Sie die folgende Anweisung, um den angegebenen Anwendungswert zu löschen, wobei der Strapp -Parameter der Name der zu beseitigen Anwendungsvariablen ist
'Application.Contents.remove (Strapp)
'www.knowsky.com
'*************************************************
Dim Wawa
Wawa = Anwendung (Strapp)
Wenn Isempty (Wawa) dann
WAWA = WAWA_GET_ROWS (strconn, strsql)
Application (strapp) = wawa
Ende wenn
WAWA_get_List = Wawa
Endfunktion
Öffentliche Funktion WAWA_get_Rows (Strconn, Strsql)
'*************************************************
'Funktion: Lesen Sie Datensätze aus der Datenbank und verwenden Sie die GetRows -Methode
'Speichern Sie den Datensatz in ein Array
''
'*************************************************
Dim Rs_wawa
Setzen Sie rs_wawa = createObject ("adodb.recordset")
rs_wawa.open strsql, strconn, 1,1
WAWA_get_rows = rs_wawa.getrows ()
RS_WAWA.CLOSE
Setzen Sie rs_wawa = nichts
Endfunktion
Endklasse
%>
<%
Dim Strapp, Strsql, Strconn
strapp = "xinwendongtai"
STRSQL = "SELECT TOP 5 ID, Titel von Wen wobei Lei = 161 bestellen nach ID desc"
strconn = "treiber = {SQL Server}; Server = 192.168.0.110; Datenbank = new; uid = sa; pwd = sa;"
Setzen Sie WAWA_TEMP = new Wawa_app_getrows
arr_xinwendongtai = wawa_temp.wawa_get_list (strapp, strconn, strsql)
%>
< % If Ubund (arr_xinwendongtai) <> 0, dann %>
< % für i = 0 bis ubund (arr_xinwendongtai, 2) -1 %>
< % Next %>
< % Sonst %>
< % Ende wenn %>
Der obige Artikel lehrt Sie, wie Sie die Leistung von ASP -Programmen zwischenspeichern und verbessern. Ich glaube, jeder hat ein gewisses Verständnis. Wenn Sie weitere technische Informationen wissen möchten, achten Sie bitte weiter auf den falschen neuen Technologiekanal!