ASP实现缓存类无错版

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