Die Entwicklung der beiden aktuellen Websites hat mir viele neue Ideen gegeben! Ich habe viele hervorragende Codes gelesen, aber noch nie ein Muster gefunden, das zu mir passt! Basierend auf dem Cache-Design habe ich offenbar eine bequemere Denkweise gefunden. Tatsächlich sind die statischen Seiten hier nicht im eigentlichen Sinne statisch, können jedoch die Analyseeffizienz statischer Seiten erreichen. Sie wurden vom Projekt nicht getestet und werden hier geteilt.
Kopieren Sie den Codecode wie folgt:
<%
Const DEVJS_INDEX=index.html
Const INDEX_DEFAULT_INTERVAL=300
sLastUpdate abdunkeln
„Verwenden Sie die Anwendung, um den Zeitpunkt der letzten Aktualisierung zu speichern und Beurteilungen auf der Seite zu treffen. Dabei wird alle 300 Sekunden (5 Minuten) eine Seite generiert.
sLastUpdate=Anwendung(INDEX_LAST_Update)
Wenn sLastUpdate= oder DateDiff(s,sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Dann
'Rufen Sie MakeIndex() auf, um die Seite zu generieren und gleichzeitig die letzte Aktualisierungszeit zu ändern
MakeIndex()
sLastUpdate=Now()
Anwendung(INDEX_LAST_Update)=sLastUpdate
Response.Write überschreitet die Standardzeit, aktualisiert am & sLastUpdate
Anders
Response.Write liest die statische Seite, aktualisiert mit & sLastUpdate
Ende wenn
Response.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),GB2312)
Funktion MakeIndex()
sContent=<hr> & Now()
Rufen Sie SaveTextFile(Server.MapPath(DEVJS_INDEX),GB2312,sContent) auf.
Funktion beenden
%>
Wenn es abgelaufen ist, aktualisieren Sie die Seite. Wenn es nicht abgelaufen ist, rufen Sie die statische Seite auch hier auf. Bitte beachten Sie, dass SaveTextFile() in einer überschreibenden Methode geschrieben wird.
Dies ist der Satz oStream.SaveToFile sFilePath,2
Kopieren Sie den Codecode wie folgt:
<%
Funktion LoadTextFile(sFilePath,sCharset)
oStream dimmen
Legen Sie oStream=Server.CreateObject(ADODB.Stream) fest.
oStream.Type=2
oStream.Mode=3
oStream.Open
oStream.Charset=sCharset
oStream.Position=oStream.Size
oStream.LoadFromFile sFilePath
LoadTextFile=oStream.ReadText
oStream.Schließen
Setzen Sie oStream=Nothing
Funktion beenden
Funktion SaveTextFile(sFilePath,sCharset,outString)
SaveFile=false
oStream dimmen
Setze oStream = Server.CreateObject(ADODB.Stream)
oStream.Type=2
oStream.Mode=3
oStream.Open
oStream.Charset=sCharset
oStream.WriteText = outString
oStream.SaveToFile sFilePath,2
oStream.Schließen
Setzen Sie oStream = Nothing
SaveTextFile=true
Funktion beenden
%>
Das ist weniger mühsam als Caching und viel einfacher! Tatsächlich können Sie in MakeIndex() viele Dinge tun, z. B. Vorlagendateien lesen und ersetzen.