Quant au rôle de la mise en cache, je n'ai pas besoin d'en dire plus. Son rôle est déjà très évident, en particulier pour les sites Web avec une grande quantité d'informations ou des pages de base de données complètes. Il peut faire bon usage des ressources mémoire de l'hôte, accélérer l'efficacité d'exécution de l'ASP et réduire la charge du serveur. Dongwang est le plus remarquable à cet égard. Par exemple, sa version actuelle DVBBS7.1.0, elle est même allée plus loin dans l'utilisation du cache. La plupart des opérations à l'avant et à l'arrière sont liées au cache, et maintenant Dongwang utilise la classe de cache de micheng Renzi. La liste suivante est la classe ASP Cache écrite par les trois maîtres de Dongwang.
Écrit par un oiseau en bois
La copie de code est la suivante:
＇**************************************************
Classe VBSCache
／
'Attribut valide, qu'il soit disponible, jugez avant de prendre la valeur
＇Nom d'attribut, nom de cache, attribuer la valeur après avoir créé un nouvel objet
'Méthode ajouter (valeur, temps d'expiration), définir le contenu du cache
'Valeur d'attribut, return Cache Content
'Attribut Blempty, si la valeur n'est pas définie
'Méthode fait de la mémoire, de la mémoire libre, du test
«Méthode égale (variable 1), déterminez si la valeur du cache est la même que la variable 1
'La méthode expire (le temps), modifiez le temps d'expiration
＇BOID WOOD 2002.12.24
＇Http://www.aspsky.net/
＇**************************************************
cache de classe
Contenu privateobj'cache
Temps d'expiration d'expiration privé
PrivateExpirememeName'expiration Time Application Name
PrivateCachename'cache Content Nom de l'application
PrivatePath＇uri
PRIVATESUBCLASS_INITIALIZE ()
path = request.servervariables ("url")
Path = Left (chemin, instrrev (chemin, "/"))
fin
PRIVATESUBCLASS_TERMINE ()
fin
publicpropertygetbleblepty
Est-ce vide
ifSempty (obj) alors
Blempty = True
autre
Blempty = false
endire
endproperty
publicpropertygetvalid
'S'il est disponible (expiré)
ifSempty (obj) ornotisdate (expiration) puis
valide = faux
ElseIfcdate (Expiretime) <maintenant
valide = faux
autre
valide = vrai
endire
endproperty
PublicPropertyletName (STR)
．Set Nom du cache
Cachename = Str & Path
obj = application (cachename)
expirememeName = str & "expire" et chemin
Expiretime = Application (ExpirememeName)
endproperty
PublicProperTyleTexpires (TM)
«Réinitialisez le temps d'expiration
Expirément = TM
application.lock
application (expirememeName) = expiration
application.unlock
endproperty
Publicsubadd (var, expire)
'Affectation
ifSempty (var) ornotisdate (expire) puis
otestub
endire
obj = var
Expiretime = expire
application.lock
application (cachename) = obj
application (expirememeName) = expiration
application.unlock
fin
PublicPropertyGetValue