ASP比较常用的缓存函数技巧

'缓存时间，单位分钟jJg中国设计秀
Const WebCacheTime = 20jJg中国设计秀
'缓存标示，用于一个空间安装多个系统时使用jJg中国设计秀
Const WebCacheFlag = "Cache"jJg中国设计秀

' 设置缓存 缓存名，缓存值jJg中国设计秀
Function SetCache(ByVal CacheName, ByVal CacheValue)jJg中国设计秀
    Dim CacheDatajJg中国设计秀
    CacheName = LCase(ChangeChr(CacheName))jJg中国设计秀
    CacheData = application(WebCacheFlag & CacheName)jJg中国设计秀
    If IsArray(CacheData) ThenjJg中国设计秀
        CacheData(0) = CacheValuejJg中国设计秀
        CacheData(1) = Now()jJg中国设计秀
    ElsejJg中国设计秀
        ReDim CacheData(2)jJg中国设计秀
        CacheData(0) = CacheValuejJg中国设计秀
        CacheData(1) = Now()jJg中国设计秀
    End IfjJg中国设计秀
    Application.LockjJg中国设计秀
    Application(WebCacheFlag & CacheName) = CacheDatajJg中国设计秀
    Application.UnLockjJg中国设计秀
End FunctionjJg中国设计秀

' 获取缓存 缓存名jJg中国设计秀
Function GetCache(ByVal CacheName)jJg中国设计秀
    Dim CacheDatajJg中国设计秀
    CacheName = LCase(ChangeChr(CacheName))jJg中国设计秀
    CacheData = Application(WebCacheFlag & CacheName)jJg中国设计秀
    If IsArray(CacheData) Then GetCache = CacheData(0) Else GetCache = ""jJg中国设计秀
End FunctionjJg中国设计秀

' 检测缓存 缓存名jJg中国设计秀
Function ChkCache(ByVal CacheName)jJg中国设计秀
    Dim CacheDatajJg中国设计秀
    ChkCache = FalsejJg中国设计秀
    CacheName = LCase(ChangeChr(CacheName))jJg中国设计秀
    CacheData = Application(WebCacheFlag & CacheName)jJg中国设计秀
    If Not IsArray(CacheData) Then Exit FunctionjJg中国设计秀
    If Not IsDate(CacheData(1)) Then Exit FunctionjJg中国设计秀
    If DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime Then ChkCache = TruejJg中国设计秀
End FunctionjJg中国设计秀