首页 » ASP编程 » ASP技巧
捌度空间 缓存类
捌度空间 缓存类代码
 代码如下:

<%
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)
相关文章
ASP技巧