CacheCls緩存的應用
2024-05-04 11:02:53
供稿：網友
復制代碼 代碼如下:
<%
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/cexo/Cache_pro.rar
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
If LocalCacheName<>"" Then
N = CountInStr(vNewValue,"|")
NewValueArr = Split(vNewValue,"|",-1,1)
ReDim Cache_Data(N)
For i = 0 to N
Cache_Data(i) = NewValueArr(i)
Next
Application.Lock
Application(CacheName & "_" & LocalCacheName) = Cache_Data
Application.unLock
Else
Response.Write "設置緩存出錯，或緩存名不能為空，請重新更新緩存"
Response.End()
End If
End Property
Public Property Get Value()
