精品熟女碰碰人人a久久,多姿,欧美欧美a v日韩中文字幕,日本福利片秋霞国产午夜,欧美成人禁片在线观看

ASP實現緩存類無錯版
<% 
'********************************************** 
'vbs cache類
' 屬性valid,是否可用,取值前判斷 
' 屬性name,cache名,新建對象后賦值 
' 方法add(值,到期時間),設置cache內容 
' 屬性value,返回cache內容 
' 屬性blempty,是否未設置值 
' 方法makeempty,釋放內存,測試用 
' 方法equal(變量1),判斷cache值是否和變量1相同 
' 方法expires(time),修改過期時間為time 
' 木鳥寫的緩存類
'********************************************** 

class cache 
private obj 'cache內容 
private expiretime '過期時間 
private expiretimename '過期時間application名 
private cachename 'cache內容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 
    '是否可用(過期) 
    if isempty(obj) or not isdate(expiretime) then 
        valid=false 
    elseif cdate(expiretime)
相關文章