ASP比较常用的缓存函数

'缓存时间，单位分钟

Const WebCacheTime = 20

'缓存标示，用于一个空间安装多个系统时使用

Const WebCacheFlag = "Cache"

' 设置缓存 缓存名，缓存值

Function SetCache(ByVal CacheName, ByVal CacheValue)

Dim CacheData

CacheName = LCase(ChangeChr(CacheName))

CacheData = Application(WebCacheFlag & CacheName)

If IsArray(CacheData) Then

CacheData(0) = CacheValue

CacheData(1) = Now()

Else

ReDim CacheData(2)

CacheData(0) = CacheValue

CacheData(1) = Now()

End If

Application.Lock

Application(WebCacheFlag & CacheName) = CacheData

Application.UnLock

End Function

' 获取缓存 缓存名

Function GetCache(ByVal CacheName)

Dim CacheData

CacheName = LCase(ChangeChr(CacheName))

CacheData = Application(WebCacheFlag & CacheName)

If IsArray(CacheData) Then GetCache = CacheData(0) Else GetCache = ""

End Function

' 检测缓存 缓存名

Function ChkCache(ByVal CacheName)

Dim CacheData

ChkCache = False

CacheName = LCase(ChangeChr(CacheName))

CacheData = Application(WebCacheFlag & CacheName)

If Not IsArray(CacheData) Then Exit Function

If Not IsDate(CacheData(1)) Then Exit Function

If DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime Then ChkCache = True

End Function