<%
'***********************************************
'vbscache 클래스
'Attribute Valivation, 사용 가능한지 여부에 관계없이 값을 취하기 전에 판사
'속성 이름, 캐시 이름, 새 개체를 작성한 후 값 지정
'메소드 추가 (값, 만료 시간), 캐시 컨텐츠를 설정하십시오
'속성 값, 반환 캐시 컨텐츠
'값이 설정되지 않았는지 여부에 따라'속성이 있습니다
'방법은 메모리, 자유 메모리, 테스트를 만듭니다
'메소드 동일 (변수 1), 캐시 값이 변수 1과 동일한 지 여부를 결정합니다.
'메소드가 만료 (시간), 만료를 수정하십시오
'Muniao가 작성한 캐시 클래스
'***********************************************
클래스 캐시
privateobj'cache 컨텐츠
privateexpiretime'expiration time
PrivateExpiretImename'Expiration Time Application Name
PrivateCachename'Cache 컨텐츠 응용 프로그램 이름
PrivatePath'uri
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)
'만료 시간을 재설정하십시오
expiretime = tm
application.lock
application (expripireTimeMeName) = expiretime
application.unlock