A cópia do código é a seguinte:
<%
Rem ==================================================================================================================================
REM = Classe: Cachecls
REM = Descrição: Aplicativo de cache
REM = Revisão: 1.01beta
REM = Autor: Xiong Hero (Cexo255)
Rem = Data: 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 = Grupo QQ: 4341998
REM = aplicável: Para alguns dados comumente usados e inalterados, a velocidade da chamada é mais rápida do que a leitura do banco de dados todas as vezes.
Rem ==================================================================================================================================
Cachename = "rl"
ClassCachecls
Privatelocalcachename, cache_data
PublicPropertyLetName (ByValvNewValue)
LocalCachename = LCase (VNewValue)
Cache_data = aplicativo (Cachename & "_" & LocalCachename)
EndProperty
PublicPropertyLetValue (ByValvNewValue)
Dimn, i, newvaluearr
Iflocalcachename <> "" então
N = countInstr (vNewValue, "|")
Newvaluearr = split (vNewValue, "|",-1,1)
Redimcache_data (n)
Fori = 0ton
Cache_data (i) = newvaluearr (i)
Próximo
Application.lock
Aplicativo (Cachename & "_" & LocalCachename) = cache_data
Application.unlock
Outro
Response.Write "Existe um cache de configuração de erro ou o nome do cache não pode estar vazio, por favor, reimpere o cache"
Response.end ()
Endif
EndProperty
PublicPropertyGetValue ()