asp 静态页面的另一种思路

　　<%

　　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 "读取静态页面，更新于" & 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

　　%>

　　<%

　　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

　　%>