'Waktu cache dalam hitungan menit
Konstan WebCacheTime = 20
'Bendera cache, digunakan ketika menginstal beberapa sistem dalam satu ruang
Const WebCacheFlag = "Cache"
'Tetapkan nama cache dan nilai cache
Fungsi SetCache(ByVal CacheName, ByVal CacheValue)
Redupkan Data Cache
Nama Cache = LCase(UbahChr(Nama Cache))
CacheData = Aplikasi (WebCacheFlag & Nama Cache)
Jika IsArray(CacheData) Lalu
CacheData(0) = Nilai Cache
Data Cache(1) = Sekarang()
Kalau tidak
Redupkan Ulang Data Cache(2)
CacheData(0) = Nilai Cache
Data Cache(1) = Sekarang()
Akhiri Jika
Aplikasi.Kunci
Aplikasi (WebCacheFlag & CacheName) = CacheData
Aplikasi.Buka Kunci
Fungsi Akhir
' Dapatkan nama cache cache
Fungsi GetCache(ByVal CacheName)
Redupkan Data Cache
Nama Cache = LCase(UbahChr(Nama Cache))
CacheData = Aplikasi (WebCacheFlag & Nama Cache)
Jika IsArray(CacheData) Maka GetCache = CacheData(0) Lain GetCache = ""
Fungsi Akhir
'Deteksi nama cache cache
Fungsi ChkCache(ByVal CacheName)
Redupkan Data Cache
ChkCache = Salah
Nama Cache = LCase(UbahChr(Nama Cache))
CacheData = Aplikasi (WebCacheFlag & Nama Cache)
Jika Bukan IsArray(CacheData) Kemudian Keluar dari Fungsi
Jika Bukan IsDate(CacheData(1)) Kemudian Keluar dari Fungsi
Jika DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime Maka ChkCache = True
Fungsi Akhir