|
6#
大 中
小 发表于 2008-6-18 22:46
Public Function getAutoRefreshCache(strCacheName)
Dim arrCache
arrCache = Application("arcache_" & strCacheName)
If IsArray(arrCache) = False Then
reloadARCache(strCacheName)
End If
If arrCache(0) < Now Then
reloadARCache(strCacheName)
End If
arrCache = Application("arcache_" & strCacheName)
getAutoRefreshCache = arrCache(1)
End Function
Public Sub reloadARCache(strCacheName)
Dim arrCache(2)
Dim sExpiresTime
arrCache(1) = Eval("create_" & strCachename & "(sExpiresTime)")
arrCache(0) = sExpiresTime
Application("arcache_" & strCacheName) = arrCache
End Sub
你风流,我俊雅,和你同年少,两情深,罚下愿,再不去跳槽。
|