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.R*ela*xli*fe.net
Rem = 下载：http://www.r**elaxl*ife.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