捌度空间缓存类

2024-05-04 11:02:24

字体：大中小

来源：转载

供稿：网友

捌度空间缓存类代码
复制代码代码如下:
<%
class Cache
    private obj            'cache内容
    private expireTime        '过期时间
    private expireTimeName    '过期时间application名
    private cacheName        'cache内容application名
    private path            'url

    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)

上一篇：ASP万用分页程序

下一篇：asp中 select top 问题！~