成人免费在线观看视频-国产绿帽子多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

主站蜘蛛池模板: 永久黄网站色视频免费直播| 无遮挡啪啪摇乳动态图gif| 成人性做爰aaa片免费看不忠| 国产精品美女乱子伦高| 欧美人做人爱a全程免费| 2025国产精品自拍| 日本亲与子乱人妻hd| 国产成人精品一区二区不卡| 国产精品午夜爆乳美女视频| 国产小受呻吟gv视频在线观看| 国产精品欧美久久久久无广告| 成av人片在线观看www| 嫩b人妻精品一区二区三区| 国产av一区二区精品凹凸| 菠萝蜜视频在线观看入口| 婷婷五月综合丁香在线| 国产精品久久777777| 又黄又猛又爽大片免费| 欧美亚洲色综久久精品国产| 成人影视国产在线| 亚洲国产欧美在线人成aaaa| 国产精品白丝av网站| 色8久久人人97超碰香蕉987 | 亚洲 国产 韩国 欧美 在线| 亚洲色精品vr一区二区三区| 西西4444www大胆无码| 久久精品国产清高在天天线| 精品久久久中文字幕人妻 | 亚洲欧美经典| 国产亚洲精品久久久闺蜜| 最新高清无码专区| 中文有码无码人妻在线短视频| 东京无码熟妇人妻av在线网址| 四虎精品成人影院在线观看| 兔费看少妇性l交大片免费| 秋霞人妻无码中文字幕| 大香伊蕉在人线国产最新75| av亚欧洲日产国码无码| 亚洲人成在线影院| 亚洲精品入口一区二区乱| 男女下面进入的视频|