وقت ذاكرة التخزين المؤقت ، دقيقة الوحدة
const webcachetime = 20
علامة ذاكرة التخزين المؤقت ، استخدمها عند تثبيت أنظمة متعددة في مساحة واحدة
const webcacheflag = ذاكرة التخزين المؤقت
قم بتعيين اسم ذاكرة التخزين المؤقت وقيمة ذاكرة التخزين المؤقت
وظيفة setCache (Byval Cachename ، Byval Cacheval)
قاتمة cachedata
cachename = lace (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)
قاتمة cachedata
cachename = lace (Changechr (cachename))
CacheData = التطبيق (WebCacheflag & Cachename)
إذا كانت Isarray (cachedata) ثم getCache = cachedata (0) getCache else
وظيفة نهاية
اكتشف اسم الإيداع البطيء ذاكرة التخزين المؤقت
وظيفة chkcache (byval cachename)
قاتمة cachedata
chkcache = خطأ
cachename = lace (Changechr (cachename))
CacheData = التطبيق (WebCacheflag و Cachename)
إذا لم يكن Isarray (cachedata) ثم الخروج وظيفة
إذا لم يكن ISDATE (Cachedata (1)) ، فإن وظيفة الخروج
إذا كان Datediff (s ، cdate (cachedata (1)) ، الآن ()) <60 * webcachetime ثم chkcache = true
وظيفة نهاية