<%
Class Cls_Cache 
	Rem ==================使用說明==================== 
	Rem = 本類模塊是動網先鋒原創，作者：迷城浪子。如采用本類模塊，請不要去掉這個說明。這段注釋不會影響執行的速度。 
	Rem = 作用：緩存和緩存管理類 
	Rem = 公有變量：Reloadtime 過期時間（單位為分鐘）缺省值為14400 
	Rem = MaxCount 緩存對象的最大值，超過則自動刪除使用次數少的對象。缺省值為300 
	Rem = CacheName 緩存組的總名稱，缺省值為"Dvbbs",如果一個站點中有超過一個緩存組，則需要外部改變這個值。 
	Rem = 屬性:Name 定義緩存對象名稱，只寫屬性。 
	Rem = 屬性:value 讀取和寫入緩存數據。 
	Rem = 函數：ObjIsEmpty()判斷當前緩存是否過期。 
	Rem = 方法：DelCahe(MyCaheName)手工刪除一個緩存對象，參數是緩存對象的名稱。 
	Rem ======================== 
	Public Reloadtime,MaxCount,CacheName 
	Private LocalCacheName,CacheData,DelCount 
	Private Sub Class_Initialize() 
		Reloadtime=14400 
		CacheName="Edu25175" 
	End Sub 
	Private Sub SetCache(SetName,NewValue) 
		Application.Lock 
		Application(SetName) = NewValue 
		Application.unLock 
	End Sub 
	Private Sub makeEmpty(SetName) 
		Application.Lock 
		Application(SetName) = Empty 
		Application.unLock 
	End Sub 
	Public Property Let Name(ByVal vNewValue) 
		LocalCacheName=LCase(vNewValue) 
	End Property 
	Public Property Let Value(ByVal vNewValue) 
		If LocalCacheName<>"" Then 
			CacheData=Application(CacheName&"_"&LocalCacheName) 
			If IsArray(CacheData) Then 
				CacheData(0)=vNewValue 
				CacheData(1)=Now() 
			Else 
				ReDim CacheData(2) 
				CacheData(0)=vNewValue 
				CacheData(1)=Now() 
			End If 
			SetCache CacheName&"_"&LocalCacheName,CacheData 
		Else 
			Err.Raise vbObjectError + 1, "Edu25175CacheServer", " please change the CacheName." 
		End If 
	End Property 
	Public Property Get Value() 
		If LocalCacheName<>"" Then 
			CacheData=Application(CacheName&"_"&LocalCacheName) 
			If IsArray(CacheData) Then 
				Value=CacheData(0) 
			Else 
				Err.Raise vbObjectError + 1, "Edu25175CacheServer", " The CacheData Is Empty." 
			End If 
		Else 
			Err.Raise vbObjectError + 1, "Edu25175CacheServer", " please change the CacheName." 
		End If 
	End Property 
	Public Function ObjIsEmpty() 
		ObjIsEmpty=True 
		CacheData=Application(CacheName&"_"&LocalCacheName) 
		If Not IsArray(CacheData) Then Exit Function 
		If Not IsDate(CacheData(1)) Then Exit Function 
		If DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime Then ObjIsEmpty=False 
	End Function 
	Public Sub DelCahe(MyCaheName) 
		makeEmpty(CacheName&"_"&MyCaheName) 
	End Sub 
End Class 
 

%>