코드 사본은 다음과 같습니다.
<%
rem ================================================================================================================================
rem = 클래스 : Cachecls
REM = 설명 : 캐시 애플리케이션
REM = 개정 : 1.01BETA
REM = 저자 : Xiong Hero (CEXO255)
REM = 날짜 : 2005/05/618 : 38 : 10
REM = QQ : 30133499
rem = mysite : http : //www.relaxlife.net
rem = 다운로드 : http://www.relaxlife.net/cexo/cache_pro.rar
REM = QQ 그룹 : 4341998
REM = 적용 가능 : 일반적으로 사용되고 변경되지 않은 일부 데이터의 경우 호출 속도가 매번 데이터베이스에서 읽는 것보다 빠릅니다.
rem ================================================================================================================================
Cachename = "rl"
ClassCachecls
privatelocalcachename, cache_data
PublicPropertyletName (ByValvNewValue)
LocalCachename = lcase (vnewvalue)
CACHE_DATA = 응용 프로그램 (Cachename & "_"및 LocalCachename)
엔드 프로페티
PublicPropertyletValue (byvalvnewvalue)
Dimn, I, Newvaluearr
iflocalcachename <> "" "그런 다음
n = countinstr (vnewValue, "|")
newValueArr = split (vnewValue, "|", -1,1)
redimcache_data (n)
fori = 0ton
CACHE_DATA (I) = NewValueArr (I)
다음
application.lock
응용 프로그램 (Cachename & "_"& localCachename) = Cache_Data
application.unlock
또 다른
response.write "오류 설정 캐시가 있거나 캐시 이름이 비어 있지 않아 캐시를 다시 업데이트하십시오".
응답 ()
endif
엔드 프로페티
PublicPropertygetValue ()