Die Codekopie lautet wie folgt:
<%
Rem=====================================================================================
REM = Klasse: Cachecls
Rem = Beschreibung: Cache -Anwendung
REM = Revision: 1.01beta
REM = Autor: Xiong Hero (Cexo255)
REM = Datum: 2005/05/618: 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: Für einige häufig verwendete und unveränderte Daten ist die Anrufgeschwindigkeit jedes Mal schneller als das Lesen aus der Datenbank.
Rem=====================================================================================
CacheName = "rl"
Classcachecls
PrivatelocalCacheame, cache_data
PublicPropertyletName (ByvalvNewValue)
LocalCacheName = Lase (vnewValue)
Cache_data = application (cacheName & "_" & LocalCacheName)
Endproperschaft
PublicPropertyletValue (ByvalvnewValue)
Dimn, I, Newvaluearr
IlocalCacheName <> "" dann
N = countinstr (vnewValue, "|")
Newvaluearr = split (vnewValue, "|",-1,1)
Redimcache_data (n)
Fei = 0ton
Cache_data (i) = newvaluearr (i)
Nächste
Application.lock
Application (cacheName & "_" & localCacheName) = cache_data
Application.unlock
Anders
Antwort.Write "Es gibt einen Fehlereinstellungscache oder der Cache-Name kann nicht leer sein. Bitte updatieren Sie den Cache."
Antwort.end ()
Endif
Endproperschaft
PublicPropertygetValue ()