For applications cached by Relaxlife. Net, the call speed is faster than reading data from the database every time.

For applications cached by Relaxlife. Net, the call speed is faster than reading data from the database every time.
The cache application calls faster than reading data from the database every time)
<%
Rem ============================================== ======================================
Rem = class: CacheCls
Rem = description: cached applications
Rem = Revision: 1.01 Beta
Rem = author: Xiong's hero (cexo255)
Rem = Date: 18:38:10
Rem = QQ: 30133499.
Rem = MySite: Http: // www.Relaxlife.net
Rem = download: http://www.relaxlife.net/2005/relaxlife/blogview.asp? LogID = 178
Rem = QQ group: 4341998
Rem = applicable: for some frequently used and infrequently changed data to be put into the cache, the call speed is faster than reading data from the database every time.
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