'เวลาแคชหน่วยนาที
const webcachetime = 20
'Cache Sign ใช้เมื่อติดตั้งหลายระบบในพื้นที่เดียว
const webcacheflag = แคช
'ตั้งค่าชื่อแคชแคชค่าแคช
ฟังก์ชั่น setCache (byval cachename, byval cacheval)
แคช Dim
cachename = lcase (Changechr (cachename)))
cachedata = แอปพลิเคชัน (WebCacheflag & Cachename)
ถ้า isarray (cachedata)
cachedata (0) = cachevalue
Cachedata (1) = ตอนนี้ ()
อื่น
Redim Cachedata (2)
cachedata (0) = cachevalue
Cachedata (1) = ตอนนี้ ()
สิ้นสุดถ้า
application.lock
แอปพลิเคชัน (WebCacheFlag & Cachename) = cachedata
application.unlock
ฟังก์ชันสิ้นสุด
'รับชื่อแคชแคช
ฟังก์ชั่น getCache (byval cachename)
แคช Dim
cachename = lcase (Changechr (cachename)))
cachedata = แอปพลิเคชัน (WebCacheflag & Cachename)
ถ้า isarray (cachedata) แล้ว getCache = cachedata (0) อื่น getCache =
ฟังก์ชันสิ้นสุด
'ตรวจจับชื่อเงินฝากช้าแคช
ฟังก์ชั่น chkcache (byval cachename)
แคช Dim
chkcache = false
cachename = lcase (Changechr (cachename)))
cachedata = แอปพลิเคชัน (WebCacheflag & Cachename)
ถ้าไม่ใช่ isarray (cachedata) ฟังก์ชันออก
ถ้าไม่ใช่ isdate (cachedata (1)) จากนั้นออกจากฟังก์ชันออก
ถ้า datediff (s, cdate (cachedata (1)), ตอนนี้ ()) <60 * webcachetime จากนั้น chkcache = true
ฟังก์ชันสิ้นสุด