¡Hoy es bastante gratis! ¡El desarrollo de los dos sitios web recientes me ha dado muchas ideas nuevas! También he leído muchos códigos excelentes, ¡pero nunca encontré un patrón que se adapte a mí! Basándome en el diseño del caché, parece que he encontrado una forma de pensar más conveniente. De hecho, las páginas estáticas aquí no son estáticas en el verdadero sentido, pero pueden lograr la eficiencia de análisis de las páginas estáticas. No han sido probadas por el proyecto y se comparten aquí.
<%
'Fuente del artículo: http://www.devjs.com
Const DEVJS_INDEX=index.htmlConst INDEX_DEFAULT_INTERVAL=300Dim sLastUpdate' usa la aplicación para guardar la última hora actualizada y realiza juicios sobre la página, generando una página cada 300 segundos (5 minutos) sLastUpdate=Application(INDEX_LAST_Update)If sLastUpdate= o DateDiff(s,sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Luego 'Llame a MakeIndex() para generar la página y cambiar la hora de la última actualización MakeIndex() sLastUpdate=Now() Application(INDEX_LAST_Update)=sLastUpdate Response.Write excede el tiempo predeterminado y se actualiza en & sLastUpdateElse Response.Write lee la página estática, se actualiza en & sLastUpdateEnd IfResponse.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),GB2312) Función MakeIndex() sContent=<hr> & Now() Llamada a SaveTextFile(Server.MapPath(DEVJS_INDEX),GB2312,sContent)End Function%>
Si está caducada, actualice la página. Si no está caducada, llame directamente a la página estática. Aquí también se utilizan dos funciones, péguelas juntas.
Esta es la frase oStream.SaveToFile sFilePath,2
<%Función 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 Conjunto oStream=NothingEnd Función Función 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 Establecer oStream = Nada SaveTextFile=trueFunción final%>
¡Esto es menos problemático que el almacenamiento en caché y mucho más sencillo! De hecho, puedes hacer muchas cosas en MakeIndex(), como leer archivos de plantilla y reemplazarlos.