Разработка двух последних сайтов дала мне много новых идей! Я прочитал много отличных кодов, но так и не нашел шаблона, который бы меня устроил! Опираясь на конструкцию кэша, я, кажется, нашел более удобный способ мышления. На самом деле, статические страницы здесь не являются статическими в истинном смысле этого слова, но они могут достичь эффективности синтаксического анализа статических страниц. Они не тестировались проектом и публикуются здесь.
Скопируйте код кода следующим образом:
<%
Конст DEVJS_INDEX=index.html
Константа INDEX_DEFAULT_INTERVAL=300
Дим сластапдате
«Используйте приложение, чтобы сохранить время последнего обновления и вынести суждения о странице, генерируя страницу каждые 300 секунд (5 минут).
sLastUpdate=Приложение(INDEX_LAST_Update)
Если sLastUpdate= или DateDiff(s,sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Тогда
'Вызов MakeIndex() для создания страницы и одновременного изменения времени последнего обновления
СделатьИндекс()
sLastUpdate=Сейчас()
Приложение(INDEX_LAST_Update)=sLastUpdate
Response.Write превышает время по умолчанию, обновляется & sLastUpdate.
Еще
Response.Write читает статическую страницу, обновленную с помощью & sLastUpdate.
Конец, если
Response.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),GB2312)
Функция СделатьИндекс()
sContent=<hr> & Now()
Вызов SaveTextFile(Server.MapPath(DEVJS_INDEX),GB2312,sContent)
Конечная функция
%>
Если срок действия истек, обновите страницу. Если срок действия не истек, вызовите статическую страницу напрямую. Здесь также используются две функции. Вставьте их вместе. Обратите внимание, что SaveTextFile() написан в методе перезаписи.
Это предложение oStream.SaveToFile sFilePath,2
Скопируйте код кода следующим образом:
<%
Функция LoadTextFile(sFilePath,sCharset)
Тусклый поток
Установите 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
Установить oStream=Ничего
Конечная функция
Функция SaveTextFile(sFilePath,sCharset,outString)
SaveFile=false
Тусклый поток
Установите 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
Установить oStream = Ничего
SaveTextFile=истина
Конечная функция
%>
Это менее хлопотно, чем кэширование, и гораздо проще! Фактически, с помощью MakeIndex() можно делать множество вещей, например читать файлы шаблонов и заменять их.