Hoje é bastante gratuito! O desenvolvimento dos dois sites recentes me deu muitas ideias novas! Também li muitos códigos excelentes, mas nunca encontrei um padrão que me agradasse! Com base no design do cache, parece que encontrei uma maneira mais conveniente de pensar. Na verdade, as páginas estáticas aqui não são estáticas no verdadeiro sentido, mas podem atingir a eficiência de análise das páginas estáticas. Elas não foram testadas pelo projeto e são compartilhadas aqui.
<%
'Fonte do artigo: http://www.devjs.com
Const DEVJS_INDEX=index.htmlConst INDEX_DEFAULT_INTERVAL=300Dim sLastUpdate' usa o aplicativo para salvar a hora da última atualização e faz julgamentos na página, gerando uma página a cada 300 segundos (5 minutos) sLastUpdate=Application(INDEX_LAST_Update)If sLastUpdate= ou DateDiff(s,sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Then 'Chame MakeIndex() para gerar a página e alterar o horário da última atualização MakeIndex() sLastUpdate=Now() Application(INDEX_LAST_Update)=sLastUpdate Response.Write excede o tempo padrão e é atualizado em & sLastUpdateElse Response.Write lê a página estática, atualizada em & sLastUpdateEnd IfResponse.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),GB2312) Função MakeIndex() sContent=<hr> & Now() Chamada SaveTextFile(Server.MapPath(DEVJS_INDEX),GB2312,sContent)End Function%>
Se estiver expirado, atualize a página. Se não estiver expirado, chame a página estática diretamente. Duas funções também são usadas aqui.
Esta é a frase oStream.SaveToFile sFilePath,2
<%Função 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 Definir oStream=NothingEnd Função Função 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 = Nada Função SaveTextFile=trueEnd%>
Isso é menos problemático do que armazenar em cache e muito mais simples! Na verdade, você pode fazer muitas coisas em MakeIndex(), como ler arquivos de modelo e substituí-los.