ASP缓存类无错版

< % 
' ********************************************** 
' 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