发布我写的缓寸类请高手指教

2006-06-11 11:38:13 167 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Extjs 6.2 实战（一）我是根据Extjs 6.2实战这本书来学习的现在就把这本书上面的例子与大家分享一下顺便记录一下我的学习轨迹ExtJs4 到 ExtJs5 是从MVC到MVVM模型的转变，MVVM模型带来的好处是控制器终于可以跟随视图创建或者销毁了MVVM另一个好处就是绑定，例如在5之前的版本中，要根据网格（Ext.grid.Panel）是否已经选择了数据来判断是否启用或者禁用按钮，基本的实现思路是监听网格的选择... 阅读详情

Class AppCache
Public Reloadtime,MaxCount,CacheData,ClearTime
Private Sub Class_Initialize()
Reloadtime=1
MaxCount=500
ClearTime=10 '定期回收内存
End Sub
'-------------------------------
Public Sub PutCache(CacheName,NewValue)
ReDim CacheData(2)
CacheData(0)=NewValue
CacheData(1)=Now()
Application.Lock
Application(CacheName) = CacheData
Application.unLock
End Sub
'-------------------------------------------------------
Public Sub DeleteCache(CacheName)
Dim CacheData
CacheData=Application(CacheName)
If Not IsNull(CacheData) then
Application.Lock
Application(CacheName) = null
Application.unLock
End if
End Sub
'--------------------------------------------------------
Public function GetCacheValue(CacheName)
call ClearOvertimeObject()
'------------------
Dim CacheData
CacheData=Application(CacheName)
If IsArray(CacheData) Then
If IsDate(CacheData(1)) And DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime then
GetCacheValue=CacheData(0)
Application.Lock
CacheData(1)=now()
Application(CacheName)=CacheData
Application("hitCount") = Application("hitCount")+1
Application.unLock
Else
DeleteCache(CacheName)
GetCacheValue=null
End if
Else
GetCacheValue=Null
End If
End function
'---------------------------------------
'清理过期的数据
'-------------------------------------------
Public Function ClearOvertimeObject()
Dim lasttime,element,key
lasttime=Application("lasttime")
if Not IsDate(lasttime) then
Application("lasttime")=now()
exit function
End if
if DateDiff("s",CDate(lasttime),Now()) > 60*ClearTime then
For Each Key in Application.Contents
element=Application.Contents(key)
if IsArray(element) then
If IsDate(element(1)) And DateDiff("s",CDate(element(1)),Now()) > 60*Reloadtime then
Application.Contents(key)=null
Application.Contents("clearcount")=Application.Contents("clearcount")+1
end if
end if
Next
end if
End function
End Class

...全文