'Hora do cache, minuto de unidade
Const webcacheTime = 20
'Sinal de cache, use -o ao instalar vários sistemas em um espaço
Const webcacheflag = cache
'Defina o nome do cache do cache, valor do cache
Função setCache (Byval Cachename, Byval Cacheval)
Dim Cachedata
Cachename = LCase (Changechr (Cachename))
Cachedata = Aplicativo (Webcacheflag & Cachename)
Se Isarray (Cachedata)
Cachedata (0) = Cachevalue
Cachedata (1) = agora ()
Outro
Redim Cachedata (2)
Cachedata (0) = Cachevalue
Cachedata (1) = agora ()
Final se
Application.lock
Aplicativo (Webcacheflag & Cachename) = Cachedata
Application.unlock
Função final
'Obtenha o nome do cache do cache
Função getCache (Byval Cachename)
Dim Cachedata
Cachename = LCase (Changechr (Cachename))
Cachedata = Aplicativo (Webcacheflag & Cachename)
Se isarray (cachedata), então getcache = cachedata (0) mais getcache =
Função final
'Detecte o nome do depósito lento do cache
Função chkcache (byval cachename)
Dim Cachedata
Chkcache = false
Cachename = LCase (Changechr (Cachename))
Cachedata = Aplicativo (Webcacheflag & Cachename)
Se não for isarray (cachedata), então a função de saída
Caso contrário, o ISDATE (Cachedata (1)) e depois saia da função
Se datediff (s, cdate (cachedata (1)), agora ()) <60 * webcacheTime então chkcache = true
Função final