แอปพลิเคชันแคชแคช

การคัดลอกรหัสมีดังนี้:

-

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: 4341998

REM = ใช้ได้: สำหรับข้อมูลที่ใช้กันทั่วไปและไม่เปลี่ยนแปลงความเร็วการโทรเร็วกว่าการอ่านจากฐานข้อมูลทุกครั้ง

rem ======================================================================================================

cachename = "rl"

ClassCachecls

Privatelocalcachename, cache_data

PublicPropertyletName (byvalvnewvalue)

localCachename = lcase (vNewValue)

cache_data = แอปพลิเคชัน (cachename & "_" & localcachename)

ปลายทาง

PublicPropertyletValue (byvalvnewvalue)

dimn, i, newvaluearr

iflocalcachename <> "" แล้ว

n = countinstr (vnewvalue, "|")

newValuearr = split (vnewvalue, "|",-1,1)

redimcache_data (n)

fori = 0ton

cache_data (i) = newValuearr (i)

ต่อไป

application.lock

แอปพลิเคชัน (cachename & "_" & localcachename) = cache_data

application.unlock

อื่น

Response.write "มีแคชการตั้งค่าข้อผิดพลาดหรือชื่อแคชไม่สามารถว่างเปล่าได้โปรดอัปเดตแคชใหม่"

Response.end ()

endif

ปลายทาง

PublicPropertygetValue ()