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 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 

（编辑：银川站长网）

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