asp 靜態(tài)頁面的另一種思路

更新時間：2008年10月21日 13:51:47 作者：

最近的兩個網站的開發(fā)使我產生了不少新的想法！也閱讀過了不少優(yōu)秀的代碼，但總沒有找到一種符合自己的模式！借鑒緩存的設計，我似乎找到了一種更便捷的思路。

其實這里的靜態(tài)頁面并不是真正意義上的靜態(tài)，但可以達到了靜態(tài)頁面的解析效率，還未經項目測試，拿來分享。

<% 
Const DEVJS_INDEX="index.html" 
Const INDEX_DEFAULT_INTERVAL=300 
Dim 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 "超出默認時間，更新于" & sLastUpdate 
Else 
Response.Write "讀取靜態(tài)頁面，更新于" & sLastUpdate 
End If 
Response.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),"GB2312") 

Function MakeIndex() 
sContent="<hr>" & Now() 
Call SaveTextFile(Server.MapPath(DEVJS_INDEX),"GB2312",sContent) 
End Function 
%>

如果過期就更新頁面，沒有過期直接調用靜態(tài)頁面，這里還用到了兩個函數(shù)，一并貼上，提醒注意一下，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=Nothing 
End 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=true 
End Function 
%> 