Kurze Einführung: Im Allgemeinen hat die Homepage einer Website die größte Anzahl von Besuchen. Wenn die Homepage Ihrer Website sehr langsam eröffnet wird, lassen Ihre Kunden Ihre Website nacheinander. Normalerweise werden die Daten, die durch komplexe Operationen erhalten werden oder die Datenbank abfragen, zwischenspeichern oder statische Webseiten generieren, um die Leistung von Webanwendungen zu verbessern. Dieses Mal werden wir direkt die Ausgabe der Homepage in eine Zeichenfolge zwischenspeichern und regelmäßig aktualisieren, was die Leistung erledigt, ohne die Aktualität der Homepage zu beeinflussen. Hier verwenden wir einige benutzerdefinierte VBS -Klassen, Anwendungsobjekte, XMLHTTP -Objekte und Adodb.Stream -Objekte. Sie können die Informationen überprüfen, um das verwandte Wissen zu verstehen.
Es ist am besten, diese Seite und die Seite zu haben, die Sie im selben Verzeichnis zwischenspeichern möchten. Andernfalls können einige Bilder mit relativen Pfaden nicht angezeigt werden. Darüber hinaus haben einige zwischengespeicherte Seiten verstümmelte Code. Ich weiß nicht, wie ich dieses Problem lösen soll. Vielleicht müssen Sie den Codierungsart beim Antworten festlegen, Sie können es versuchen.
Die Codekopie lautet wie folgt:
<%
Dimwawa, Startzeit, Endzeit
Startime = Timer ()
Setwawa = newcls_cache
WAWA.Reloadtime = 0,5
Wawa.cachename = "Wawa"
wawa.name = "xmlinfoIndex"
Ifwawa.objisempty () thencachexmlinfoIndex ()
Response.writeWawa.Value
Endime = Timer ()
Response.write "<br> Ausführungszeit:" & formatnumber ((Endzeitstartzeit)*1000,5) & "MS".
SubcachexmlinfoIndex ()
DimbodyText, xml
Setxml = server.createObject ("microsoft.xmlhttp"))
'Ersetzen Sie die folgende Adresse durch die Dateiadresse Ihrer Homepage. Verwenden Sie unbedingt den absoluten Pfad, beginnend mit http: //, und Sie können den relativen Pfad nicht schreiben.
xml.open "get", ", http: //onlytiancai/bak/vote/infoindex.asp", false
xml.send
BodyText = xml.responsebody
BodyText = byTestObstr (bodyText, "gb2312")
Wawa.Value = bodyText
Setxml = nichts
Ende
FunktionByTestObstr (Körper, 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 = nichts