Asp中缓存cache技术的应用(2)
来源：互联网 责任编辑：栏目编辑 发表时间:2013-07-01 05:14 点击:次
| 以下为引用的内容： getcache.asp <% Const CACHE_DEFAULT_INTERVAL = 30 '每隔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
Sub SetLastupdateTime |
