تطبيق التخزين المؤقت Cachecls

نسخة الكود كما يلي:

<٪

REM ==============================================================================

REM = الفصل: cachecls

REM = الوصف: تطبيق ذاكرة التخزين المؤقت

REM = المراجعة: 1.01beta

REM = المؤلف: XIONG HERO (CEXO255)

REM = التاريخ: 2005/05/618: 38: 10

REM = QQ: 30133499

rem = mysite: http: //www.relaxlife.net

rem = تنزيل: http://www.relaxlife.net/cexo/cache_pro.rar

REM = QQ Group: 4341998

REM = قابلة للتطبيق: بالنسبة لبعض البيانات شائعة الاستخدام وغير المتغير ، تكون سرعة الاتصال أسرع من القراءة من قاعدة البيانات في كل مرة.

REM ==============================================================================

cachename = "RL"

classcachecls

privatelocalcachename ، cache_data

PublicPropertyletName (Byvalvnewvalue)

localcachename = lace (vnewvalue)

cache_data = التطبيق (cachename & "_" & localcachename)

endproperty

PublicPropertyletValue (Byvalvnewvalue)

Dimn ، أنا ، newvaluearr

iflocalcachename <> "" ثم

n = countinstr (vnewvalue ، "|")

newValuearr = انقسام (vnewvalue ، "|" ،-1،1)

redimcache_data (n)

fori = 0ton

cache_data (i) = newValuearr (i)

التالي

application.lock

التطبيق (cachename & "_" & localcachename) = cache_data

application.unlock

آخر

Response.write "هناك ذاكرة التخزين المؤقت لإنشاء خطأ ، أو لا يمكن أن يكون اسم ذاكرة التخزين المؤقت فارغًا ، يرجى إعادة تحطيم ذاكرة التخزين المؤقت"

استجابة.

Endif

endproperty

PublicPropertygetValue ()