Kode kelas cache ruang angkasa delapan derajat
Salinan kode adalah sebagai berikut:
<%
ClassCache
Konten privateObj'cache
Waktu Ekspirasi PrivateExpiretime
Nama Aplikasi Waktu PrivateExpiretimename'Expiration
nama aplikasi konten privatecachename'cache
PrivatePath'url
privatesubclass_initialize ()
path = request.serverVariable ("url")
path = kiri (path, instrrev (path, "/"))
endsub
privatesubclass_terminate ()
endsub
PublicPropertyGetBlempty
'Apakah itu kosong
ifsempty (obj) lalu
blempty = true
kalau tidak
blempty = false
endif
Endproperty
PublicPropertyGetValid
'Apakah itu tersedia (kedaluwarsa)
ifsempty (obj) ornotisdate (kedaluwarsa) kemudian
valid = false
elseifcdate (kedaluwarsa) <nowthen
valid = false
kalau tidak
valid = true
endif
Endproperty
publicpropertyletname (str)
'Atur nama cache
Cachename = str & path
OBJ = Aplikasi (Cachename)
EXPIRETIMEName = str & "kedaluwarsa" & jalur
EXPIRETIME = APLIKASI (EXPIRETIMEName)
Endproperty
PublicPropertyletExires (TM)