cache

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

Public Expires

Private Sub Class_Initialize()
    Expires = DateAdd("n", 20, Now())
End Sub

Public Default Property Get Item(ByVal strName)
    If IsEmpty(GetCache(strName)) Then Exit Property
    Dim dtmCache
    dtmCache = GetCache(strName & ".Expires")
    If DateDiff("s", dtmCache, Now()) > 0 Then Exit Property
    If VarType(GetCache(strName)) = vbObject Then
        Set Item = GetCache(strName)
    Else
        Item = GetCache(strName)
    End If
End Property

Public Property Let Item(ByVal strName, vtValue)
    SetCache strName, vtValue
    SetCache strName & ".Expires", Expires
End Property

Public Sub Remove(ByVal strName)
    DelCache strName
    DelCache strName & ".Expires"
End Sub