黄色电影一区二区,韩国少妇自慰A片免费看,精品人妻少妇一级毛片免费蜜桃AV按摩师 ,超碰 香蕉

 代碼如下:

<%
rem =================================================================
rem = 類:cachecls
rem = 說明:緩存的應(yīng)用
rem = revision:1.01 beta
rem = 適用:對一些常用到，而又不常改變的數(shù)據(jù)放入緩存中，調(diào)用速度要比每次都要從數(shù)據(jù)庫中讀要快n陪
rem =================================================================

cachename = "rl"
class cachecls
    private localcachename, cache_data

    public property let name(byval vnewvalue)
        localcachename = lcase(vnewvalue)
        cache_data=application(cachename & "_" & localcachename)
    end property

    public property let value(byval vnewvalue)
        dim n,i,newvaluearr
        if localcachename<>"" then 
            n = countinstr(vnewvalue,"|")
            newvaluearr = split(vnewvalue,"|",-1,1)
            redim cache_data(n)
            for i = 0 to n
                cache_data(i) = newvaluearr(i)
            next 
            application.lock
            application(cachename & "_" & localcachename) = cache_data
            application.unlock
        else
            response.write "設(shè)置緩存出錯，或緩存名不能為空，請重新更新緩存"
            response.end()
        end if
    end property

    public property get value()
        if localcachename<>"" then     
            if isarray(cache_data) then
                value=cache_data
            end if
        else
            response.write "設(shè)置緩存出錯，或緩存名不能為空，請重新更新緩存"
            response.end()
        end if
    end property

    '取指定緩存中的值
    public function getcachevalue(mycahename)
        getcachevalue = application(cachename & "_" & mycahename)
    end function

    '取所有緩存名
    public function getallcachename()
        dim cacheobj
        for each cacheobj in application.contents
            getallcachename = getallcachename & cacheobj & ","
        next
        getallcachename = left(getallcachename,len(getallcachename)-1)
        getallcachename = replace(getallcachename,cachename & "_","")
    end function

    '釋放緩存    
    public sub delcahe(mycahename)
        application.lock
        application.contents.remove(cachename & "_" & mycahename)
        application.unlock
    end sub

    '釋放所有緩存
    public sub removeallcache()
        dim cachelist,i
        cachelist=split(getallcachename(),",")
        if ubound(cachelist)>0 then
            for i=0 to ubound(cachelist)
                delcahe cachelist(i)
            next
        end if
    end sub

    '統(tǒng)計字符char在str中出現(xiàn)的次數(shù)
    private function countinstr(str,char)
        countinstr = 0
        dim i, charlen
        charlen = len(char)
        for i = 1 to len(str)
            if mid(str, i, charlen) = char then countinstr = countinstr + 1
        next
    end function

end class

dim cachepro 
set cachepro = new cachecls
'設(shè)置緩存“cexo255”和它的值："cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
cachepro.name = "cexo255"
cachepro.value = "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
'取當(dāng)前緩存中的值
'cachearr = cachepro.value

cachepro.name = "wxf"
cachepro.value = "wxf"
cachepro.name = "dw"
cachepro.value = "dw"

'釋放緩存cexo255
'cachepro.delcahe("cexo255")

'釋放所有緩存
'cachepro.removeallcache

'取cexo255緩存中的值
cachearr = cachepro.getcachevalue("cexo255")
if isarray(cachearr) then
    for i = 0 to ubound(cachearr)
        response.write cachearr(i) & "
"
    next
else
    response.write "緩存被釋放?。?！"
end if

set cachepro = nothing
%>