成人免费在线观看视频-国产绿帽子多p交换视频-精品国产一区av-免费xx视频-人妻熟妇乱又伦精品视频中文字幕-特级毛片内射www无码

ASP比較常用的緩存函數(shù)技巧

2012/10/16 9:34:53   閱讀:3666    發(fā)布者:3666

空間安裝多個系統(tǒng)時使用,ASP比較常用的緩存函數(shù)技巧
Const WebCacheFlag = "Cache"

' 獲取緩存 緩存名
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

' 設(shè)置緩存 緩存名,緩存值
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

主站蜘蛛池模板: 免费三级现频在线观看播放| 男女同房做爰爽免费| 欧美性潮喷xxxxx免费视频看| 久热re这里精品视频在线6| 国产精品无码久久av嫩草| 亚洲国产无线乱码在线观看| 极品无码国模国产在线观看| 精品久久久久久| 国产精品午睡沙发系列| 伊人久久综合热线大杳蕉| 999zyz玖玖资源站永久| 国产精品免费久久久久电影| 亚洲一区二区三区含羞草| 亚洲暴爽av天天爽日日碰| 一边啪啪一边呻吟av夜夜嗨| 成本人无码h无码动漫在线网站| 欧美成人精品三级在线观看| 国产看黄网站又黄又爽又色| 无码h肉动漫在线观看免费| 国模冰莲极品自慰人体| 日韩乱码人妻无码中文字幕久久| 久久丫精品国产| 亚洲v国产v欧美v久久久久久| 久久久久青草线综合超碰| 蜜臀av在线播放| 正在播放重口老熟女露脸| 日本特黄特色aaa大片免费| 欧美一区二区三区播放| 亚洲一区二区无码偷拍| 中文字幕av一区二区三区人妻少妇| 亚洲欧美日韩成人一区二区三区 | 久久这里只精品国产免费10| 亚洲中文字幕aⅴ天堂自拍| 亚洲国产成人精品无码一区二区 | 人人摸人人搞人人透| 无码国模国产在线观看免费| 久久av无码αv高潮αv喷吹 | 波多野结衣av一区二区无码| 极品少妇被猛得白浆直流草莓视频 | 亚洲成aⅴ人在线电影| 最新亚洲人成无码网www电影|