久久精品网站视频,国产精品高清一区二区三区,一区二区三区久久网

%
'**********************************************
'vbs Cache類
' 屬性valid，是否可用，取值前判斷
' 屬性name，cache名，新建對(duì)象后賦值
' 方法add(值,到期時(shí)間)，設(shè)置cache內(nèi)容
' 屬性value，返回cache內(nèi)容
' 屬性blempty，是否未設(shè)置值
' 方法makeEmpty，釋放內(nèi)存，測(cè)試用
' 方法equal(變量1)，判斷cache值是否和變量1相同
' 方法expires(time)，修改過(guò)期時(shí)間為time
' 木鳥(niǎo)寫(xiě)的緩存類
'**********************************************

class Cache
private obj 'cache內(nèi)容
private expireTime '過(guò)期時(shí)間
private expireTimeName '過(guò)期時(shí)間application名
private cacheName 'cache內(nèi)容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
    '是否可用(過(guò)期)
    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)
    '設(shè)置cache名
    cacheName=str  path
    obj=application(cacheName)
    expireTimeName=str  "expires"  path
    expireTime=application(expireTimeName)
end property

public property let expires(tm)
    '重設(shè)置過(guò)期時(shí)間
    expireTime=tm
    application.lock
    application(expireTimeName)=expireTime
    application.unlock
end property

public sub add(var,expire)
    '賦值
    if isempty(var) or not isDate(expire) then
        exit sub
    end if
    obj=var
    expireTime=expire
    application.lock
    application(cacheName)=obj
    application(expireTimeName)=expireTime
    application.unlock
end sub

public property get value
    '取值
    if isempty(obj) or not isDate(expireTime) then
        value=null
    elseif CDate(expireTime)now then
        value=null
    else
        value=obj
    end if
end property

public sub makeEmpty()
    '釋放application
    application.lock
    application(cacheName)=empty
    application(expireTimeName)=empty
    application.unlock
    obj=empty
    expireTime=empty
end sub

public function equal(var2)
    '比較
    if typename(obj)>typename(var2) then
        equal=false
    elseif typename(obj)="Object" then
        if obj is var2 then
            equal=true
        else
            equal=false
        end if
    elseif typename(obj)="Variant()" then
        if join(obj,"^")=join(var2,"^") then
            equal=true
        else
            equal=false
        end if
    else
        if obj=var2 then
            equal=true
        else
            equal=false
        end if
    end if
end function

end class

dim content,myCache
Set myCache = new Cache
myCache.name="sofoisndoffo" '定義緩存名稱
if myCache.valid then '如果緩存有效
content=myCache.value '讀取緩存內(nèi)容
else
content="sosuo8.com測(cè)試" '大量?jī)?nèi)容，可以是非常耗時(shí)大量數(shù)據(jù)庫(kù)查詢記錄集
myCache.add content,dateadd("n",1000,now) '將內(nèi)容賦值給緩存，并設(shè)置緩存有效期是當(dāng)前時(shí)間＋1000分鐘
end if
Response.Write(content)
'myCache.makeEmpty()
set clsCache=nothing '釋放對(duì)象
%>

標(biāo)簽：銅川電商邀評(píng) 蘇州延邊優(yōu)質(zhì)小號(hào) 那曲河池新鄉(xiāng)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《ASP實(shí)現(xiàn)緩存類無(wú)錯(cuò)版》，本文關(guān)鍵詞 ASP,實(shí)現(xiàn),緩存,類,無(wú)錯(cuò),版,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。