'Waktu cache, satuan menit
Const webcachetime = 20
Tanda cache, gunakan saat memasang beberapa sistem dalam satu ruang
Const webcacheflag = cache
'Atur nama cache cache, nilai cache
Fungsi Setcache (Byval Cachename, Byval Cacheval)
Redup cacachedata
Cachename = LCase (ChangeChr (Cachename))
Cachedata = Aplikasi (WebCacheflag & Cachename)
Jika IsArray (Cachedata)
Cachedata (0) = Cachevalue
Cachedata (1) = sekarang ()
Kalau tidak
Redim Cachedata (2)
Cachedata (0) = Cachevalue
Cachedata (1) = sekarang ()
Akhiri jika
Application.lock
Aplikasi (WebCacheflag & Cachename) = Cachedata
Application.unlock
Fungsi akhir
'Dapatkan nama cache cache
Fungsi getCache (Byval Cachename)
Redup cacachedata
Cachename = LCase (ChangeChr (Cachename))
Cachedata = Aplikasi (WebCacheflag & Cachename)
If isArray (cacachedata) maka getCache = Cachedata (0) lain getCache =
Fungsi akhir
'Mendeteksi nama deposit lambat cache
Fungsi chkcache (Byval Cachename)
Redup cacachedata
Chkcache = false
Cachename = LCase (ChangeChr (Cachename))
Cachedata = Aplikasi (WebCacheflag & Cachename)
Jika bukan IsArray (Cachedata) maka fungsi keluar
Jika tidak isDate (Cachedata (1)) maka fungsi keluar
Jika tanggal (s, cdate (cacachedata (1)), sekarang ()) <60 * webcachetime lalu chkcache = true
Fungsi akhir