Code de classe de cache d'espace à huit degrés
La copie de code est la suivante:
<%
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'url
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)