Quanto ao papel do cache, não preciso dizer mais. Sua função já é muito óbvia, especialmente para sites com uma grande quantidade de informações ou páginas completas de banco de dados. Ele pode fazer bom uso dos recursos de memória do host, acelerar a eficiência da execução do ASP e reduzir a carga no servidor. Dongwang é o mais destacado nesse sentido. Por exemplo, sua versão atual DVBBS7.1.0, ele até deu um passo adiante na utilização do cache. A maioria das operações nos escritórios da frente e para trás está relacionada ao cache, e agora Dongwang usa a classe de cache de Micheng Renzi. A lista a seguir é a classe de cache ASP escrita pelos três mestres de Dongwang.
Escrito por um pássaro de madeira
A cópia do código é a seguinte:
＇**************************************************
＇Classe vbscache
／
'Atributo válido, esteja disponível, juiz antes de tomar o valor
＇Nome do atributo, nome do cache, atribua valor após criar um novo objeto
'Método Adicionar (valor, tempo de expiração), defina o conteúdo do cache
'Valor do atributo, conteúdo de cache de retorno
'Atributo Blempy, se o valor não está definido
'Método torna a memória livre, a memória, o teste
'Método igual (variável 1), determine se o valor do cache é o mesmo que a variável 1
'O método expira (tempo), modifique o tempo de vencimento
＇Pássaro de madeira 2002.12.24
＇Http://www.aspsky.net/
＇**************************************************
ClassCache
Conteúdo privadoBJ'cache
PrivateExpireTime'expuration Tempo
PrivateExpiretimeName'expiration Time Application Nome
PrivateCachename'cache Content Application Nome
privatePath＇uri
privatesubclass_initialize ()
Path = request.Servervariables ("URL")
caminho = esquerda (Path, Instrrev (Path, "/"))
endsub
privatesubclass_terminate ()
endsub
PublicPropertygetblempty
Está vazio
ifSEmpty (OBJ) então
Blemanha = Verdadeiro
outro
Blempty = False
endif
EndProperty
publicPropertyGetValid
'Se está disponível (expirado)
ifSEmpty (obj) ornotisdate (expireTime) então
válido = false
elseifcdate (expireTime) <agora
válido = false
outro
válido = true
endif
EndProperty
PublicPropertyLetName (STR)
． Nome do cache do conjunto
Cachename = STR & PATH
Obj = Aplicação (Cachename)
expiretimeName = str & "expira" e caminho
expireTime = Application (EXPIRETIMENOME)
EndProperty
PublicPropertyletexpires (TM)
'Redefina o tempo de validade
expireTime = tm
Application.lock
APLICAÇÃO (EXPIRETIMENONE) = EXPIRTIME
Application.unlock
EndProperty
Publicsubadd (var, expire)
'Atribuição
ifSEmpty (var) ornotisdate (expire) Então
Exitsub
endif
obj = var
expireTime = expire
Application.lock
Aplicação (Cachename) = OBJ
APLICAÇÃO (EXPIRETIMENONE) = EXPIRTIME
Application.unlock
endsub
publicPropertyGetValue