<% 
'********************************************** 
'vbs cache类
' 属性valid，是否可用，取值前判断 
' 属性name，cache名，新建对象后赋值 
' 方法add(值,到期时间)，设置cache内容 
' 属性value，返回cache内容 
' 属性blempty，是否未设置值 
' 方法makeempty，释放内存，测试用 
' 方法equal(变量1)，判断cache值是否和变量1相同 
' 方法expires(time)，修改过期时间为time 
' 木鸟写的缓存类
'********************************************** 

class cache 
private obj 'cache内容 
private expiretime '过期时间 
private expiretimename '过期时间application名 
private cachename 'cache内容application名 
private path 'uri 

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)