<%
렘 ================================================ ================
Rem = 클래스:CacheCls
Rem = 설명: 캐시된 애플리케이션
Rem = 개정판:1.01 베타
렘 = 저자: Xiong's Hero (cexo255)
렘 = 날짜:2005/05/6 18:38:10
렘 = QQ:30133499
렘 = MySite:http://www.Relaxlife.net
Rem = 다운로드: Http://www.Relaxlife.net /cexo/Cache_pro.rar
렘 = QQ 그룹: 4341998
Rem = 적용 가능: 일반적으로 사용되지만 자주 변경되지 않는 일부 데이터를 캐시에 저장하면 매번 데이터베이스에서 읽는 것보다 호출 속도가 빠릅니다.
렘 ================================================ ================
캐시 이름 = "RL"
클래스CacheCls
비공개 LocalCacheName, Cache_Data
공용 속성 이름(ByVal vNewValue)
LocalCacheName = L케이스(vNewValue)
Cache_Data=응용프로그램(캐시이름 & "_" & LocalCacheName)
끝 속성
공용 속성 Let Value(ByVal vNewValue)
희미한 N,i,NewValueArr
LocalCacheName<>""인 경우
N = CountInStr(vNewValue,"|")
NewValueArr = 분할(vNewValue,"|",-1,1)
ReDim Cache_Data(N)
i = 0 ~ N의 경우
Cache_Data(i) = NewValueArr(i)
다음
응용프로그램.잠금
애플리케이션(CacheName & "_" & LocalCacheName) = Cache_Data
응용 프로그램.잠금 해제
또 다른
Response.Write "캐시 설정 오류가 발생했거나 캐시 이름을 비워둘 수 없습니다. 캐시를 다시 업데이트하십시오."
응답.끝()
종료 조건
끝 속성
공용 속성 값 가져오기()
LocalCacheName<>""인 경우
IsArray(Cache_Data)이면
값=Cache_Data
종료 조건
또 다른
Response.Write "캐시 설정 오류가 발생했거나 캐시 이름을 비워둘 수 없습니다. 캐시를 다시 업데이트하십시오."
응답.끝()
종료 조건
끝 속성
'지정된 캐시의 값을 가져옵니다.
공용 함수 GetCacheValue(MyCacheName)
GetCacheValue = 애플리케이션(캐시이름 & "_" & MyCacheName)
기능 종료
'모든 캐시 이름을 가져옵니다
공용 함수 GetallCacheName()
희미한 캐시오브
Application.Contents의 각 Cacheobj에 대해
GetallCacheName = GetallCacheName & Cacheobj & ","
다음
GetallCacheName = 왼쪽(GetallCacheName,Len(GetallCacheName)-1)
GetallCacheName = 바꾸기(GetallCacheName,CacheName & "_","")
기능 종료
'캐시 해제
공개 하위 DelCahe(MyCaheName)
응용프로그램.잠금
Application.Contents.Remove(캐시이름 & "_" & MyCacheName)
응용 프로그램.잠금 해제
서브 끝
'모든 캐시를 해제합니다.
공개 하위 RemoveAllCache()
희미한 캐시리스트,i
Cachelist=Split(GetallCacheName(),",")
UBound(Cachelist)>0이면
i=0에서 UBound(Cachelist)까지
DelCache 캐시리스트(i)
다음
종료 조건
서브 끝
'Str에 Char 문자가 나타나는 횟수를 셉니다.
전용 함수 CountInStr(Str,Char)
CountInStr = 0
난 어두워, 찰렌
CharLen = 렌(Char)
i = 1 ~ Len(Str)의 경우
Mid(Str, i, CharLen) = Char이면 CountInStr = CountInStr + 1
다음
End Function
End Class
Dim CachePro
CachePro = 새 CacheCl 설정
'캐시 "cexo255" 및 해당 값 설정: "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
CachePro.Name = "cexo255"
CachePro.Value = "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
'현재 캐시의 값을 가져옵니다.
'CacheArr = CachePro.Value
CachePro.Name = "wxf"
CachePro.Value = "wxf"
CachePro.Name = "dw"
CachePro.Value = "dw"
'cexo255 캐시 해제
'CachePro.DelCache("cexo255")
'모든 캐시 해제
'CachePro.RemoveAllCache
' cexo255 캐시에서 값을 가져옵니다.
CacheArr = CachePro.GetCacheValue("cexo255")
isArray(CacheArr)이면
i = 0에서 UBound(CacheArr)까지
Response.Write CacheArr(i) & "<br>"
다음
또 다른
응답."캐시 해제!!!"라고 쓰세요.
CachePro = Nothing으로 설정
되면 종료됩니다.
%>