ASP中利用application实现缓存(2)

以下为引用的内容：
<%
　　Const CACHE_DEFAULT_INTERVAL = 30 &apos;每隔30秒刷新一次cache
　　Dim HTMLStream
　　Dim IsExpires
　　IsExpires = CacheExpires
　　Function CacheExpires
　　Dim strLastUpdate
　　Dim result strLastUpdate = Application("LastUpdate")
　　If (strLastUpdate = "") Or (CACHE_DEFAULT_INTERVAL < DateDiff("s", strLastUpdate, Now)) Then
　　result = true
　　SetLastUpdateTime
　　Else
　　result = false
　　End If
　　CacheExpires = result
　　End Function
     %>

上面是一个最简单的例子。