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

-
เรม ================================================= ================
Rem = คลาส:CacheCls
Rem = คำอธิบาย: แอปพลิเคชันแคช
Rem = การแก้ไข: 1.01 เบต้า
Rem = ผู้แต่ง: ฮีโร่ของ Xiong (cexo255)
เรม = วันที่:6/05/2548 18:38:10 น
เรม = QQ:30133499
Rem = MySite:Http://www.Relaxlife.net
Rem = ดาวน์โหลด: Http://www.Relaxlife.net /cexo/Cache_pro.rar
Rem = กลุ่ม QQ: 4341998
Rem = ใช้งานได้: ใส่ข้อมูลที่ใช้กันทั่วไปแต่ไม่ค่อยมีการเปลี่ยนแปลงลงในแคช และความเร็วในการโทรจะเร็วกว่าการอ่านจากฐานข้อมูลทุกครั้ง
เรม ================================================= ================

ชื่อแคช = "RL"
ClassCacheCls
LocalCacheName ส่วนตัว Cache_Data

ชื่อทรัพย์สินสาธารณะ (ByVal vNewValue)
LocalCacheName = LCase (vNewValue)
Cache_Data=Application(ชื่อแคช & "_" & LocalCacheName)
สิ้นสุดคุณสมบัติ

มูลค่าทรัพย์สินสาธารณะ (ByVal vNewValue)
Dim N,i,NewValueArr
ถ้า LocalCacheName<>"" จากนั้น
N = CountInStr(vNewValue,"|")
NewValueArr = แยก(vNewValue,"|",-1,1)
ReDim Cache_Data(N)
สำหรับ i = 0 ถึง N
Cache_Data(i) = NewValueArr(i)
ต่อไป
แอปพลิเคชั่นล็อค
แอปพลิเคชัน (ชื่อแคช & "_" & LocalCacheName) = Cache_Data
แอปพลิเคชันปลดล็อค
อื่น
การตอบสนองเขียน "ข้อผิดพลาดในการตั้งค่าแคช หรือชื่อแคชไม่สามารถเว้นว่างได้ โปรดอัปเดตแคชอีกครั้ง"
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
สิ้นสุดคุณสมบัติ

ทรัพย์สินสาธารณะรับค่า()
ถ้า LocalCacheName<>"" จากนั้น
ถ้า IsArray(Cache_Data) แล้ว
ค่า=แคช_ข้อมูล
สิ้นสุดถ้า
อื่น
การตอบสนองเขียน "ข้อผิดพลาดในการตั้งค่าแคช หรือชื่อแคชไม่สามารถเว้นว่างได้ โปรดอัปเดตแคชอีกครั้ง"
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
สิ้นสุดคุณสมบัติ

'รับค่าในแคชที่ระบุ
ฟังก์ชั่นสาธารณะ GetCacheValue (MyCacheName)
GetCacheValue = แอปพลิเคชัน (ชื่อแคช & "_" & MyCacheName)
ฟังก์ชันสิ้นสุด

'รับชื่อแคชทั้งหมด
ฟังก์ชั่นสาธารณะ GetallCacheName()
Dim Cacheobj
สำหรับแต่ละ Cacheobj ใน Application.Contents
GetallCacheName = GetallCacheName & แคช & ","
ต่อไป
GetallCacheName = ซ้าย (GetallCacheName,Len(GetallCacheName)-1)
GetallCacheName = แทนที่(GetallCacheName,CacheName & "_", "")
ฟังก์ชันสิ้นสุด

'ปล่อยแคช
DelCahe ย่อยสาธารณะ (MyCaheName)
แอปพลิเคชั่นล็อค
Application.Contents.Remove (ชื่อแคช & "_" & MyCacheName)
แอปพลิเคชันปลดล็อค
จบหมวดย่อย

'ปล่อยแคชทั้งหมด
สาธารณะย่อย RemoveAllCache()
Dim Cachelist ฉัน
รายการแคช=แยก(GetallCacheName(),",")
ถ้า UBound(Cachelist)>0 แล้ว
สำหรับ i=0 ถึง UBound (รายการแคช)
รายการแคช DelCache (i)
ต่อไป
สิ้นสุดถ้า
จบหมวดย่อย

'นับจำนวนครั้งที่ตัวละคร Char ปรากฏใน Str
ฟังก์ชั่นส่วนตัว CountInStr (Str, Char)
CountInStr = 0
ดิม ไอ, ชาร์เลน
ชาร์เลน = เลน(ชาร์)
สำหรับ i = 1 ถึง Len(Str)
ถ้า 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"
CachePro.Value = "wxf"
CachePro.Name = "dw"
CachePro.Value = "dw"

'ปล่อยแคช cexo255
'CachePro.DelCache("cexo255")

'ปล่อยแคชทั้งหมด
'CachePro.RemoveAllCache

' รับค่าในแคช cexo255
CacheArr = CachePro.GetCacheValue("cexo255")
ถ้า isArray(CacheArr) แล้ว
สำหรับ i = 0 ถึง UBound (CacheArr)
การตอบกลับเขียน CacheArr(i) & "<br>"
ต่อไป
อื่น
ตอบกลับเขียนว่า "แคชออก!!!"
สิ้นสุดถ้า

ตั้งค่า CachePro = ไม่มีเลย
-