Кода -копия выглядит следующим образом:
<%
Rem =======================================================================================
Rem = класс: cachecls
REM = Описание: Кэш Приложение
REM = пересмотр: 1.01Beta
Rem = автор: Xiong Hero (Cexo255)
REM = Дата: 2005/05/618: 38: 10
REM = QQ: 30133499
Rem = mysite: http: //www.relaxlife.net
Rem = скачать: http://www.relaxlife.net/cexo/cache_pro.rar
REM = QQ Группа: 4341998
REM = применимо: для некоторых обычно используемых и неизменных данных скорость вызова быстрее, чем чтение из базы данных каждый раз.
Rem =======================================================================================
Cachename = "rl"
ClassCachecls
PrivateLocalCachename, cache_data
Publicpropertyletname (byvalvnewvalue)
Localcachename = lcase (vnewvalue)
Cache_data = приложение (cachename & "_" & localcachename)
EndProperty
PublicPropertyletValue (ByvalvnewValue)
Dimn, I, Newvaluearr
Iflocalcachename <> "" Тогда
N = countryInstr (vnewValue, "|")
Newvaluearr = split (vnewvalue, "|",-1,1)
Redimcache_data (n)
Fori = 0ton
Cache_data (i) = newvaluearr (i)
Следующий
Application.lock
Приложение (Cachename & "_" & localCachename) = cache_data
Application.unlock
Еще
Response.write "Существует кэш настройки ошибки, или имя кэша не может быть пустым, пожалуйста, повторно обновите кэш"
Response.end ()
Эндиф
EndProperty
Publicpropertygetvalue ()