بالنسبة للتطبيقات المخزنة مؤقتًا، تكون سرعة الاتصال أسرع من القراءة من قاعدة البيانات في كل مرة.

<%
ريم ===================================================================================== ===============
Rem = class:CacheCls
Rem = الوصف: تطبيق مخبأ
Rem = المراجعة: 1.01 بيتا
Rem = المؤلف: بطل شيونغ (cexo255)
ريم = التاريخ:2005/05/6 18:38:10
ريم = ف ف:30133499
Rem = MySite:http://www.Relaxlife.net
العينية = التحميل: http://www.Relaxlife.net /cexo/Cache_pro.rar
ريم = مجموعة QQ: 4341998
Rem = قابل للتطبيق: ضع بعض البيانات شائعة الاستخدام ولكن نادرًا ما يتم تغييرها في ذاكرة التخزين المؤقت، وستكون سرعة الاتصال أسرع من القراءة من قاعدة البيانات في كل مرة.
ريم ===================================================================================== ===============

اسم التخزين المؤقت = "RL"
ClassCacheCls
اسم LocalCacheName الخاص، Cache_Data

اسم ملكية الملكية العامة (ByVal vNewValue)
LocalCacheName = LCase(vNewValue)
Cache_Data=Application(CacheName & "_" & LocalCacheName)
نهاية الملكية

قيمة الممتلكات العامة (ByVal vNewValue)
خافت N، ط، NewValueArr
إذا LocalCacheName<>"" إذن
N = CountInStr(vNewValue،"|")
NewValueArr = سبليت(vNewValue،"|"،-1،1)
إعادة ديم ذاكرة التخزين المؤقت_البيانات(N)
لأني = 0 إلى N
Cache_Data(i) = NewValueArr(i)
التالي
التطبيق.القفل
التطبيق (CacheName & "_" & LocalCacheName) = Cache_Data
Application.unLock
آخر
Response.Write "خطأ في إعداد ذاكرة التخزين المؤقت، أو لا يمكن أن يكون اسم ذاكرة التخزين المؤقت فارغًا، يرجى تحديث ذاكرة التخزين المؤقت مرة أخرى"
الاستجابة.النهاية ()
نهاية إذا
نهاية الملكية

الملكية العامة تحصل على القيمة()
إذا LocalCacheName<>"" إذن
إذا كان IsArray(Cache_Data) إذن
القيمة = Cache_Data
نهاية إذا
آخر
Response.Write "خطأ في إعداد ذاكرة التخزين المؤقت، أو لا يمكن أن يكون اسم ذاكرة التخزين المؤقت فارغًا، يرجى تحديث ذاكرة التخزين المؤقت مرة أخرى"
الاستجابة.النهاية ()
نهاية إذا
نهاية الملكية

'احصل على القيمة في ذاكرة التخزين المؤقت المحددة
الوظيفة العامة GetCacheValue(MyCacheName)
GetCacheValue = التطبيق (CacheName & "_" & MyCacheName)
وظيفة النهاية

"الحصول على كافة أسماء ذاكرة التخزين المؤقت."
الوظيفة العامة GetallCacheName()
ديم كاشيوبج
لكل ذاكرة تخزين مؤقت في محتويات التطبيق
GetallCacheName = GetallCacheName & Cacheobj & "،"
التالي
GetallCacheName = Left(GetallCacheName,Len(GetallCacheName)-1)
GetallCacheName = استبدال (GetallCacheName،CacheName & "_"،")
وظيفة النهاية

'حرر ذاكرة التخزين المؤقت
العامة الفرعية DelCahe (MyCaheName)
التطبيق.القفل
Application.Contents.Remove(CacheName & "_" & MyCacheName)
Application.unLock
نهاية الفرعية

'حرر جميع ذاكرات التخزين المؤقت
العامة الفرعية RemoveAllCache()
خافت كاتشيليست، ط
ذاكرة التخزين المؤقت = سبليت (GetallCacheName()،"،"،)
إذا كان UBound(Cachelist)>0 ثم
من أجل i=0 إلى UBound(Cachelist)
قائمة DelCache Cachelist(i)
التالي
نهاية إذا
نهاية الفرعية

'احسب عدد المرات التي يظهر فيها الحرف Char في Str
عدد الوظائف الخاصةInStr(Str,Char)
كونت إنستر = 0
ديم أنا، شارلين
شارلين = لين (شار)
لأني = 1 إلى لين (ستر)
إذا كان Mid(Str, i, CharLen) = Char ثم CountInStr = CountInStr + 1
التالي
وظيفة النهاية

نهاية الفئة

Dim CachePro
تعيين CachePro = جديد CacheCls
'قم بتعيين ذاكرة التخزين المؤقت "cexo255" وقيمتها: "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
CachePro.Name = "cexo255"
CachePro.Value = "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
"احصل على القيمة في ذاكرة التخزين المؤقت الحالية."
'CacheArr = CachePro.Value

CachePro.Name = "wxf"
قيمة ذاكرة التخزين المؤقت = "wxf"
اسم الكاش برو = "دو"
CachePro.Value = "dw"

'حرر ذاكرة التخزين المؤقت cexo255
'CachePro.DelCache("cexo255")

'حرر كافة ذاكرات التخزين المؤقت
'CachePro.RemoveAllCache

' احصل على القيمة في ذاكرة التخزين المؤقت cexo255
CacheArr = CachePro.GetCacheValue("cexo255")
إذا كان isArray(CacheArr) إذن
لأني = 0 إلى UBound(CacheArr)
Response.Write CacheArr(i) & "<br>"
التالي
آخر
الاستجابة.اكتب "تم إصدار ذاكرة التخزين المؤقت!!!"
ينتهي إذا

تم تعيين CachePro = لا شيء
%>