Relaxlife.Net缓存的应用,调用速度要比每次都要从数据库中读要快N陪(原版)精典-Wind

 Relaxlife.Net缓存的应用,调用速度要比每次都要从数据库中读要快N陪(原版)精典
缓存的应用,调用速度要比每次都要从数据库中读要快N陪(原版)
<%
Rem =================================================================
Rem = 类:CacheCls
Rem = 说明:缓存的应用
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/2005/relaxlife/blogview.asp?logID=178
Rem = QQ群：4341998
Rem = 适用:对一些常用到，而又不常改变的数据放入缓存中，调用速度要比每次都要从数据库中读要快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