ASP实现缓存变量的函数

xuanxiao · 发表于 2022-2-21 21:15:45

Function Set_Cache_Value(Cache_Name,Cache_Val,Reload_Time)
Dim cacheValue,cacheReload_Time,Reload_TimeValue
cacheValue = Application("cache_"&Cache_Name)
cacheReload_Time = Application("cache_"&Cache_Name&"_Val")
if cacheValue = "" then
cacheReload_Time = DateAdd("s",Reload_Time,Now)
end if
Reload_TimeValue = DateDiff("s", Now, cacheReload_Time)
if Reload_TimeValue > 0 and cacheValue <> "" then
Set_Cache_Value = cacheValue
else
Application.Lock
Application("cache_"&Cache_Name) = Cache_Val
Application("cache_"&Cache_Name&"_Val") = DateAdd("s",Reload_Time,Now)
Application.UnLock
end if
End Function
call set_Cache_Value("token",token,30*1*60*60*24)

复制代码

适合日常的变量缓存等

热米粉 · 发表于 2022-3-8 22:35:11

我也封装过类似的方法：cc(ns, initFunc, sec)
第二个参数和你的不一样，我是传一个方法进去。
当缓存 === null 的时候或者缓存到期的时候，就会执行 initFunc 方法，重新计生成新的缓存数据。
这样做的优势就是可以一些复杂的运算结果缓存之后，有效期内不会再次运算。

vbs 应该也能传方法到另一个方法里面执行，好像是一个 byref 的语法

xuanxiao · 发表于 2022-3-8 22:43:29

热米粉发表于 2022-3-8 22:35
我也封装过类似的方法：cc(ns, initFunc, sec)
第二个参数和你的不一样，我是传一个方法进去。
当缓存 == ...

那就是传值声明个嘛，回头来试试。

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[ASP函数] ASP实现缓存变量的函数

在线客服

官方Q群 天天ASP家园网友互动群 群1: 697497501(新手学习互助群) 群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[ASP函数] ASP实现缓存变量的函数

在线客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)