推荐ASP实现缓存类无错版

发布时间：2023-09-19 15:42:32 所属栏目：Asp教程来源：

导读：<%

'**********************************************

'vbs Cache类

' 属性valid，是否可用，取值前判断

' 属性name，cache名，新建对象后赋值

' 方法add(值,到期时间)，设

<%

'**********************************************

'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)<now then

        valid=false

    else

        valid=true

    end if

end property

public property let name(str)

    '设置cache名

    cacheName=str & path

    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

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!