'캐시 시간(분)
상수 WebCacheTime = 20
'캐시 플래그, 한 공간에 여러 시스템을 설치할 때 사용
Const WebCacheFlag = "Cache"
'캐시 이름 및 캐시 값 설정
함수 SetCache(ByVal CacheName, ByVal CacheValue)
희미한 캐시 데이터
캐시 이름 = Lcase(ChangeChr(캐시 이름))
CacheData = 애플리케이션(WebCacheFlag & CacheName)
IsArray(CacheData)이면
캐시데이터(0) = 캐시값
캐시데이터(1) = 지금()
또 다른
캐시 데이터 재정비(2)
캐시데이터(0) = 캐시값
캐시데이터(1) = 지금()
종료 조건
응용프로그램.잠금
애플리케이션(WebCacheFlag & CacheName) = CacheData
응용 프로그램.잠금 해제
End Function
' 캐시 캐시 이름 가져오기
함수 GetCache(ByVal CacheName)
희미한 캐시 데이터
캐시 이름 = Lcase(ChangeChr(캐시 이름))
CacheData = 애플리케이션(WebCacheFlag & CacheName)
If IsArray(CacheData) Then GetCache = CacheData(0) Else GetCache = ""
종료 기능
'캐시 캐시 이름 감지
기능 ChkCache(ByVal CacheName)
희미한 캐시 데이터
ChkCache = 거짓
캐시 이름 = Lcase(ChangeChr(캐시 이름))
CacheData = 애플리케이션(WebCacheFlag & CacheName)
IsArray(CacheData)가 아니면 함수 종료
IsDate(CacheData(1))가 아닌 경우 함수 종료
DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime이면 ChkCache = True
기능 종료