8도 우주 캐시 클래스 코드
코드 사본은 다음과 같습니다.
<%
클래스 캐시
privateobj'cache 컨텐츠
privateexpiretime'expiration time
PrivateExpiretImename'Expiration Time Application Name
PrivateCachename'Cache 컨텐츠 응용 프로그램 이름
PrivatePath'Url
privatesubclass_initialize ()
Path = request.servervariables ( "url")
path = 왼쪽 (Path, Instrev (Path, "/"))
Endsub
privatesubclass_terminate ()
Endsub
PublicpropertygetBlempty
'비어 있습니다
그런 다음 ifsempty (obj)
blempty = true
또 다른
blempty = false
endif
엔드 프로페티
PublicpropertygetValid
'사용 가능한지 (만료)
ifsempty (obj) ornotisdate (expiretime)
유효 = 거짓
elseifcdate (expiretime) <nowthen
유효 = 거짓
또 다른
유효 = 참
endif
엔드 프로페티
publpropertyletname (str)
'캐시 이름을 설정합니다
Cachename = str & path
OBJ = 응용 프로그램 (캐시 이름)
expireTimEname = str & "만료"& Path
expiretime = application (expiretimeMename)
엔드 프로페티
PublicpropertyLetexpires (TM)