Aujourd'hui, c'est tout à fait gratuit ! Le développement des deux sites récents m'a donné beaucoup de nouvelles idées ! J'ai aussi lu beaucoup d'excellents codes, mais je n'ai jamais trouvé de modèle qui me convienne ! En m'appuyant sur la conception du cache, il me semble avoir trouvé une façon de penser plus pratique. En fait, les pages statiques ici ne sont pas statiques au vrai sens du terme, mais elles peuvent atteindre l'efficacité d'analyse des pages statiques. Elles n'ont pas été testées par le projet et sont partagées ici.
<%
'Source de l'article : http://www.devjs.com
Const DEVJS_INDEX=index.htmlConst INDEX_DEFAULT_INTERVAL=300Dim sLastUpdate' utilise l'application pour enregistrer l'heure de la dernière mise à jour et porte des jugements sur la page, générant une page toutes les 300 secondes (5 minutes) sLastUpdate=Application(INDEX_LAST_Update)Si sLastUpdate= ou DateDiff(s,sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Puis 'Appelez MakeIndex() pour générer la page et modifier l'heure de la dernière mise à jour MakeIndex() sLastUpdate=Now() Application(INDEX_LAST_Update)=sLastUpdate Response.Write dépasse l'heure par défaut et est mis à jour dans & sLastUpdateElse Response.Write lit la page statique, mise à jour à & sLastUpdateEnd IfResponse.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),GB2312) Fonction MakeIndex() sContent=<hr> & Now() Appeler SaveTextFile(Server.MapPath(DEVJS_INDEX),GB2312,sContent)End Function%>
Si elle est expirée, mettez à jour la page. Si elle n'est pas expirée, appelez directement la page statique. Deux fonctions sont également utilisées ici. Veuillez noter que SaveTextFile() est écrite dans une méthode d'écrasement.
C'est la phrase 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 Ensemble oStream=NothingEnd Fonction Fonction 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%>
C’est moins compliqué que la mise en cache et bien plus simple ! En fait, vous pouvez faire beaucoup de choses dans MakeIndex(), comme lire des fichiers modèles et les remplacer.