阿林`alinBlog

 一个asp缓存函数,支持字符串和数组

阿林, 发表于:2008-06-29 01:56:55, 分类:asp 浏览( ) 评论( )  收藏这篇日志
vb 代码
 
  1. <%
  2. '***********************************************
  3. '函数名:getcache
  4. '作  用:将需要缓存的内容,置入缓存中,并读取出来,如果缓存中存在该内容,则直接从缓存读取!
  5. '作  者: 静¢脉(hayden) 
  6. '时  间: 2007-12-21
  7. '参  数:funsname  ----    需要缓存的内容
  8. '       isreset ---- 是否更新[值:0(根据时间或判断缓存为空时自动更新)、1(主动更新)]
  9. '       isarr  ---- 所缓存的内容是否为一个数据[0为字符串,1为数组]
  10. '       timeinfo   ---- 缓存更新时间,单位为秒,当值为0时,则只在缓存为空时,才更新
  11. '返回值:缓存名为"funsname”的内容
  12. '***********************************************
  13. Function getcache(funsname,isreset,isarr,timeinfo)
  14.     dim domain = "myhhe.cn"    '缓存域
  15.     Dim temp_getconfig
  16.     Dim re_getcache : re_getcache = False
  17.     Dim temp_isarray_type : temp_isarray_type = False
  18.     Dim Appfunsname : Appfunsname = Replace(Replace(Replace(funsname,"(",""),")",""),",",".")
  19.     If isarr = 1 Then temp_isarray_type = True
  20.     If isreset = 1 Then re_getcache = True
  21.     If isreset = 2 Then 
  22.         execute("temp_getconfig="&funsname)
  23.         getcache = temp_getconfig
  24.         Exit Function
  25.     End If 
  26.     If Application(domain"_"&Appfunsname"_time") = "" And timeinfo<>0 Then re_getcache = True 
  27.     If Not re_getcache Then 
  28.         If temp_isarray_type Then 
  29.          If Not IsArray(Application(domain"_"&Appfunsname)) Then re_getcache = True
  30.         Else
  31.             If Application(domain"_"&Appfunsname) = "" Then re_getcache = True
  32.         End If
  33.     End If 
  34.     If Not re_getcache And timeinfo<>0 Then 
  35.         If Int(DateDiff("s",Application(domain"_"&Appfunsname"_time"),now()))>timeinfo Then re_getcache = True
  36.     End If 
  37.     If re_getcache Then 
  38.         execute("temp_getconfig="&funsname)
  39.         Application.Lock
  40.         Application(domain"_"&Appfunsname) = temp_getconfig
  41.         Application(domain"_"&Appfunsname"_time") = Now()
  42.         Application.UnLock
  43.     Else
  44.         temp_getconfig=Application(domain"_"&Appfunsname)
  45.     End If 
  46.     getcache = temp_getconfig
  47. End Function
  48. %>

 

 暂无标签
正在读取日志的评论数据,请稍后……
正在加载日志评论签写框,请稍后……
成员登录通道
正在载入成员登录通道...
添加文章到网摘

添加到网摘:

BLOG 日历助手
正在载入日历助手...
BLOG 分类列表
BLOG 统计信息
正在载入统计信息...
BLOG 站内搜索

BLOG 日志归档
BLOG 最新评论
{$SideComment}
BLOG 最新留言
{$SideGB}
BLOG 友情链接