Adapun peran caching, saya tidak perlu mengatakan lebih banyak. Perannya sudah sangat jelas, terutama untuk situs web dengan sejumlah besar informasi atau halaman database penuh. Ini dapat memanfaatkan sumber daya memori host dengan baik, mempercepat efisiensi eksekusi ASP, dan mengurangi beban pada server. Dongwang adalah yang paling menonjol dalam hal ini. Misalnya, versi DVBBS7.1.0 saat ini, bahkan telah melangkah lebih jauh dalam pemanfaatan cache. Sebagian besar operasi di kantor depan dan belakang terkait dengan cache, dan sekarang Dongwang menggunakan kelas cache Micheng Renzi. Daftar berikut adalah kelas cache ASP yang ditulis oleh tiga master Dongwang.
Ditulis oleh burung kayu
Salinan kode adalah sebagai berikut:
'********************************************
'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), tentukan apakah nilai cache sama dengan variabel 1
'Metode kedaluwarsa (waktu), memodifikasi waktu kedaluwarsa ke waktu
'Wood Bird 2002.12.24
'Http://www.aspsky.net/
'********************************************
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)
.Set 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
Endproperty
Publicsubadd (var, kedaluwarsa)
'Penugasan
ifsempty (var) ornotisdate (kedaluwarsa) lalu
EXITSUB
endif
obj = var
kedaluwarsa = kedaluwarsa
application.lock
Aplikasi (Cachename) = OBJ
Aplikasi (EXPIRETIMEName) = EXPIRETIME
application.unlock
endsub
PublicPropertyGetValue