'キャッシュ時間 (分単位)
Const WebCacheTime = 20
' キャッシュ フラグ。複数のシステムを 1 つのスペースにインストールするときに使用されます。
Const WebCacheFlag = "Cache"
'キャッシュ名とキャッシュ値を設定します
関数 SetCache(ByVal CacheName, ByVal CacheValue)
ディムキャッシュデータ
キャッシュ名 = LCase(ChangeChr(キャッシュ名))
CacheData = アプリケーション(WebCacheFlag & CacheName)
IsArray(CacheData) の場合
キャッシュデータ(0) = キャッシュ値
CacheData(1) = Now()
それ以外
ReDim キャッシュデータ(2)
キャッシュデータ(0) = キャッシュ値
CacheData(1) = Now()
終了の場合
アプリケーション.ロック
アプリケーション(WebCacheFlag & CacheName) = キャッシュデータ
アプリケーション.ロック解除
End Function
' キャッシュのキャッシュ名を取得
関数 GetCache(ByVal キャッシュ名)
ディムキャッシュデータ
キャッシュ名 = LCase(ChangeChr(キャッシュ名))
CacheData = アプリケーション(WebCacheFlag & CacheName)
If IsArray(CacheData) then GetCache = CacheData(0) Else GetCache = ""
関数終了
'キャッシュキャッシュ名検出
関数 ChkCache(ByVal キャッシュ名)
ディムキャッシュデータ
ChkCache = False
キャッシュ名 = LCase(ChangeChr(キャッシュ名))
CacheData = アプリケーション(WebCacheFlag & CacheName)
IsArray(CacheData) でない場合は関数を終了します
IsDate(CacheData(1)) でない場合は関数を終了します
DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime の場合、ChkCache = True
終了機能