رمز البرنامج
<%
"بواسطة xilou، www.chinacms.org، 20090115
"آخر تحديث: 20090115
'سجل التعديل: لا يوجد
CONST CACHEPREFIX = "CACHE_" 'بادئة ذاكرة التخزين المؤقت، لا يمكن أن تكون فارغة
' الوصف:
1. تنسيق ذاكرة التخزين المؤقت هو Application(CACHEPREFIX & key) = array("مفتاح ذاكرة التخزين المؤقت"، "وقت ذاكرة التخزين المؤقت"، "محتوى ذاكرة التخزين المؤقت"، "وصف ذاكرة التخزين المؤقت"، "وقت انتهاء الصلاحية")
'2، مفتاح ذاكرة التخزين المؤقت ليس حساسًا لحالة الأحرف
'أضف ذاكرة التخزين المؤقت دون التحقق من وجود ذاكرة التخزين المؤقت، إذا كانت موجودة، فهذا يعادل تحديث ذاكرة التخزين المؤقت.
'varAry: المعلمة، التنسيق هو: المصفوفة ("مفتاح ذاكرة التخزين المؤقت"، "وقت ذاكرة التخزين المؤقت"، "محتوى ذاكرة التخزين المؤقت"، "وصف ذاكرة التخزين المؤقت")
'مفتاح ذاكرة التخزين المؤقت: نفس تنسيق التطبيق ()
'وقت التخزين المؤقت: وحدة ثانية، يمكن أن يكون رقمًا سالبًا، مما يشير إلى انتهاء الصلاحية الفوري، ويمكن أن يكون فارغًا، أو فارغًا أو ليس رقمًا، والافتراضي هو 20 دقيقة من انتهاء الصلاحية
'محتوى ذاكرة التخزين المؤقت: بيانات ذاكرة التخزين المؤقت، التخزين المؤقت للكائنات غير مدعوم
'وصف ذاكرة التخزين المؤقت: وصف ذاكرة التخزين المؤقت
وظيفة AddCache (varAry)
خافت ج، آري(4)
إذا لم يكن IsArray(varAry) إذن
Response.Write "خطأ: خطأ في معلمة AddCache(varAry)، المعلمة ليست مصفوفة"
الاستجابة.النهاية ()
نهاية إذا
إذا كان UBound(varAry) <> 3 ثم
Response.Write "خطأ: خطأ في معلمة AddCache(varAry)، خطأ في طول الصفيف"
الاستجابة.النهاية ()
نهاية إذا
إذا كان varAry(0) = "" إذن
Response.Write "خطأ: خطأ AddCache(varAry)، لا يمكن أن يكون المفتاح فارغًا"
الاستجابة.النهاية ()
نهاية إذا
إذا كان varAry(1) = "" أو ليس IsNumeric(varAry(1)) ثم varAry(1) = 1200
التطبيق.قفل ()
Application(CACHEPREFIX & varAry(0)) = array(varAry(0),varAry(1),varAry(2),varAry(3),DateAdd("s",varAry(1),Now()))
التطبيق.فتح()
وظيفة النهاية
'تحقق من وجود ذاكرة تخزين مؤقت، وقم بإرجاع True إذا كان موجودًا، وإلا قم بإرجاع خطأ
'المفتاح: مفتاح ذاكرة التخزين المؤقت
وظيفة CheckCache (المفتاح)
خافت ك
لكل ك في التطبيق.المحتويات
إذا كان LCase(k) = LCase(CACHEPREFIX & key) ثم CheckCache = True: اخرج من الوظيفة
التالي
CheckCache = خطأ
وظيفة النهاية
"احصل على ذاكرة التخزين المؤقت."
'إرجاع مصفوفة بالتنسيق: صفيف ("مفتاح ذاكرة التخزين المؤقت"، "وقت ذاكرة التخزين المؤقت"، "محتوى ذاكرة التخزين المؤقت"، "وصف ذاكرة التخزين المؤقت"، "وقت انتهاء الصلاحية"، سواء انتهت صلاحيته أم لا)
'إذا لم يكن موجودًا، فسيحدث خطأ، لذا تحقق من CheckCache(مفتاح) قبل الحصول عليه.
وظيفة GetCache (المفتاح)
التطبيق خافت،isExp
التطبيق = التطبيق (CACHEPREFIX والمفتاح)
isExp = خطأ
إذا كان DateDiff("s",Now(),app(4)) <= 0 فإن isExp = True
GetCache = Array(app(0),app(1),app(2),app(3),app(4),isExp)
وظيفة النهاية
'مسح ذاكرة التخزين المؤقت
وظيفة إزالة ذاكرة التخزين المؤقت (المفتاح)
التطبيق.قفل ()
التطبيق.المحتويات.إزالة (CACHEPREFIX والمفتاح)
التطبيق.فتح()
وظيفة النهاية
'قم بتحديث ذاكرة التخزين المؤقت. إذا لم تكن ذاكرة التخزين المؤقت موجودة، فسيحدث خطأ، لذا تحقق من CheckCache (مفتاح) قبل التحديث.
'varAry: المعلمة، التنسيق هو: المصفوفة ("مفتاح ذاكرة التخزين المؤقت"، "وقت ذاكرة التخزين المؤقت"، "محتوى ذاكرة التخزين المؤقت"، "وصف ذاكرة التخزين المؤقت")
'مفتاح ذاكرة التخزين المؤقت: نفس تنسيق التطبيق ()
'وقت التخزين المؤقت: وحدة ثانية، يمكن أن يكون رقمًا سالبًا، مما يشير إلى انتهاء الصلاحية الفوري، ويمكن أن يكون فارغًا، أو فارغًا أو ليس رقمًا، والافتراضي هو 20 دقيقة من انتهاء الصلاحية
'محتوى ذاكرة التخزين المؤقت: بيانات ذاكرة التخزين المؤقت، التخزين المؤقت للكائنات غير مدعوم
'وصف ذاكرة التخزين المؤقت: وصف ذاكرة التخزين المؤقت
'ملاحظة: إذا لم تقم بتحديث قيمة معينة لـ varAry، فما عليك سوى تعيين القيمة إلى null.
مثل UpdateCache(array("key",null,"content",null)))، مما يعني أنه لن يتم تحديث وقت انتهاء الصلاحية والوصف.
وظيفة UpdateCache (varAry)
التطبيق خافت
التطبيق = GetCache(varAry(0))
إذا لم يكن IsNull(varAry(1)) ثم app(1) = varAry(1)
إذا لم يكن IsNull(varAry(2)) ثم app(2) = varAry(2)
إذا لم يكن IsNull(varAry(3)) ثم app(3) = varAry(3)
إذا كان التطبيق (1) = "" أو ليس رقميًا (التطبيق (1)) ثم التطبيق (1) = 1200
التطبيق.قفل ()
Application(CACHEPREFIX & app(0)) = array(app(0),app(1),app(2),app(3),DateAdd("s",app(1),Now()))
التطبيق.فتح()
وظيفة النهاية
"www.downcodes.com."
'طباعة ذاكرة التخزين المؤقت لتصحيح الأخطاء
وظيفة PrintCache (المفتاح)
التطبيق خافت، ط، ر
إذا CheckCache(مفتاح) ثم
التطبيق = GetCache (المفتاح)
الاستجابة.اكتب "<pre>{"&chr(10)
Response.Write chr(32) & "اسم ذاكرة التخزين المؤقت" & chr(32) & ": " & chr(32) & CACHEPREFIX & app(0) & chr(10)
Response.Write chr(32) & "مفتاح ذاكرة التخزين المؤقت" & chr(32) & ": & chr(32) & app(0) & chr(10)
Response.Write chr(32) & "وقت التخزين المؤقت" & chr(32) & ": " & chr(32) & app(1) & chr(10)
الاستجابة.اكتب chr(32) & "وقت انتهاء الصلاحية" & chr(32) & ": & chr(32) & app(4) & chr(10)
Response.Write chr(32) & "هل هو مستحق؟" & chr(32) & ": & chr(32) & app(5) & chr(10)
Response.Write chr(32) & "وصف ذاكرة التخزين المؤقت" & chr(32) & ": & chr(32) & app(3) & chr(10)
'محتوى
Response.Write chr(32) & "المحتوى المخبأ" & chr(32) & quot; & chr(32)
ر = فارتايب (التطبيق (2))
إذا كان InStr("،0,1,2,3,4,5,6,7,8,11"،،"،"،&t&"،) > 0 ثم
تطبيق الاستجابة للكتابة(2)
آخر
الاستجابة.اكتب اسم النوع (التطبيق (2))
نهاية إذا
الاستجابة.اكتب مركز حقوق الإنسان (10)
الاستجابة.اكتب "</pre>"&chr(10)
آخر
الاستجابة.اكتب "ذاكرة التخزين المؤقت غير موجودة"
نهاية إذا
وظيفة النهاية
'----------
عرض فرعي br(str)
Response.اكتب str & "<br />" & vbcrlf
نهاية الفرعية
"إزالة ذاكرة التخزين المؤقت" "xilou""
'AddCache Array("xilou"،"،array("محتوى البيانات")،"وصف ذاكرة التخزين المؤقت")
br CheckCache("xilou")
ذاكرة التخزين المؤقت للطباعة "xilou"
التطبيق خافت
إذا كان CheckCache("xilou") ثم
app = GetCache("xilou") 'احصل على
UpdateCache array(app(0),null,"testsfsfsf",null)'Update
آخر
مجموعة AddCache ("xilou"، ""، "المحتوى"، "الوصف")
نهاية إذا
"ديم ك
'لكل k في التطبيق.المحتويات
'ر ك
'التالي
%>