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
