服务器缓存部分函数

服务器缓存部分函数开始

Public Property Let Name(ByVal vNewValue)
  LocalCacheName = LCase(vNewValue)
  Cache_Data = Application(CacheName & "_" & LocalCacheName)
 End Property
 Public Property Let Value(ByVal vNewValue)
  If LocalCacheName <> "" Then
   ReDim Cache_Data(2)
   Cache_Data(0) = vNewValue
   Cache_Data(1) = Now()
   Application.Lock
   Application(CacheName & "_" & LocalCacheName) = Cache_Data
   Application.UnLock
  Else
   Err.Raise vbObjectError + 1, "NewaspCacheServer", " please change the CacheName."
  End If
 End Property
 Public Property Get Value()
  If LocalCacheName <> "" Then
   If IsArray(Cache_Data) Then
    Value = Cache_Data(0)
   Else
    'Err.Raise vbObjectError + 1, "NewaspCacheServer", " The Cache_Data("&LocalCacheName&") Is Empty."
   End If
  Else
   Err.Raise vbObjectError + 1, "NewaspCacheServer", " please change the CacheName."
  End If
 End Property
 Public Function ObjIsEmpty()
  ObjIsEmpty = True
  If Not IsArray(Cache_Data) Then Exit Function
  If Not IsDate(Cache_Data(1)) Then Exit Function
  If DateDiff("s", CDate(Cache_Data(1)), Now()) < (60 * Reloadtime) Then ObjIsEmpty = False
 End Function
 Public Sub DelCahe(MyCaheName)
  Application.Lock
  Application.Contents.Remove (CacheName & "_" & MyCaheName)
  Application.UnLock
 End Sub
 Public Sub DelCache(MyCaheName)
  Application.Lock
  Application.Contents.Remove ("mynewasp_" & MyCaheName)
  Application.UnLock
 End Sub