'캐시 시간, 단위 분
Const WebCachetime = 20
'캐시 부호, 한 공간에 여러 시스템을 설치할 때 사용하십시오.
const webcacheflag = 캐시
'캐시 캐시 이름, 캐시 값을 설정하십시오
함수 setCache (Byval Cachename, Byval Cacheval)
희미한 캐시 다다
Cachename = lcase (Changechr (캐시 이름))
Cachedata = Application (WebCacheflag & Cachename)
IF ISARRAY (Cachedata)
Cachedata (0) = Cachevalue
Cachedata (1) = now ()
또 다른
REDIM CACHEDATA (2)
Cachedata (0) = Cachevalue
Cachedata (1) = now ()
끝 If
application.lock
응용 프로그램 (WebCacheflag & Cachename) = 캐시 다다
application.unlock
엔드 기능
'캐시 캐시 이름을 얻으십시오
기능 getCache (byval Cachename)
희미한 캐시 다다
Cachename = lcase (Changechr (캐시 이름))
Cachedata = Application (WebCacheflag & Cachename)
iSarray (Cachedata) 인 경우 getCache = Cachedata (0) else getCache =
엔드 기능
'캐시 느린 입금 이름을 감지하십시오
기능 chkcache (byval cachename)
희미한 캐시 다다
chkcache = false
Cachename = lcase (Changechr (캐시 이름))
Cachedata = Application (WebCacheflag & Cachename)
IsArray (Cachedata)가 아닌 경우 기능을 종료하십시오
ISDATE (Cachedata (1))이 아닌 경우 기능을 종료하십시오
datediff (s, cdate (cachedata (1)), now ()) <60 * WebCachetime이면 chkcache = true.
엔드 기능