private sub class_initialize() path=request.servervariables("url") path=left(path,instrRev(path,"/")) end sub
private sub class_terminate() end sub
public property get blEmpty ＇是否為空 if isempty(obj) then blEmpty=true else blEmpty=false end if end property
public property get valid ＇是否可用(過期) if isempty(obj) or not isDate(expireTime) then valid=false elseif CDate(expireTime)<now then valid=false else valid=true end if end property
public property let name(str) ＇設置cache名 cacheName=str & path obj=application(cacheName) expireTimeName=str & "expires" & path expireTime=application(expireTimeName) end property
public property let expires(tm) ＇重設置過期時間 expireTime=tm application.lock application(expireTimeName)=expireTime application.unlock end property
public sub add(var,expire) ＇賦值 if isempty(var) or not isDate(expire) then exit sub end if obj=var expireTime=expire application.lock application(cacheName)=obj application(expireTimeName)=expireTime application.unlock end sub
