بالنسبة لدور التخزين المؤقت ، لست بحاجة إلى قول المزيد. دورها واضح بالفعل ، خاصة بالنسبة لمواقع الويب التي لديها كمية كبيرة من المعلومات أو صفحات قاعدة البيانات الكاملة. يمكن أن يستفيد بشكل جيد من موارد ذاكرة المضيف ، وتسريع كفاءة تنفيذ ASP ، وتقليل العبء على الخادم. Dongwang هو الأكثر تميزا في هذا الصدد. على سبيل المثال ، إصدار DVBBBS7.1.0 الحالي ، حتى أنه ذهب خطوة إلى الأمام في استخدام ذاكرة التخزين المؤقت. ترتبط معظم العمليات في المكاتب الأمامية والخلفية بذاكرة التخزين المؤقت ، والآن تستخدم Dongwang فئة ذاكرة التخزين المؤقت في Micheng Renzi. القائمة التالية هي فئة ذاكرة التخزين المؤقت ASP التي كتبها Masters of Dongwang الثلاثة.
كتبه طائر خشبي
نسخة الكود كما يلي:
'**************************************************
'فئة VBSCache
/
"السمة صالحة ، سواء كانت متوفرة ، تحكم قبل أخذ القيمة
'اسم السمة ، اسم ذاكرة التخزين المؤقت ، تعيين القيمة بعد إنشاء كائن جديد
"إضافة الطريقة (القيمة ، وقت انتهاء الصلاحية) ، اضبط محتوى ذاكرة التخزين المؤقت
'قيمة السمة ، إرجاع محتوى ذاكرة التخزين المؤقت
'السمة بطيئة ، ما إذا لم يتم تعيين القيمة
'الطريقة تجعل الذاكرة المجانية ، والاختبار
"الطريقة متساوية (المتغير 1) ، حدد ما إذا كانت قيمة ذاكرة التخزين المؤقت هي نفسها المتغير 1
تنتهي الطريقة (الوقت) ، وتعديل وقت انتهاء الصلاحية
'Wood Bird 2002.12.24
'http://www.aspsky.net/
'**************************************************
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
endproperty
publicsubadd (var ، انتهاء صلاحية)
'تكليف
ifSempty (var) ornotisdate (انتهاء صلاحية) ثم
Exitsub
Endif
OBJ = var
انتهاء الصلاحية = انتهاء صلاحية
application.lock
التطبيق (cachename) = OBJ
التطبيق (Expirtimename) = Expiretime
application.unlock
ينتهي
PublicPropertygetValue