<٪
'*****************************************************
'فئة VBSCache
"السمة صالحة ، سواء كانت متوفرة ، تحكم قبل أخذ القيمة
'اسم السمة ، اسم ذاكرة التخزين المؤقت ، تعيين القيمة بعد إنشاء كائن جديد
"إضافة الطريقة (القيمة ، وقت انتهاء الصلاحية) ، اضبط محتوى ذاكرة التخزين المؤقت
'قيمة السمة ، إرجاع محتوى ذاكرة التخزين المؤقت
'السمة بطيئة ، ما إذا لم يتم تعيين القيمة
'الطريقة تجعل الذاكرة المجانية ، والاختبار
"الطريقة متساوية (المتغير 1) ، تحدد ما إذا كانت قيمة ذاكرة التخزين المؤقت هي نفس المتغير 1
تنتهي الطريقة (الوقت) ، وتعديل وقت انتهاء الصلاحية
'فئة ذاكرة التخزين المؤقت التي كتبها مونياو
'*****************************************************
ClassCache
محتوى PrivateObj'Cache
وقت PrivateExpiretime'expiration
privatexpiretimename'expiration اسم التطبيق
PrivateCachename'cache اسم تطبيق تطبيق
privatepath'uri
privatesubclass_initialize ()
path = request.ServerVariables ("url")
PATH = LEFT (PATH ، Instrrev (PATH ، "/"))
ينتهي
privatesubclass_terminate ()
ينتهي
PublicPropertygetBlespty
هل هو فارغ
ifSempty (OBJ) ثم
Blempty = صحيح
آخر
Blempty = false
Endif
endproperty
PublicPropertygetValid
"سواء كانت متوفرة (منتهية الصلاحية)
ifsempty (obj) ornotisdate (Expiretime) ثم
صالح = خطأ
elseifcdate (Expiretime) <nowthen
صالح = خطأ
آخر
صالح = صحيح
Endif
endproperty
PublicPropertyletName (STR)
قم بتعيين اسم ذاكرة التخزين المؤقت
cachename = str & path
OBJ = التطبيق (cachename)
Expiretimename = str & "Expires" & Path
Expiretime = تطبيق (Expirtimename)
endproperty
PublicPropertyleTexpires (TM)
إعادة ضبط وقت انتهاء الصلاحية
Expiretime = tm
application.lock
التطبيق (Expirtimename) = Expiretime
application.unlock