فئة ذاكرة التخزين المؤقت الفضائية بثمانية درجات

رمز فئة ذاكرة التخزين المؤقت الفضائية بثمانية درجات

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

<٪

ClassCache

محتوى PrivateObj'Cache

وقت PrivateExpiretime'expiration

privatexpiretimename'expiration اسم التطبيق

PrivateCachename'cache اسم تطبيق تطبيق

PrivatePath'url

privatesubclass_initialize ()

path = request.ServerVariables ("url")

PATH = LEFT (PATH ، Instrrev (PATH ، "/"))

ينتهي

privatesubclass_terminate ()

ينتهي

PublicPropertygetBlespty

هل هو فارغ

ifSempty (OBJ) ثم

Blempty = صحيح

آخر

Blempty = false

Endif

endproperty

PublicPropertygetValid

"سواء كانت متوفرة (منتهية الصلاحية)

ifsempty (obj) ornotisdate (Expiretime) ثم

صالح = خطأ

elseifcdate (Expiretime) <nowthen

صالح = خطأ

آخر

صالح = صحيح

Endif

endproperty

PublicPropertyletName (STR)

قم بتعيين اسم ذاكرة التخزين المؤقت

cachename = str & path

OBJ = التطبيق (cachename)

Expiretimename = str & "Expires" & Path

Expiretime = تطبيق (Expirtimename)

endproperty

PublicPropertyleTexpires (TM)