Afin d'améliorer les performances des programmes ASP, les gens utilisent souvent fréquemment des données mises en cache dans les applications. Cet article vise à vous apprendre à mettre en cache et à améliorer les performances des programmes ASP par le rédacteur en chef de la False New Technology Channel. J'espère qu'il vous sera utile d'apprendre ces connaissances!
Vous apprendre à mettre en cache et à améliorer les performances des programmes ASP
<%
Classe wawa_app_getrows
fonction publique wawa_get_list (StrApp, StrConn, StrSQL)
'************************************
«Fonction: extraire un tableau de l'application. Si les données de l'application sont une valeur vide, appelez la fonction wawa_get_rows () pour attribuer une valeur à l'application.
', Vous pouvez effacer la valeur d'application correspondante en vide lors de la modification de la base de données, et l'application sera automatiquement mise à jour lors de la navigation.
«Si vous mettez à jour la base de données (comme l'ajout, la modification ou la suppression des données), supprimez la variable d'application correspondante après modification de 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.knowsky.com
'************************************
Sombre wawa
wawa = application (strapp)
Si iSempty (wawa) alors
wawa = wawa_get_rows (strConn, strSql)
Application (strapp) = wawa
Terminer si
wawa_get_list = wawa
Fonction finale
fonction publique wawa_get_rows (strConn, strSql)
'************************************
'Fonction: Lisez les enregistrements de la base de données et utilisez la méthode Getrows
'Enregistrer l'enregistrement dans un tableau
'
'************************************
DIM RS_WAWA
Set rs_wawa = createObject ("adodb.recordSet")
RS_WAWA.Open StrSql, StrConn, 1,1
wawa_get_rows = rs_wawa.getrows ()
rs_wawa.close
Définir rs_wawa = rien
Fonction finale
Classe finale
%>
<%
Dim Strapp, Strsql, StrConn
strapp = "xinwendongtai"
strSql = "sélectionner les 5 meilleurs id, titre de wen où lei = 161 commande par id desc"
strConn = "Driver = {SQL Server}; server = 192.168.0.110; base de données = new; uid = sa; pwd = sa;"
définir wawa_temp = new wawa_app_getrows
arr_xinwendongtai = wawa_temp.wawa_get_list (strapp, strConn, strSql)
%>
<% Si ubund (arr_xinwendongtai) <> 0 alors%>
<% pour i = 0 à ubund (arr_xinwendongtai, 2) -1%>
<% Next%>
<% Else%>
<% Fin si%>
L'article ci-dessus vous apprend à mettre en cache et à améliorer les performances des programmes ASP. Je crois que tout le monde a une certaine compréhension. Si vous souhaitez connaître plus d'informations techniques, veuillez continuer à faire attention à la mauvaise chaîne de nouvelles technologies!