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

 代碼如下:

＇**********************************************
＇ 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) 2002.12.24
＇ http://www.aspsky.net/
＇**********************************************
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)