'เวลาแคชเป็นนาที
ค่าคอนสต์ WebCacheTime = 20
'การตั้งค่าสถานะแคช ใช้เมื่อติดตั้งหลายระบบในพื้นที่เดียว
Const WebCacheFlag = "แคช"
'ตั้งชื่อแคชและค่าแคช'
ฟังก์ชั่น SetCache (ByVal CacheName, ByVal CacheValue)
Dim CacheData
ชื่อแคช = LCase(ChangeChr(CacheName))
CacheData = แอปพลิเคชัน (WebCacheFlag & CacheName)
ถ้า IsArray(CacheData) แล้ว
ข้อมูลแคช(0) = ค่าแคช
ข้อมูลแคช(1) = ตอนนี้()
อื่น
ReDim ข้อมูลแคช(2)
ข้อมูลแคช(0) = ค่าแคช
ข้อมูลแคช(1) = ตอนนี้()
สิ้นสุดถ้า
แอปพลิเคชั่นล็อค
แอปพลิเคชัน (WebCacheFlag & CacheName) = CacheData
แอปพลิเคชั่นปลดล็อค
ฟังก์ชันสิ้นสุด
' รับชื่อแคชแคช
ฟังก์ชั่น GetCache (ByVal CacheName)
Dim CacheData
ชื่อแคช = LCase(ChangeChr(CacheName))
CacheData = แอปพลิเคชัน (WebCacheFlag & CacheName)
ถ้า IsArray(CacheData) ดังนั้น GetCache = CacheData(0) Else GetCache = ""
สิ้นสุดฟังก์ชัน
'ตรวจหาชื่อแคชแคช'
ฟังก์ชั่น ChkCache (ByVal CacheName)
Dim CacheData
ChkCache = เท็จ
ชื่อแคช = LCase(ChangeChr(CacheName))
CacheData = แอปพลิเคชัน (WebCacheFlag & CacheName)
หากไม่ใช่ IsArray (CacheData) ให้ออกจากฟังก์ชัน
ถ้าไม่ใช่ IsDate(CacheData(1)) ให้ออกจากฟังก์ชัน
ถ้า DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime จากนั้น ChkCache = True
ฟังก์ชันสิ้นสุด