'**********************************************************************************************************
' Programmer By Shadow (QQ:33512603)
' Cache Base Class
' The DataCacheRealization class is packaging simple Cache operate
' Don't use Microsoft Enterprise Library
' Corpright(C) 2006 Jiang Jian
'**********************************************************************************************************
' 程序设计：江建
'**********************************************************************************************************
Imports System
Imports System.Web
Imports System.Web.Caching
Namespace DRMSystemNamespace DRMSystem.Common.Caching
Public Class DataCacheRealizationClass DataCacheRealization
Inherits DataCacheAbstract
Private Shared ReadOnly _cache As Cache
Shared/Static Methods#Region "Shared/Static Methods"
Shared Sub New()Sub New()
_cache = HttpRuntime.Cache
End Sub
#End Region
Public utility methods#Region "Public utility methods"
'**********************************************************************************************************
'功 能：创建一个Sql Server 数据库的 缓存依赖项
'参 数：DataBaseName - 数据名称， SqlTableName - 数据库中的表名(多个表名以逗号分割)
'返回值：AggregateCacheDependency (具体说明参见 MSDN)
'**********************************************************************************************************
Public Overrides Function CreateSqlTableCacheDependency()Function CreateSqlTableCacheDependency(ByVal DataBaseName As String, ByVal SqlTableName As String) As AggregateCacheDependency
Dim Dependency As New AggregateCacheDependency
Dim strTemp As String = SqlTableName
Dim Tables() As String = strTemp.Split(",")
Dim TableName As String
For Each TableName In Tables
Dependency.Add(New SqlCacheDependency(DataBaseName, TableName))
Next
Return Dependency
End Function
'**********************************************************************************************************
'功 能：创建一个 文件(File) 缓存依赖项
'参 数：FileName - 文件名包括路径(多个文件名以逗号分割)
'返回值：AggregateCacheDependency (具体说明参见 MSDN)
'**********************************************************************************************************
Public Overrides Function CreateFileCacheDependency()Function CreateFileCacheDependency(ByVal FileName As String) As AggregateCacheDependency
Dim Dependency As New AggregateCacheDependency
Dim strTemp As String = FileName
Dim Files() As String = strTemp.Split(",")
Dim strFileName As String
For Each strFileName In Files
Dependency.Add(New CacheDependency(strFileName))
Next
Return Dependency
End Function
'**********************************************************************************************************
'功 能：从 Cache 对象检索指定项
'参 数：Key - 要检索的缓存项的标识符
'返回值：Object
'**********************************************************************************************************
Public Overrides Function GetCache()Function GetCache(ByVal Key As String) As Object
Return _cache.Get(Key)
End Function
'**********************************************************************************************************
'功 能：从应用程序的 Cache 对象移除指定项
'参 数：Key - 要移除的缓存项的 String 标识符
'返回值：NULL
'**********************************************************************************************************
Public Overrides Sub Remove()Sub Remove(ByVal Key As String)
_cache.Remove(Key)
End Sub
'**********************************************************************************************************
'功 能：删除应用程序中的所有 Cache 对象
'参 数：NULL
'返回值：NULL
'**********************************************************************************************************
Public Overrides Sub Clear()Sub Clear()
Dim CacheEnum As IDictionaryEnumerator = _cache.GetEnumerator()
While CacheEnum.MoveNext()
_cache.Remove(CacheEnum.Key)
End While
End Sub
'**********************************************************************************************************
'功 能：将指定项添加到 Cache 对象，该对象具有依赖项、过期和优先级策略以及一个委托。
'参 数：Key - 用于引用该项的缓存键， Value - 要插入缓存中的对象，Dependencies - 所插入对象的文件依赖项
'参 数：AbsoluteExpiration - 所插入对象将过期并被从缓存中移除的时间
'参 数：SlidingExpiration - 最后一次访问所插入对象时与该对象过期时之间的时间间隔
'参 数：Priority 该对象相对于缓存中存储的其他项的成本，由 CacheItemPriority 枚举表示。
'参 数：onRemoveCallback 在从缓存中移除对象时将调用的委托（如果提供）
'返回值：Object
'**********************************************************************************************************
Public Overrides Function Add()Function Add(ByVal Key As String, ByVal Value As Object, ByVal Dependencies As CacheDependency, ByVal AbsoluteExpiration As DateTime, ByVal SlidingExpiration As TimeSpan, ByVal Priority As CacheItemPriority, ByVal OnRemoveCallback As CacheItemRemovedCallback) As Object
Return _cache.Add(Key, Value, Dependencies, AbsoluteExpiration, SlidingExpiration, Priority, OnRemoveCallback)
End Function
'**********************************************************************************************************
'功 能：向 Cache 对象插入项，该项带有一个缓存键引用其位置，并使用 CacheItemPriority 枚举提供的默认值
'参 数：Key - 用于引用该项的缓存键， Value - 要插入缓存中的对象
'返回值：NULL
'**********************************************************************************************************
Public Overloads Overrides Sub Insert()Sub Insert(ByVal Key As String, ByVal Value As Object)
Insert(Key, Value, Nothing)
End Sub
'**********************************************************************************************************
'功 能：向 Cache 对象插入项，该项带有一个缓存键引用其位置，并使用 CacheItemPriority 枚举提供的默认值
'参 数：Key - 用于引用该项的缓存键， Value - 要插入缓存中的对象，Dependencies - 所插入对象的文件依赖项
'返回值：NULL
'**********************************************************************************************************
Public Overloads Overrides Sub Insert()Sub Insert(ByVal Key As String, ByVal Value As Object, ByVal Dependencies As CacheDependency)
Insert(Key, Value, Dependencies, Cache.NoAbsoluteExpiration, Cache.NoSlidingExpiration)
End Sub
'**********************************************************************************************************
'功 能：向 Cache 对象插入项，该项带有一个缓存键引用其位置，并使用 CacheItemPriority 枚举提供的默认值
'参 数：Key - 用于引用该项的缓存键， Value - 要插入缓存中的对象，Dependencies - 所插入对象的文件依赖项
'参 数：AbsoluteExpiration - 所插入对象将过期并被从缓存中移除的时间
'参 数：SlidingExpiration - 最后一次访问所插入对象时与该对象过期时之间的时间间隔
'返回值：NULL
'**********************************************************************************************************
Public Overrides Sub Insert()Sub Insert(ByVal Key As String, ByVal Value As Object, ByVal Dependencies As CacheDependency, ByVal AbsoluteExpiration As DateTime, ByVal SlidingExpiration As TimeSpan)
_cache.Insert(Key, Value, Dependencies, AbsoluteExpiration, SlidingExpiration)
End Sub
'**********************************************************************************************************
'功 能：向 Cache 对象插入项，该项带有一个缓存键引用其位置，并使用 CacheItemPriority 枚举提供的默认值
'参 数：Key - 用于引用该项的缓存键， Value - 要插入缓存中的对象，Dependencies - 所插入对象的文件依赖项
'参 数：AbsoluteExpiration - 所插入对象将过期并被从缓存中移除的时间
'参 数：SlidingExpiration - 最后一次访问所插入对象时与该对象过期时之间的时间间隔
'参 数：Priority 该对象相对于缓存中存储的其他项的成本，由 CacheItemPriority 枚举表示。
'参 数：onRemoveCallback 在从缓存中移除对象时将调用的委托（如果提供）
'返回值：NULL
'**********************************************************************************************************
Public Overrides Sub Insert()Sub Insert(ByVal Key As String, ByVal Value As Object, ByVal Dependencies As CacheDependency, ByVal AbsoluteExpiration As DateTime, ByVal SlidingExpiration As TimeSpan, ByVal Priority As CacheItemPriority, ByVal OnRemoveCallback As CacheItemRemovedCallback)
_cache.Insert(Key, Value, Dependencies, AbsoluteExpiration, SlidingExpiration, Priority, OnRemoveCallback)
End Sub
#End Region
End Class
End Namespace
发表于 @ 2007年04月02日 00:20:00|评论(loading...)|编辑