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

<% 
'********************************************** 
'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)