Acht-Grad-Space-Cache-Klassencode
Die Codekopie lautet wie folgt:
<%
Klassiker
privatobj'cache Inhalt
privatexpiretime'expirationszeit
privatexpiretimename'expirationszeit Anwendungsname
privateCacheName'cache Inhaltsanwendungsname
Privatpath'url
privateSubclass_initialize ()
Path = Request.Servervariables ("URL")
Pfad = links (Pfad, Instrument (Pfad, "/"))
Ende
privateSubclass_terminate ()
Ende
publicPropertygetBlempty
'Ist es leer?
ifSeMpty (obj) dann
Blempty = true
anders
Blempty = false
Endif
Endproperschaft
PublicPropertygetValid
'Ob es verfügbar ist (abgelaufen)
ifSeMpty (obj) ornotisdate (Verfallszeit) dann
gültig = false
ElseifcDate (Verfallszeit) <NowThen
gültig = false
anders
gültig = true
Endif
Endproperschaft
PublicPropertyletname (STR)
'Setzen Sie den Cache -Namen
CacheName = Str & Path
OBJ = Anwendung (CacheName)
Verfehlername = STR & "Abgeläuft" & Pfad
Versiegelung = Anwendung (Vergleich)
Endproperschaft
PublicPropertylleTexpires (TM)