<%
Rem ============================================== ================
Rem = Klasse:CacheCls
Rem = Beschreibung: Zwischengespeicherte Anwendung
Rem = Revision:1.01 Beta
Rem = Autor: Xiong’s Hero (cexo255)
Rem = Datum: 6.05.2005 18:38:10
Rem = QQ:30133499
Rem = MySite:Http://www.Relaxlife.net
Rem = Download: Http://www.Relaxlife.net /cexo/Cache_pro.rar
Rem = QQ-Gruppe: 4341998
Rem = Anwendbar: Legen Sie einige häufig verwendete, aber selten geänderte Daten in den Cache, und die Aufrufgeschwindigkeit ist jedes Mal schneller als das Lesen aus der Datenbank.
Rem ============================================== ================
CacheName = "RL"
ClassCacheCls
Privater LocalCacheName, Cache_Data
Öffentliche Eigenschaft Let Name(ByVal vNewValue)
LocalCacheName = LCase(vNewValue)
Cache_Data=Application(CacheName & „_“ & LocalCacheName)
End-Eigenschaft
Öffentliche Eigenschaft Let Value(ByVal vNewValue)
Dim N,i,NewValueArr
Wenn LocalCacheName<>"" Dann
N = CountInStr(vNewValue,"|")
NewValueArr = Split(vNewValue,"|",-1,1)
ReDim Cache_Data(N)
Für i = 0 bis N
Cache_Data(i) = NewValueArr(i)
Nächste
Anwendungssperre
Anwendung(CacheName & „_“ & LocalCacheName) = Cache_Data
Application.unLock
Anders
Response.Write „Fehler beim Festlegen des Caches oder der Cache-Name darf nicht leer sein. Bitte aktualisieren Sie den Cache erneut.“
Response.End()
Ende wenn
End-Eigenschaft
Öffentliches Eigentum Get Value()
Wenn LocalCacheName<>"" Dann
Wenn IsArray(Cache_Data) Dann
Wert=Cache_Data
Ende wenn
Anders
Response.Write „Fehler beim Festlegen des Caches oder der Cache-Name darf nicht leer sein. Bitte aktualisieren Sie den Cache erneut.“
Response.End()
Ende wenn
End-Eigenschaft
'Den Wert im angegebenen Cache abrufen
Öffentliche Funktion GetCacheValue(MyCacheName)
GetCacheValue = Application(CacheName & „_“ & MyCacheName)
Funktion beenden
'Alle Cache-Namen abrufen
Öffentliche Funktion GetallCacheName()
Dim Cacheobj
Für jedes Cacheobj in Application.Contents
GetallCacheName = GetallCacheName & Cacheobj & ","
Nächste
GetallCacheName = Left(GetallCacheName,Len(GetallCacheName)-1)
GetallCacheName = Replacement(GetallCacheName,CacheName & „_“, „“)
Funktion beenden
'Cache freigeben
Öffentlicher Sub DelCahe(MyCaheName)
Anwendungssperre
Application.Contents.Remove(CacheName & „_“ & MyCacheName)
Application.unLock
Sub beenden
'Alle Caches freigeben
Öffentlicher Sub RemoveAllCache()
Dim Cachelist, ich
Cachelist=Split(GetallCacheName(),",")
Wenn UBound(Cachelist)>0, dann
Für i=0 bis UBound(Cachelist)
DelCache Cachelist(i)
Nächste
Ende wenn
Sub beenden
'Zählen Sie, wie oft das Zeichen Char in Str vorkommt
Private Funktion CountInStr(Str,Char)
CountInStr = 0
Dim i,CharLen
CharLen = Len(Char)
Für i = 1 bis Len(Str)
Wenn Mid(Str, i, CharLen) = Char, dann CountInStr = CountInStr + 1
Nächste
Endfunktion
Endklasse
Dim CachePro
Legen Sie CachePro = New CacheCls fest
'Setze den Cache „cexo255“ und seinen Wert: „cexo2551|cexo2552|cexo2553|cexo2554|cexo2555“
CachePro.Name = "cexo255"
CachePro.Value = "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
'Den Wert im aktuellen Cache abrufen
'CacheArr = CachePro.Value
CachePro.Name = "wxf"
CachePro.Value = "wxf"
CachePro.Name = "dw"
CachePro.Value = "dw"
'Cache cexo255 freigeben
'CachePro.DelCache("cexo255")
'Alle Caches freigeben
'CachePro.RemoveAllCache
'Den Wert im cexo255-Cache abrufen
CacheArr = CachePro.GetCacheValue("cexo255")
Wenn isArray(CacheArr) Dann
Für i = 0 bis UBound(CacheArr)
Response.Write CacheArr(i) & „<br>“
Nächste
Anders
Response.Write „Cache freigegeben!!!“
Ende, wenn
CachePro = Nothing gesetzt ist
%>