' 用途:用于常用數據的緩存,以減少執行,加快速度,但是由于使用application來存貯數據,有可能對服務器造成負擔
' 類名 Cache_Class
' 方法 NoCache(函數名,關鍵字) 測試該緩存是否有效
' 屬性 Value 如果緩存無效,使用該屬性設置緩存,如果緩存,則使用該屬性讀取緩存
' 例子
' Dim Cache
' Set Cache = New Cache_Class
' if Cache.NoCache("getname(a)","username") Then Cache.Value=getname(a)
' Response.Write Cache.Value
' 注意:每次使用前都需要用NoCache方法來測試,否則無法保證的取得的值是否為當前設置的函數名
' 技巧:函數名用于識別,當有數據改變時,只需直接調用函數SetCac

當你的技術已經到達一定的時候，這代碼是非常有用的！因為他是進軍優化行列的必須函數！建議各位收藏使用！

 程序代碼
<%Class Cache_Class
Dim Cache_Name, Cache_Key, Version, Cache_Value

Function NoCache(FunName, Key)
Dim NoIn
Cache_Name = FunName
Cache_Key = Key
Cache_Value = Application("Cache_" & Cache_Name)
NoIn = True
If IsArray(Cache_Value) Then If Application("CacheKey_" & Cache_Key) = Cache_Value(0) Then NoIn = False
NoCache = NoIn
End Function

PRoperty Get Value()
Value = Cache_Value(1)
End Property

Property Let Value(Val)
ReDim Cache_Value(1)
Cache_Value(0) = Application("CacheKey_" & Cache_Key)
Cache_Value(1) = Val
Application("Cache_" & Cache_Name) = Cache_Value
End Property

End Class

Function SetCacheKey(Key)
Application("CacheKey_" & Key) = Timer
End Function

Dim Cache
Set Cache = New Cache_Class
%>