捌度空間緩存類

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 問題！~