Что касается роли кэширования, мне не нужно говорить больше. Его роль уже очень очевидна, особенно для веб -сайтов с большим количеством информации или полной страницы базы данных. Он может хорошо использовать ресурсы памяти хоста, ускорить эффективность выполнения ASP и уменьшить бремя на сервере. Донгванг - самый выдающийся в этом отношении. Например, его текущая версия DVBBS7.1.0, она даже сделала шаг дальше в использовании кеша. Большинство операций в передней и задней части офиса связаны с кэшем, и теперь Донгванг использует класс Cache Micheng Renzi. Следующий список - это класс ASP Cache, написанный тремя мастерами Dongwang.
Написано деревянной птицей
Кода -копия выглядит следующим образом:
＇*********************************************
＇Класс VBScache
／
'Атрибут действителен, независимо от того, доступен ли он, судья перед тем, как принять стоимость
＇Имя атрибута, имя кеша, значение назначения после создания нового объекта
'Method Add (значение, время истечения), установить содержание кеша
'Значение атрибута, контент возврата кеша
'Атрибут Blemply, независимо от того, не установлено ли значение
«Метод делает пумпти, свободная память, тест
Метод равен (переменная 1), определите, является ли значение кэша таким же, как переменная 1
Срок действия метода истекает (время), изменяйте время истечения срока действия
＇Wood Bird 2002.12.24
＇Http://www.aspsky.net/
＇*********************************************
ClassCache
PrivateObj'Cache Content
PrivateExpireTime'Expiration время
PrivateExpireTimEname'Expiration Time Имя приложения
PrivateCachEname'cache Content ame Имя приложения
PrivatePath＇uri
privatesubclass_initialize ()
path = request.servervariables ("url")
path = left (path, instrrev (path, "/"))
заканчивая
privatesubclass_mterminate ()
заканчивая
publicpropertygetblempty
． Это пусто
ifsempty (obj) тогда
blempty = true
еще
Blempty = false
эндиф
EndProperty
publicpropertygetvalid
'Доступно ли это (истек)
ifsempty (obj) ornotisdate (expiration -time) тогда
vaility = false
elseifcdate (expitreTime) <nowwhen
vaility = false
еще
достоверно = true
эндиф
EndProperty
publicpropertyletname (str)
．Set Имя кэша
cachename = str & path
obj = приложение (Cachename)
expireTimEname = str & "истекает" & Path
expireTime = приложение (ExteTimeName)
EndProperty
publicpropertyletexpires (TM)
'Сбросить время истечения
expiretime = tm
Application.lock
Приложение (expireTimEname) = ExtireTime
Application.unlock
EndProperty
publicsubadd (var, истекает)
'Назначение
ifsempty (var) ornotisdate (истекает), затем
Exitsub
эндиф
obj = var
expitreTime = истечь
Application.lock
Приложение (Cachename) = obj
Приложение (expireTimEname) = ExtireTime
Application.unlock
заканчивая
publicpropertygetvalue