ASP实现缓存类无错版

（等待您提供文章）

原文：

在繁忙的都市中，有一个安静的小巷，这里居住着各种各样的人。他们有着不同的职业、不同的经历，但在这里，他们都找到了属于自己的生活方式。这个小巷充满了生活的气息，每一天都有新鲜的事情发生。

在这座喧嚣的都市里，有一条宁静的小巷，宛如城市的隐秘绿洲。这里汇聚着形形的居民，他们身份迥异，阅历丰富。他们都在这小巷里找到了属于自己的生活节奏和空间。这里洋溢着浓厚的生活气息，每一天都上演着新鲜的故事。

清晨的第一缕阳光洒进小巷，唤醒了这里的居民。忙碌的一天就此开始，每个人都在自己的小天地里忙碌着，或是准备早餐，或是晨练，或是开始一天的工作。小巷里热闹非凡，充满了生活的烟火气。

午后，阳光透过树叶的缝隙洒在小巷的青石板上，温暖而宁静。居民们或坐在门前的藤椅上聊天，或在小巷的集市上挑选新鲜的蔬果。他们的笑声和谈话声交织在一起，形成了一首美妙的生活交响曲。

夜幕降临，小巷里灯火通明。劳累一天的人们回到家中，享受属于自己的宁静时光。或许是一杯热茶，或许是一本好书，或许是一次深呼吸。在这里，他们找到了心灵的慰藉和安宁。

Cache类作为一个数据容器，被设计为高效存取和管理缓存数据。它包含多个属性与方法，用于实现数据的存储、检索和过期管理。此类具有以下特点：

通过`name`属性设定缓存的唯一标识，确保数据的准确存取。

`add`方法用于添加缓存内容及其过期时间。

`value`属性用于获取缓存内容。

`blEmpty`属性检查缓存是否为空。

`makeEmpty`方法清空缓存内容，释放内存。

`equal`方法比较两个缓存值是否相等。

`expires`方法用于设置或修改缓存的过期时间。

这个类的主要逻辑在以下几个方面体现：

在类初始化时，通过请求服务器的URL来设定缓存的path。

使用application对象来存储和检索缓存数据，通过锁定和解锁机制来保证数据操作的原子性。

通过检查对象的类型和值来判断缓存数据的有效性，确保数据的正确读取和写入。

```vbscript

'引入连接文件（如有需要）

<%

' Cache类 - 用于管理缓存数据

class Cache

private obj ' 存储缓存内容

private expireTime ' 缓存过期时间

private expireTimeName ' 过期时间application名称

private cacheName ' 缓存内容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) < Now then

valid = false

else

valid = true

end if

end property

' 设置cache名

public property let name(str)

cacheName = str & path

Set obj = application(cacheName)

expireTimeName = str & "expires" & path

expireTime = application(expireTimeName)

end property

' 重设置过期时间

public property let expires(tm)

expireTime = tm

application.lock

application(expireTimeName) = expireTime

application.unlock

end property

' 添加缓存内容及其过期时间

public sub add(var, expire)

if isempty(var) or not isDate(expire) then exit sub

obj = var

expireTime = expire

application.lock

application(cacheName) = obj

application(expireTimeName) = expireTime

application.unlock

end sub

' 获取缓存内容（值）

public property get value()

if isempty(obj) or not isDate(expireTime) then value = null elseif CDate(expireTime) < Now then value = null else value = obj end if end property public sub makeEmpty() ' 清空缓存 application.lock application(cacheName) = empty application(expireTimeName) = empty application.unlock obj = empty expireTime = empty end sub public function equal(var2) ' 比较缓存值 if typename(obj)<>"Object" then equal=false elseif typename(obj)="Object" then if obj is var2 then equal=true else equal=false end if elseif typename(obj)="Variant()" then if join(obj,"^")=join(var2,"^") then equal=true else equal=false end if else if obj=var2 then equal=true else equal=false end if end if end function end class dim content, myCache Set myCache = new Cache myCache.name="