onlytiancai [œuvre originale]
<!--Afin d'améliorer les performances des programmes Asp, les gens mettent souvent en cache les données fréquemment utilisées dans l'application,
Mais comment mettre à jour l’application après avoir modifié la base de données ? Cet article vous propose une solution raisonnable ?
Si quelqu'un a un meilleur algorithme, merci d'en discuter dans le fil de discussion, merci
-->
<%
Classe wawa_app_getrows
Fonction publique wawa_Get_List (strapp, strconn, strsql)
'************************************
'Fonction : extrayez le tableau de l'application. Si les données de l'application sont vides, appelez la fonction wawa_Get_Rows() pour attribuer une valeur à l'application.
' , vous pouvez vider la valeur de l'application correspondante lors de la modification de la base de données, afin que l'application soit automatiquement mise à jour lors de la navigation.
' Si vous mettez à jour la base de données (par exemple, ajoutez, modifiez ou supprimez des données) puis supprimez les variables d'application correspondantes après avoir modifié la base de données,
'Utilisez l'instruction suivante pour effacer la valeur d'application spécifiée, où le paramètre strapp est le nom de la variable d'application à supprimer.
' application.Contents.Remove (strapp)
' www.downcodes.com
'************************************
Faible wawa
wawa = Application (sangle)
Si je suis vide (wawa) Alors
wawa = wawa_Get_Rows(strconn,strsql)
Application (sangle) = wawa
Fin si
wawa_Get_List = wawa
Fonction de fin
fonction publique wawa_Get_Rows(strconn,strsql)
'************************************
'Fonction : lire les enregistrements de la base de données et utiliser la méthode getrows
'Enregistrer l'enregistrement dans un tableau
'
'************************************
Dim rs_wawa
Définir rs_wawa = CreateObject("ADODB.Recordset")
rs_wawa.Open strsql,strconn,,1,1
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.Fermer
Définir rs_wawa = Rien
Fonction de fin
Fin du cours
%>
<!-- Voici un exemple pour illustrer comment utiliser la classe ci-dessus -->
<%
faible sangle, strsql, strconn
strapp="xinwendongtai"
strsql="sélectionner les 5 premiers identifiants, titre à partir de wen où lei=161 trier par identifiant desc"
strconn="Driver={serveur SQL};server=192.168.0.110;database=new;uid=sa;pwd=sa;"
définir wawa_temp=nouveau wawa_app_getrows
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<table width="100%" border="0" cellpacing="1">
<% Si ubound(arr_xinwendongtai)<>0 Alors %>
<% pour i=0 à ubound(arr_xinwendongtai,2)-1 %>
<tr>
<td><a href="view.asp?id=<%= arr_xinwendongtai(0,i) %>"><%= arr_xinwendongtai(1,i) %></a></td>
</tr>
<% prochain %>
<%Else%>
<tr>
<td>Pas de nouvelles pour l'instant</td>
</tr>
<% Fin Si %>
</table>