復(fù)制代碼 代碼如下: <% Rem ================================================================= Rem = 類:CacheCls Rem = 說明:緩存的應(yīng)用 Rem = Revision:1.01 Beta Rem = 作者:熊氏英雄（cexo255） Rem = Date:2005/05/6 18:38:10 Rem = QQ:30133499 Rem = MySite:Http://www.Relaxlife.net Rem = 下載：Http://www.Relaxlife.net/cexo/Cache_pro.rar Rem = QQ群：4341998 Rem = 適用:對一些常用到，而又不常改變的數(shù)據(jù)放入緩存中，調(diào)用速度要比每次都要從數(shù)據(jù)庫中讀要快N陪 Rem =================================================================
CacheName = "RL" Class CacheCls Private LocalCacheName, Cache_Data
Public Property Let Name(ByVal vNewValue) LocalCacheName = LCase(vNewValue) Cache_Data=Application(CacheName & "_" & LocalCacheName) End Property
Public Property Let Value(ByVal vNewValue) Dim N,i,NewValueArr If LocalCacheName<>"" Then N = CountInStr(vNewValue,"|") NewValueArr = Split(vNewValue,"|",-1,1) ReDim Cache_Data(N) For i = 0 to N Cache_Data(i) = NewValueArr(i) Next Application.Lock Application(CacheName & "_" & LocalCacheName) = Cache_Data Application.unLock Else Response.Write "設(shè)置緩存出錯(cuò)，或緩存名不能為空，請重新更新緩存" Response.End() End If End Property
