-
-
'คลาส vbscache
'แอตทริบิวต์ใช้ได้ไม่ว่าจะมีให้เลือกก่อนที่จะรับค่า
'ชื่อแอตทริบิวต์ชื่อแคชกำหนดค่าหลังจากสร้างวัตถุใหม่
'วิธีเพิ่ม (ค่า, เวลาหมดอายุ), ตั้งค่าเนื้อหาแคช
'ค่าแอตทริบิวต์ส่งคืนเนื้อหาแคช
'แอตทริบิวต์ที่ไม่ได้ตั้งค่าไม่ว่าค่าจะไม่ถูกตั้งค่า
'วิธีการทำหน่วยความจำฟรี, ทดสอบ
'วิธีการเท่ากัน (ตัวแปร 1) กำหนดว่าค่าแคชนั้นเหมือนกับตัวแปร 1
'วิธีการหมดอายุ (เวลา) แก้ไขการหมดอายุเป็นครั้งคราว
'คลาสแคชที่เขียนโดย Muniao
-
classcache
เนื้อหาส่วนตัว
เวลาส่วนตัว
ชื่อแอปพลิเคชัน PrivateExpireTimename'expiration Time
Privatecachename'Cache ชื่อแอปพลิเคชันเนื้อหา
PrivatePath'uri
Privatesubclass_initialize ()
path = request.serverVariables ("url")
PATH = ซ้าย (PATH, InstrEv (Path, "/"))
enddub
Privatesubclass_terminate ()
enddub
publicpropertygetblempty
'มันว่างเปล่า
Ifsempty (OBJ) แล้ว
BLEMPTY = TRUE
อื่น
BLEMPY = FALSE
endif
ปลายทาง
publicpropertygetValid
'ไม่ว่าจะพร้อมใช้งาน (หมดอายุ)
ifsempty (OBJ) หรือ NOTISDATE (หมดอายุ) จากนั้น
ถูกต้อง = เท็จ
elseifcdate (หมดอายุ) <Nowthen
ถูกต้อง = เท็จ
อื่น
ถูกต้อง = จริง
endif
ปลายทาง
PublicPropertyletName (STR)
'ตั้งชื่อแคช
cachename = str & path
obj = แอปพลิเคชัน (cachename)
ExpireTimeName = Str & "Expires" & Path
EXPIRETIME = Application (ExpireTimename)
ปลายทาง
PublicPropertyLetexpires (TM)
'รีเซ็ตเวลาหมดอายุ
Expiretime = TM
application.lock
แอปพลิเคชัน (ExpireTimEname) = หมดอายุ
application.unlock