<%
Rem ===== ================
Rem = kelas:CacheCls
Rem = Deskripsi: Aplikasi yang di-cache
Rem = Revisi: 1.01 Beta
Rem = Penulis: Pahlawan Xiong (cexo255)
Rem = Tanggal:2005/05/6 18:38:10
Rem = QQ:30133499
Rem = Situs Saya:Http://www.Relaxlife.net
Rem = Unduh: Http://www.Relaxlife.net /cexo/Cache_pro.rar
Rem = grup QQ: 4341998
Rem = Berlaku: Masukkan beberapa data yang umum digunakan tetapi jarang diubah ke dalam cache, dan kecepatan panggilan lebih cepat daripada membaca dari database setiap saat.
Rem ===== ================
Nama Cache = "RL"
ClassCacheCls
NamaCache Lokal Pribadi, Cache_Data
Nama Izinkan Properti Publik (ByVal vNewValue)
NamaCache Lokal = LCase(vNilai Baru)
Cache_Data=Aplikasi(Nama Cache & "_" & NamaCache Lokal)
Properti Akhir
Nilai Izin Properti Publik (ByVal vNewValue)
Redupkan N,i,NewValueArr
Jika LocalCacheName<>"" Lalu
N = HitungInStr(vNilai Baru,"|")
NewValueArr = Pisahkan(vNewValue,"|",-1,1)
Redupkan Ulang Cache_Data(N)
Untuk i = 0 sampai N
Cache_Data(i) = NilaiBaruArr(i)
Berikutnya
Aplikasi.Kunci
Aplikasi(Nama Cache & "_" & NamaCache Lokal) = Cache_Data
Aplikasi.buka kunci
Kalau tidak
Response.Tulis "Error setting cache, atau nama cache tidak boleh kosong, silahkan update cache lagi"
Respon.Akhir()
Akhiri Jika
Properti Akhir
Properti Publik Dapatkan Nilai()
Jika LocalCacheName<>"" Lalu
Jika IsArray(Cache_Data) Lalu
Nilai=Cache_Data
Akhiri Jika
Kalau tidak
Response.Tulis "Error setting cache, atau nama cache tidak boleh kosong, silahkan update cache lagi"
Respon.Akhir()
Akhiri Jika
Properti Akhir
'Dapatkan nilai dalam cache yang ditentukan
Fungsi Publik GetCacheValue (MyCacheName)
GetCacheValue = Aplikasi(Nama Cache & "_" & NamaCache Saya)
Fungsi Akhir
'Dapatkan semua nama cache
Fungsi Publik GetallCacheName()
Redupkan Cacheobj
Untuk Setiap Cacheobj di Aplikasi.Isi
GetallCacheName = GetallCacheName & Cacheobj & ","
Berikutnya
GetallCacheName = Kiri(GetallCacheName,Len(GetallCacheName)-1)
GetallCacheName = Ganti(GetallCacheName,CacheName & "_","")
Fungsi Akhir
'Lepaskan cache
Sub DelCahe Publik (Nama Cahe Saya)
Aplikasi.Kunci
Aplikasi.Isi.Hapus(Nama Cache & "_" & NamaCache Saya)
Aplikasi.buka kunci
Akhiri Sub
'Lepaskan semua cache
Sub Publik HapusSemuaCache()
Redupkan Daftar Cache, i
Daftar Cache=Pisahkan(GetallCacheName(),",")
Jika UBound(Cachelist)>0 Lalu
Untuk i=0 hingga UBound(Daftar cache)
Daftar Cache DelCache(i)
Berikutnya
Akhiri Jika
Akhiri Sub
'Hitung berapa kali karakter Char muncul di Str
Fungsi Pribadi CountInStr(Str,Char)
HitungInStr = 0
Redupkan aku, CharLen
CharLen = Len(Char)
Untuk i = 1 sampai Len(Str)
Jika Mid(Str, i, CharLen) = Char Maka CountInStr = CountInStr + 1
Berikutnya
Fungsi Akhir
Akhiri Kelas
Redupkan CachePro
Setel CachePro = CacheCls Baru
'Setel cache "cexo255" dan nilainya: "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
CachePro.Nama = "cexo255"
CachePro.Nilai = "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
'Dapatkan nilai di cache saat ini
'CacheArr = CachePro.Nilai
CachePro.Nama = "wxf"
CachePro.Nilai = "wxf"
CachePro.Nama = "dw"
CachePro.Value = "dw"
'Lepaskan cache cexo255
'CachePro.DelCache("cexo255")
'Lepaskan semua cache
'CachePro.RemoveAllCache
'Dapatkan nilai di cache cexo255
CacheArr = CachePro.GetCacheValue("cexo255")
Jika isArray(CacheArr) Lalu
Untuk i = 0 hingga UBound(CacheArr)
Respon.Tulis CacheArr(i) & "<br>"
Berikutnya
Kalau tidak
Respon.Tulis "Cache dirilis!!!"
Berakhir jika
Set CachePro = Tidak Ada
%>