¡El desarrollo de los dos sitios web recientes me ha dado muchas ideas nuevas! 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í.
Copie el código de código de la siguiente manera:
<%
constante DEVJS_INDEX=index.html
Constante INDEX_DEFAULT_INTERVAL=300
Última actualización tenue
'Utilice la aplicación para guardar la hora de la última actualización y haga juicios sobre la página, generando una página cada 300 segundos (5 minutos)
sLastUpdate=Aplicación(INDEX_LAST_Update)
Si sLastUpdate= o DateDiff(s,sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Entonces
'Llame a MakeIndex() para generar la página y cambiar la hora de la última actualización al mismo tiempo
Crearíndice()
sLastUpdate=Ahora()
Aplicación(INDEX_LAST_Update)=sÚltima actualización
Response.Write excede el tiempo predeterminado, actualizado el & sLastUpdate
Demás
Response.Write lee la página estática, actualizada con & sLastUpdate
Terminar si
Respuesta.Escribir LoadTextFile(Server.MapPath(DEVJS_INDEX),GB2312)
Función CrearÍndice()
sContenido=<hora> & Ahora()
Llame a SaveTextFile(Server.MapPath(DEVJS_INDEX),GB2312,sContent)
Función final
%>
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
Copie el código de código de la siguiente manera:
<%
Función CargarArchivoTexto(sFilePath,sCharset)
Corriente tenue
Establecer oStream=Server.CreateObject(ADODB.Stream)
oStream.Type=2
oStream.Mode=3
oStream.Open
oStream.Charset=sCharset
oStream.Position=oStream.Tamaño
oStream.LoadFromFile sFilePath
LoadTextFile=oStream.ReadText
oStream.Cerrar
Establecer oStream=Nada
Función final
Función GuardarArchivoDeTexto(sFilePath,sCharset,outString)
Guardar archivo = falso
Corriente tenue
Establecer oStream = Server.CreateObject(ADODB.Stream)
oStream.Type=2
oStream.Mode=3
oStream.Open
oStream.Charset=sCharset
oStream.WriteText = cadena exterior
oStream.SaveToFile sFilePath,2
oStream.Cerrar
Establecer oStream = Nada
GuardarArchivoTexto=verdadero
Funció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.