<%
'*************************************************
'Kelas VBSCACHE
'Atribut valid, apakah tersedia, menilai sebelum mengambil nilainya
'Nama atribut, nama cache, tetapkan nilai setelah membuat objek baru
'Metode add (nilai, waktu kedaluwarsa), atur konten cache
'Nilai atribut, kembalikan konten cache
'Atribut blempty, apakah nilainya tidak ditetapkan
'Metode MakeMepty, Free Memory, Test
'Metode sama (variabel 1), menentukan apakah nilai cache sama dengan variabel 1
'Metode kedaluwarsa (waktu), memodifikasi waktu kedaluwarsa ke waktu
'Kelas cache yang ditulis oleh muniao
'*************************************************
ClassCache
Konten privateObj'cache
Waktu Ekspirasi PrivateExpiretime
Nama Aplikasi Waktu PrivateExpiretimename'Expiration
nama aplikasi konten privatecachename'cache
PrivatePath'uri
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)
'Setel ulang waktu kedaluwarsa
kedaluwarsa = tm
application.lock
Aplikasi (EXPIRETIMEName) = EXPIRETIME
application.unlock