asp實現靜態頁面的一種思路

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

<%

'文章來源: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()裡可以做很多事，比如讀模數板檔案進行替換這 些。