The code copy is as follows:
<%
Rem=====================================================================================
Rem=Class:CacheCls
Rem=Description: Cache application
Rem=Revision:1.01Beta
Rem=Author: Xiong Hero (cexo255)
Rem=Date:2005/05/618:38:10
Rem=QQ:30133499
Rem=MySite:Http://www.Relaxlife.net
Rem=Download: Http://www.Relaxlife.net/cexo/Cache_pro.rar
Rem=QQ group: 4341998
Rem=Applicable: For some commonly used and unchanged data, the call speed is faster than reading from the database every time.
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 "There is an error setting cache, or the cache name cannot be empty, please re-update the cache"
Response.End()
EndIf
EndProperty
PublicPropertyGetValue()