定时更新缓存

发布:tonightdream | 发布时间: 2010年1月28日

'===========判断更新缓存条件======
update=0
'默认为0，修改该值为1可立即更新缓存
If Application("date")="" or Application("time")="" then
    update=1
Else
    If Application("date")<>date then'如果缓存内容不是当天则更新数据
    update=1
    Else
    t1=time()
    t3=dateadd("h",6,Application("time"))'缓存内容超过6小时则更新数据
    if t1>t3 then update=1
    End if
End if
'===========判断更新缓存条件=========
%>