<%
'論壇主緩存數(shù)據(jù)
Dim Dv_Cache
Set Dv_Cache=New Cls_Cache
'Set Dv_Cache=Server.CreateObject("webserver.Cls_cache")
Dv_Cache.Reloadtime=14400
Dv_Cache.CacheName="Dvbbs"
'頁面臨時(shí)數(shù)據(jù)
Dim Page_Cache
Set Page_Cache=New Cls_Cache
Page_Cache.Reloadtime=0.5
Page_Cache.CacheName="pages"
Dim templates_Cache
Set templates_Cache=New Cls_Cache
templates_Cache.CacheName="templates"
Class Cls_Cache
	Rem ==================使用說明=================================================================================
	Rem = 本類模塊是動(dòng)網(wǎng)先鋒原創(chuàng)，作者：迷城浪子。如采用本類模塊，請(qǐng)不要去掉這個(gè)說明。這段注釋不會(huì)影響執(zhí)行的速度。=
	Rem = 作用：緩存和緩存管理類                                                                                  =
	Rem = 公有變量：Reloadtime 過期時(shí)間（單位為分鐘）缺省值為14400,                                               =
	Rem = MaxCount 緩存對(duì)象的最大值，超過則自動(dòng)刪除使用次數(shù)少的對(duì)象。缺省值為300                                  =
	Rem = CacheName 緩存組的總名稱，缺省值為"Dvbbs",如果一個(gè)站點(diǎn)中有超過一個(gè)緩存組，則需要外部改變這個(gè)值。        =
	Rem = 屬性:Name 定義緩存對(duì)象名稱，只寫屬性。                                                                  =
	Rem = 屬性:value 讀取和寫入緩存數(shù)據(jù)。                                                                         = 
	Rem = 函數(shù)：ObjIsEmpty()判斷當(dāng)前緩存是否過期。                                                                =
	Rem = 方法：DelCahe(MyCaheName)手工刪除一個(gè)緩存對(duì)象，參數(shù)是緩存對(duì)象的名稱。                                   =
	Rem ===========================================================================================================
	Public Reloadtime,MaxCount,CacheName
	Private LocalCacheName,CacheData,DelCount
	Private Sub Class_Initialize()
		Reloadtime=14400
		CacheName="Dvbbs"
	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, "DvbbsCacheServer", " 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, "DvbbsCacheServer", " The CacheData Is Empty."
			End If
		Else
			Err.Raise vbObjectError + 1, "DvbbsCacheServer", " 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 If
	End Function
	Public Sub DelCahe(MyCaheName)
		makeEmpty(CacheName&"_"&MyCaheName)
	End Sub
End Class
%>