<%
'***************************************************
'Classe VBSCache
'Attribut valide, qu'il soit disponible, jugez avant de prendre la valeur
'Nom d'attribut, nom de cache, attribut 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étermine si la valeur du cache est la même que la variable 1
'La méthode expire (le temps), modifiez le temps d'expiration
'La classe de cache écrite par Muniao
'***************************************************
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)
'Définir le 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