网站缓存应用类

 

Class jz_web_Cache Class jz_web_Cache

     Rem ==================使用说明=========================================
     Rem = 属性：Main 定义读取主缓存的Sql文本,读取主缓存,可读/写属性
     Rem = 属性：Main_Time 定义主缓存缓存过期时间,只写属性
     Rem = 属性：Main_LocalRefurbish 定义主缓存是否更新,只写属性
     Rem = 属性：Nav 定义读取栏目缓存的Sql文本,读取主缓存,可读/写属性
     Rem = 属性：Nav_Time 定义栏目缓存缓存过期时间,只写属性
     Rem = 属性：Nav_LocalRefurbish 定义栏目缓存是否更新,只写属性
     Rem = 属性：Template 定义读取模板缓存的Sql文本,读取主缓存,可读/写属性
     Rem = 属性：Template_Time 定义模板缓存缓存过期时间,只写属性
     Rem = 属性：Template_LocalRefurbish 定义模板缓存是否更新,只写属性
     Rem = 属性：Style 定义读取样式缓存的Sql文本,读取主缓存,可读/写属性
     Rem = 属性：Style_Time 定义样式缓存缓存过期时间,只写属性
     Rem = 属性：Style_LocalRefurbish 定义样式缓存是否更新,只写属性
     Rem = 属性：Groups 定义读取会员组缓存的Sql文本,读取主缓存,可读/写属性
     Rem = 属性：Groups_Time 定义会员组缓存缓存过期时间,只写属性
     Rem = 属性：Groups_LocalRefurbish 定义会员组缓存是否更新,只写属性
     Rem = 属性: Obj 定义数据库组件，只写属性。
     Rem = 属性: Cahce 定义缓存类组件，只写属性。
     Rem = 属性: Refurbish 定义全组是否更新缓存，只写属性。
     Rem = 属性: Reloadtime 定义全组缓存过期时间，只写属性。
     Rem = 函数: CreateCache(CacheName,PostRefurbish,CacheTime,SqlStr)创建缓存
     Rem =========================================================================================

     Rem 创建私有变量
     Private LocalMain,LocalNav,LocalTemplate,LocalStyle,LocalGroups
     Private Main_Sql,Nav_Sql,Template_Sql,Style_Sql,Groups_Sql
     Private Main_Time,nav_Time,Template_Time,Style_Time,Groups_Time
     Private Main_LocalRefurbish,nav_LocalRefurbish,Template_LocalRefurbish,Style_LocalRefurbish,Groups_LocalRefurbish
     Private LocalObj,LocalCahce,LocalRefurbish,LocalReloadtime
     Private LocalArrayMain,LocalArrayNav(1)

     Rem 设置使用Initialize事件
     Private Sub Class_Initialize()Sub Class_Initialize()
                 Main_Sql="select * from jz_Config"
                 nav_Sql="select * from Jz_News_Class orDER BY jz_4 "
                 Template_Sql="select [jz_0],[jz_3] from Jz_Template"
                 Style_Sql="select * from Jz_Style"
                 Groups_Sql="select * from jz_groups"
                 LocalRefurbish=False
                 Main_LocalRefurbish=LocalRefurbish
                 nav_LocalRefurbish=LocalRefurbish
                 Template_LocalRefurbish=LocalRefurbish
                 Style_LocalRefurbish=LocalRefurbish
                 Groups_LocalRefurbish=LocalRefurbish
                 LocalReloadtime=14400
                 Main_Time=LocalReloadtime
                 nav_Time=LocalReloadtime
                 Template_Time=LocalReloadtime
                 Style_Time=LocalReloadtime
                 Groups_Time=LocalReloadtime
     end sub

     Rem 设置使用terminate事件
     Private Sub class_terminate()Sub class_terminate()
     end sub

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Main(vNewValue)
                 Main_Sql=vNewValue
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get Main()
                 Main=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get ArrayMain()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 ArrayMain=LocalArrayMain
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainTitle()
                 If Not IsArray(LocalArrayMain) Then      LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainTitle=LocalArrayMain(0,0)
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainUrl()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainUrl=LocalArrayMain(1,0)
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainEmail()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainEmail=LocalArrayMain(2,0)
     End Property


     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainLogo()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainLogo=LocalArrayMain(3,0)
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainStyle()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainStyle=LocalArrayMain(4,0)
     End Property

     
     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainAdverti()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainAdverti=LocalArrayMain(43,0)
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainCopyright()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainCopy=LocalArrayMain(45,0)
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainDescription()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainDescription=LocalArrayMain(46,0)
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get MainKeywords()
                 If Not IsArray(LocalArrayMain) Then LocalArrayMain=CreateCache("Main",Main_LocalRefurbish,Main_Time,Main_Sql)
                 If IsArray(LocalArrayMain) Then MainKeywords=LocalArrayMain(47,0)
     End Property


     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Nav(vNewValue)
                 Nav_Sql=vNewValue
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get Nav()
                 Nav=CreateCache("Nav",nav_LocalRefurbish,Nav_Time,Nav_Sql)
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get ArrayNav()
                 If Not IsArray(LocalArrayNav(1)) Then
                       LocalArrayNav(1)=CreateCache("Nav",nav_LocalRefurbish,Nav_Time,Nav_Sql)
                       If IsArray(LocalArrayNav(1)) Then LocalArrayNav(0)=Ubound(LocalArrayNav(1),2)
                       ArrayNav=LocalArrayNav
                 End If
     End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Template(vNewValue)
                 Template_Sql=vNewValue
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get Template()
                 Template=CreateCache("Template",Template_LocalRefurbish,Template_Time,Template_Sql)
     End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Style(vNewValue)
                 Style_Sql=vNewValue
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get Style()
                 Style=CreateCache("Style",Style_LocalRefurbish,Style_Time,Style_Sql)
     End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Groups(vNewValue)
                 Groups_Sql=vNewValue
     End Property

     Rem Property Get　过程把属性值返回到调用应用程序。
     Public  Property Get()Property Get Groups()
                 Groups=CreateCache("Groups",Groups_LocalRefurbish,Groups_Time,Groups_Sql)
     End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Refurbish(vNewValue)
                 Rem 赋属性值给私有变量LocalRefurbish
                 LocalRefurbish=vNewValue
                 Rem 统一设置以下几个私有变量的值
                 Main_LocalRefurbish=LocalRefurbish
                 nav_LocalRefurbish=LocalRefurbish
                 Template_LocalRefurbish=LocalRefurbish
                 Style_LocalRefurbish=LocalRefurbish
                 Groups_LocalRefurbish=LocalRefurbish
     End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Reloadtime(vNewValue)
                 Rem 赋属性值给私有变量LocalReloadtime
                 LocalReloadtime=vNewValue
                 Rem 统一设置以下几个私有变量的值
                 Main_Time=LocalReloadtime
                 Nav_Time=LocalReloadtime
                 Template_Time=LocalReloadtime
                 Style_Time=LocalReloadtime
                 Groups_Time=LocalReloadtime
     End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Main_Refurbish(vNewValue)
                 Rem 私有变量LocalObj赋值为属性值
                 Main_LocalRefurbish=vNewValue
           End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Nav_Refurbish(vNewValue)
                 Rem 私有变量LocalObj赋值为属性值
                 Nav_LocalRefurbish=vNewValue
           End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Template_Refurbish(vNewValue)
                 Rem 私有变量LocalObj赋值为属性值
                 Template_LocalRefurbish=vNewValue
           End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Style_Refurbish(vNewValue)
                 Rem 私有变量LocalObj赋值为属性值
                 Style_LocalRefurbish=vNewValue
           End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Groups_Refurbish(vNewValue)
                 Rem 私有变量LocalObj赋值为属性值
                 Groups_LocalRefurbish=vNewValue
           End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Obj(vNewValue)
                 Rem 私有变量LocalObj赋值为属性值
                 set LocalObj=vNewValue
           End Property

     Rem Property Let　过程设置属性值。
     Public  Property Let()Property Let Cahce(vNewValue)
                 Rem 私有变量LocalObj赋值为属性值
                 set LocalCahce=vNewValue
           End Property

     Private Function CreateCache()Function CreateCache(CacheName,PostRefurbish,CacheTime,SqlStr)
                 Rem 参数传值设置缓存名称
                 LocalCahce.Name=CacheName
                 Rem 参数传值设置缓存过期时间
                 LocalCahce.Reloadtime=CacheTime
                 Rem 当不存在对应缓存时，创建缓存
                 If LocalCahce.ObjIsEmpty() or Not PostRefurbish Then LocalCahce.value=LocalObj.RsGetRows(SqlStr,0, 1,-1)
                 Rem 缓存信息赋给返回值。
                 CreateCache=LocalCahce.value
           End Function

End Class