캐싱의 역할에 관해서는 더 이상 말할 필요가 없습니다. 특히 많은 정보가있는 웹 사이트 또는 전체 데이터베이스 페이지가있는 웹 사이트의 역할은 이미 매우 명백합니다. 호스트의 메모리 리소스를 잘 활용하고 ASP의 실행 효율을 가속화하며 서버의 부담을 줄일 수 있습니다. 동은 이와 관련하여 가장 뛰어납니다. 예를 들어, 현재 DVBBS7.1.0 버전에서는 캐시 사용에 한 걸음 더 나아갔습니다. 전방 사무실에서의 대부분의 운영은 캐시와 관련이 있으며, 이제 동은 캐시 클래스의 Micheng Renzi를 사용합니다. 다음 목록은 Dongwang의 세 마스터가 작성한 ASP 캐시 클래스입니다.
나무 새가 쓴
코드 사본은 다음과 같습니다.
＇*******************************************
vbscache 클래스
／
'Attribute Valivation, 사용 가능한지 여부에 관계없이 값을 취하기 전에 판사
＇새 개체를 작성한 후 값 지정 이름, 캐시 이름, 값 지정
'메소드 추가 (값, 만료 시간), 캐시 컨텐츠를 설정하십시오
'속성 값, 반환 캐시 컨텐츠
'값이 설정되지 않았는지 여부에 따라'속성이 있습니다
'방법은 메모리, 자유 메모리, 테스트를 만듭니다
'메소드 동일 (변수 1), 캐시 값이 변수 1과 동일한 지 결정
'메소드가 만료 (시간), 만료를 수정하십시오
Wood Bird 2002.12.24
http://www.aspsky.net/
＇*******************************************
클래스 캐시
privateobj'cache 컨텐츠
privateexpiretime'expiration time
PrivateExpiretImename'Expiration Time Application Name
PrivateCachename'Cache 컨텐츠 응용 프로그램 이름
개인 경로
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)
cache 캐시 이름을 세트합니다
Cachename = str & path
OBJ = 응용 프로그램 (캐시 이름)
expireTimEname = str & "만료"& Path
expiretime = application (expiretimeMename)
엔드 프로페티
PublicpropertyLetexpires (TM)
'만료 시간을 재설정하십시오
expiretime = tm
application.lock
application (expripireTimeMeName) = expiretime
application.unlock
엔드 프로페티
publicsubadd (var, 만료)
'과제
ifsempty (var) ornotisdate (만료)
출구
endif
obj = var
expiretime = 만료
application.lock
응용 프로그램 (캐시 이름) = obj
application (expripireTimeMeName) = expiretime
application.unlock
Endsub
PublicpropertygetValue