今天還算比較空閑！最近的兩個網站的開發使我產生了不少新的想法！也閱讀過了不少優秀的代碼， 但總沒有找到一種符合自己的模式！借鑒緩存的設計，我似乎找到了一種更便捷的思路。其實這里的靜態 頁面并不是真正意義上的靜態，但可以達到了靜態頁面的解析效率，還未經項目測試，拿來分享。

<%

'文章來源:http://www.devjs.com

Const DEVJS_INDEX="index.html"Const INDEX_DEFAULT_INTERVAL=300Dim sLastUpdate'用Application保存最后更新的時間，而在頁面里做判斷，每隔300秒(5分鐘)就生成一次頁面sLastUpdate=Application("INDEX_LAST_Update")If sLastUpdate="" or DateDiff("s",sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Then　　'調用MakeIndex()生成頁面,同時更改最后更新時間　　MakeIndex()　　sLastUpdate=Now()　　Application("INDEX_LAST_Update")=sLastUpdate　　Response.Write "超出默認時間，更新于" & sLastUpdateElse　　Response.Write "讀取靜態頁面，更新于" & sLastUpdateEnd IfResponse.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),"GB2312")　　Function MakeIndex()　　sContent="<hr>" & Now()　　Call SaveTextFile(Server.MapPath(DEVJS_INDEX),"GB2312",sContent)End Function%>

如果過期就更新頁面，沒有過期直接調用靜態頁面，這里還用到了兩個函數，一并貼上，提醒注意一 下，SaveTextFile()是以覆蓋方式寫入的

就是這一句 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　　Set oStream=NothingEnd Function　　Function 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%>

這個比緩存省事，也直接的多！其實，在MakeIndex()里可以做很多事，比如讀取模板文件進行替換這 些。