คลาสแคชพื้นที่แปดองศา

รหัสคลาสแคชอวกาศแปดองศา

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

-

classcache

เนื้อหาส่วนตัว

เวลาส่วนตัว

ชื่อแอปพลิเคชัน PrivateExpireTimename'expiration Time

Privatecachename'Cache ชื่อแอปพลิเคชันเนื้อหา

PrivatePath'url

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)