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