'وقت التخزين المؤقت بالدقائق
كونست WebCacheTime = 20
'علامة ذاكرة التخزين المؤقت، تُستخدم عند تثبيت أنظمة متعددة في مساحة واحدة
Const WebCacheFlag = "Cache"
'قم بتعيين اسم ذاكرة التخزين المؤقت وقيمة ذاكرة التخزين المؤقت
وظيفة SetCache (ByVal CacheName، ByVal CacheValue)
خافت بيانات ذاكرة التخزين المؤقت
CacheName = LCase(ChangeChr(CacheName))
بيانات التخزين المؤقت = التطبيق (WebCacheFlag وCacheName)
إذا كان IsArray(CacheData) إذن
CacheData(0) = CacheValue
بيانات التخزين المؤقت (1) = الآن ()
آخر
إعادة ديم ذاكرة التخزين المؤقت(2)
CacheData(0) = CacheValue
بيانات التخزين المؤقت (1) = الآن ()
نهاية إذا
التطبيق.القفل
التطبيق (WebCacheFlag & CacheName) = CacheData
التطبيق.فتح
وظيفة النهاية
الحصول على اسم ذاكرة التخزين المؤقت
وظيفة GetCache (ByVal CacheName)
خافت بيانات ذاكرة التخزين المؤقت
CacheName = LCase(ChangeChr(CacheName))
بيانات التخزين المؤقت = التطبيق (WebCacheFlag وCacheName)
إذا كان IsArray(CacheData) ثم GetCache = CacheData(0) وإلا GetCache = ""
وظيفة النهاية
"اكتشاف اسم ذاكرة التخزين المؤقت".
وظيفة ChkCache (ByVal CacheName)
خافت بيانات ذاكرة التخزين المؤقت
ChkCache = خطأ
CacheName = LCase(ChangeChr(CacheName))
بيانات التخزين المؤقت = التطبيق (WebCacheFlag وCacheName)
إذا لم يكن IsArray(CacheData)، فاخرج من الوظيفة
إذا لم يكن IsDate(CacheData(1)) ثم اخرج من الوظيفة
إذا كان DateDiff("s"، CDate(CacheData(1)))، Now()) < 60 * WebCacheTime ثم ChkCache = True
وظيفة النهاية