Salinan kode adalah sebagai berikut:
<%
Rem ============================================================================================================
REM = Kelas: CacheCls
REM = Deskripsi: Aplikasi cache
REM = Revisi: 1.01Beta
Rem = Penulis: Xiong Hero (CEXO255)
REM = Tanggal: 2005/05/618: 38: 10
REM = QQ: 30133499
Rem = mySite: http: //www.relaxlife.net
Rem = unduh: http://www.relaxlife.net/cexo/cache_pro.rar
REM = QQ Group: 4341998
REM = Berlaku: Untuk beberapa data yang umum digunakan dan tidak berubah, kecepatan panggilan lebih cepat daripada membaca dari database setiap saat.
Rem ============================================================================================================
Cachename = "rl"
ClassCachecls
PrivatelocalCachename, Cache_data
Publicpropertyletname (byvalvnewValue)
Localcachename = lcase (vnewValue)
Cache_data = Aplikasi (Cachename & "_" & LocalCachename)
Endproperty
PublicPropertyletValue (BYVALVNEWVALUE)
Dimn, I, NewValuearr
Iflocalcachename <> "" lalu
N = Countinstr (VnewValue, "|")
NewValuearr = split (vnewValue, "|",-1,1)
Redimcache_data (n)
Fori = 0ton
Cache_data (i) = newValuearr (i)
Berikutnya
Application.lock
Aplikasi (Cachename & "_" & LocalCachename) = Cache_data
Application.unlock
Kalau tidak
Response.write "Ada cache pengaturan kesalahan, atau nama cache tidak bisa kosong, silakan unggulan ulang cache"
Response.end ()
Endif
Endproperty
PublicpropertygetValue ()