複製代碼代碼如下:
<%
Rem=================================================================
Rem=類:CacheCls
Rem=說明:緩存的應用
Rem=Revision:1.01Beta
Rem=作者:熊氏英雄（cexo255）
Rem=Date:2005/05/618:38:10
Rem=QQ:30133499
Rem=MySite:Http://www.Relaxlife.net
Rem=下載：Http://www.Relaxlife.net/cexo/Cache_pro.rar
Rem=QQ群：4341998
Rem=適用:對一些常用到，而又不常改變的數據放入緩存中，調用速度要比每次都要從數據庫中讀要快N陪
Rem=================================================================
CacheName="RL"
ClassCacheCls
PrivateLocalCacheName,Cache_Data
PublicPropertyLetName(ByValvNewValue)
LocalCacheName=LCase(vNewValue)
Cache_Data=Application(CacheName&"_"&LocalCacheName)
EndProperty
PublicPropertyLetValue(ByValvNewValue)
DimN,i,NewValueArr
IfLocalCacheName<>""Then
N=CountInStr(vNewValue,"|")
NewValueArr=Split(vNewValue,"|",-1,1)
ReDimCache_Data(N)
Fori=0toN
Cache_Data(i)=NewValueArr(i)
Next
Application.Lock
Application(CacheName&"_"&LocalCacheName)=Cache_Data
Application.unLock
Else
Response.Write"設置緩存出錯，或緩存名不能為空，請重新更新緩存"
Response.End()
EndIf
EndProperty
PublicPropertyGetValue()