onlytiancai [Originalwerk]
<!--Um die Leistung von Asp-Programmen zu verbessern, werden häufig verwendete Daten häufig in Anwendungen zwischengespeichert.
Aber wie aktualisieren Sie die Anwendung, nachdem Sie die Datenbank geändert haben? Dieser Artikel bietet Ihnen eine sinnvolle Lösung.
Wenn jemand einen besseren Algorithmus hat, diskutieren Sie ihn bitte im Thread, danke
->
<%
Klasse wawa_app_getrows
öffentliche Funktion wawa_Get_List(strapp,strconn,strsql)
'***********************************
'Funktion: Extrahieren Sie das Array aus der Anwendung. Wenn die Daten in der Anwendung leer sind, rufen Sie die Funktion wawa_Get_Rows() auf, um der Anwendung einen Wert zuzuweisen.
' können Sie den entsprechenden Anwendungswert beim Ändern der Datenbank löschen, damit die Anwendung beim Durchsuchen automatisch aktualisiert wird.
' Wenn Sie die Datenbank aktualisieren (z. B. Daten hinzufügen, ändern oder löschen), entfernen Sie nach der Änderung der Datenbank die entsprechenden Anwendungsvariablen.
'Verwenden Sie die folgende Anweisung, um den angegebenen Anwendungswert zu löschen, wobei der Strapp-Parameter der Name der zu entfernenden Anwendungsvariablen ist
' application.Contents.Remove(strapp)
' www.downcodes.com
'***********************************
Schwaches Wawa
wawa = Bewerbung(strapp)
Wenn es leer ist (wawa), dann
wawa = wawa_Get_Rows(strconn,strsql)
Anwendung(strapp) = wawa
Ende wenn
wawa_Get_List = wawa
Endfunktion
öffentliche Funktion wawa_Get_Rows(strconn,strsql)
'***********************************
'Funktion: Datensätze aus der Datenbank lesen und die Methode getrows verwenden
'Speichern Sie den Datensatz in einem Array
'
'***********************************
Dim rs_wawa
Setze rs_wawa = CreateObject("ADODB.Recordset")
rs_wawa.Strsql,strconn,,1,1 öffnen
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.Schließen
Setze rs_wawa = Nichts
Funktion beenden
Unterricht beenden
%>
<!-- Hier ist ein Beispiel, um zu veranschaulichen, wie die obige Klasse verwendet wird -->
<%
dim strapp,strsql,strconn
strapp="xinwendongtai"
strsql="Wählen Sie die Top-5-ID,Titel aus wen, wobei lei=161 nach ID sortiert wird, desc"
strconn="Driver={sql server};server=192.168.0.110;database=new;uid=sa;pwd=sa;"
setze wawa_temp=new wawa_app_getrows
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<table width="100%" border="0" cellpacing="1">
<% If ubound(arr_xinwendongtai)<>0 Then %>
<% für i=0 bis ubound(arr_xinwendongtai,2)-1 %>
<tr>
<td><a href="view.asp?id=<%= arr_xinwendongtai(0,i) %>"><%= arr_xinwendongtai(1,i) %></a></td>
</tr>
<% weiter %>
<%Else%>
<tr>
<td>Noch keine Neuigkeiten</td>
</tr>
<% End If %>
</table>