Brève introduction: Généralement, la page d'accueil d'un site Web a le plus grand nombre de visites. Si la page d'accueil de votre site Web est ouverte très lentement, vos clients quitteront votre site Web les uns après l'autre. Habituellement, nous mettons en cache les données obtenues par des opérations complexes ou en interrogeant la base de données ou en générant des pages Web statiques pour améliorer les performances des applications Web. Cette fois, nous mettons directement la sortie de la page d'accueil en une chaîne et la mettons à jour régulièrement, ce qui prend en charge les performances sans affecter la rapidité de la page d'accueil. Ici, nous utilisons quelques classes personnalisées VBS, objets d'application, objets XMLHTTP et objets Adodb.Stream. Vous pouvez vérifier les informations pour comprendre les connaissances connexes.
Il est préférable d'avoir cette page et la page que vous souhaitez mettre en cache dans le même répertoire. Sinon, certaines images avec des chemins relatives ne peuvent pas être affichées. De plus, certaines pages mises en cache auront du code brouillé. Je ne sais pas comment résoudre ce problème. Vous devez peut-être définir le type de codage lors de la réponse, vous pouvez l'essayer.
La copie de code est la suivante:
<%
Dimwawa, startime, Endtime
StartIme = Timer ()
SetWawa = newcls_cache
wawa.reloadtime = 0,5
wawa.cachename = "wawa"
wawa.name = "xmlinfoindex"
Ifwawa.objisempty () thencachexmlinfoindex ()
Réponse.writewawa.value
Endtime = Timer ()
Response.Write "<br> Temps d'exécution:" & FormatNumber ((fin de temps) * 1000,5) & "MS".
Subcachexmlinfoindex ()
DIMBODYTTEX, XML
Setxml = server.createObject ("Microsoft.xmlhttp")
«Remplacez l'adresse suivante par l'adresse de fichier de votre page d'accueil. Assurez-vous d'utiliser le chemin absolu en commençant par http: //, et vous ne pouvez pas écrire le chemin relatif.
xml.open "get", "http: //onlytiancai/bak/vote/infoindex.asp", false
xml.send
BodyText = xml.Responsebody
BodyText = ByTestObstr (BodyText, "GB2312")
wawa.value = bodyText
Setxml = rien
Fin
FunctionByTestobstr (corps, CSET)
dimobjstream
setObjstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
setObjstream = rien