Heute ist ganz umsonst! Die Entwicklung der beiden aktuellen Websites hat mir viele neue Ideen gegeben! Ich habe auch viele hervorragende Codes gelesen, aber ich habe 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.
<%
„Quelle des Artikels: http://www.devjs.com
Const DEVJS_INDEX=index.htmlConst INDEX_DEFAULT_INTERVAL=300Dim sLastUpdate' verwendet die Anwendung, um den Zeitpunkt der letzten Aktualisierung zu speichern, beurteilt die Seite und generiert alle 300 Sekunden (5 Minuten) eine Seite. sLastUpdate=Application(INDEX_LAST_Update)Wenn sLastUpdate= oder DateDiff(s,sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Dann 'Rufen Sie MakeIndex() auf, um die Seite zu generieren und die letzte Aktualisierungszeit zu ändern. MakeIndex() sLastUpdate=Now() Application(INDEX_LAST_Update)=sLastUpdate Response.Write überschreitet die Standardzeit und wird in & sLastUpdateElse aktualisiert. Response.Write liest die statische Seite, aktualisiert in & sLastUpdateEnd IfResponse.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),GB2312) Function MakeIndex() sContent=<hr> & Now() Call SaveTextFile(Server.MapPath(DEVJS_INDEX),GB2312,sContent)End Function%>
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
<%Function LoadTextFile(sFilePath,sCharset) Dim oStream Set oStream=Server.CreateObject(ADODB.Stream) oStream.Type=2 oStream.Mode=3 oStream.Open oStream.Charset=sCharset oStream.Position=oStream.Size oStream.LoadFromFile sFilePath LoadTextFile=oStream.ReadText oStream.Close Set oStream=NothingEnd Function Function SaveTextFile(sFilePath,sCharset,outString) SaveFile=false Dim oStream Set oStream = Server.CreateObject(ADODB.Stream) oStream.Type=2 oStream.Mode=3 oStream.Open oStream.Charset=sCharset oStream.WriteText = outString oStream.SaveToFile sFilePath,2 oStream.Close Set oStream = Nothing SaveTextFile=trueEnd Function%>
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.