La copie de code est la suivante:
<%
Rem=====================================================================================
Rem = classe: cachecls
REM = Description: Application de cache
Rem = révision: 1.01beta
REM = auteur: Xiong Hero (CEXO255)
REM = Date: 2005/05/618: 38: 10
REM = QQ: 30133499
Rem = mysite: http: //www.relaxlife.net
Rem = Télécharger: http://www.relaxlife.net/cexo/cache_pro.rar
REM = groupe QQ: 4341998
REM = applicable: pour certaines données couramment utilisées et inchangées, la vitesse d'appel est plus rapide que la lecture de la base de données à chaque fois.
Rem=====================================================================================
Cachename = "rl"
Cachecles de classe
Privatelocalcachename, cache_data
PublicProperTyletName (ByValVnewValue)
Localcachename = lCase (vNewValue)
Cache_data = application (cachename & "_" & localcachename)
Endproperty
PublicProperTyletValue (ByValVnewValue)
Dimn, i, newvaluearr
Iflocalcachename <> "" puis
N = countInStr (vNewValue, "|")
NewValueArr = Split (vNewValue, "|", - 1,1)
Redimcache_data (n)
Fori = 0ton
Cache_data (i) = newValuearr (i)
Suivant
Application.lock
Application (cachename & "_" & localcachename) = cache_data
Application.unlock
Autre
Response.Write "Il y a un cache de définition d'erreur, ou le nom du cache ne peut pas être vide, veuillez re-mettre à jour le cache"
Réponse.end ()
Endire
Endproperty
PublicPropertyGetValue ()