捌度空间 缓存类

捌度空间 缓存类代码


代码如下:

<%
class Cache
    private obj            'cache内容
    private expireTime        '过期时间
    private expireTimeName    '过期时间application名
    private cacheName        'cache内容application名
    private path            'url

private sub class_initialize()
        path=request.servervariables("url")
        path=left(path,instrRev(path,"/"))
    end sub

private sub class_terminate()
    end sub

public property get blEmpty
        '是否为空
        if isempty(obj) then
            blEmpty=true
        else
            blEmpty=false
        end if
    end property

public property get valid
        '是否可用(过期)
        if isempty(obj) or not isDate(expireTime) then
            valid=false
        elseif CDate(expireTime)<now then
                valid=false
        else
            valid=true
        end if
    end property

public property let name(str)
        '设置cache名
        cacheName=str & path
        obj=application(cacheName)
        expireTimeName=str & "expires" & path
        expireTime=application(expireTimeName)
    end property

public property let expires(tm)
        '重设置过期时间
        expireTime=tm
        application.lock
        application(expireTimeName)=expireTime
        application.unlock
    end property

public sub add(var,expire)
        '赋值
        if isempty(var) or not isDate(expire) then
            exit sub
        end if
        obj=var
        expireTime=expire
        application.lock
        application(cacheName)=obj
        application(expireTimeName)=expireTime
        application.unlock
    end sub

public property get value
        '取值
        if isempty(obj) or not isDate(expireTime) then
            value=null
        elseif CDate(expireTime)<now then
            value=null
        else
            value=obj
        end if
    end property

public sub makeEmpty()
        '释放application
        application.lock
        application(cacheName)=empty
        application(expireTimeName)=empty
        application.unlock
        obj=empty
        expireTime=empty
    end sub

public function equal(var2)
        '比较
        if typename(obj)<>typename(var2) then
            equal=false
        elseif typename(obj)="Object" then
            if obj is var2 then
                equal=true
            else
                equal=false
            end if
        elseif typename(obj)="Variant()" then
            if join(obj,"^")=join(var2,"^") then
                equal=true
            else
                equal=false
            end if
        else
            if obj=var2 then
                equal=true
            else
                equal=false
            end if
        end if
    end function
end class
%>

使用方法:


代码如下:

set myCache=new cache
    myCache.name="flash1"
    If myCache.valid then
        StartGet = myCache.value
    Else
        StartGet = GetHttpPage(HttpUrl)    
        myCache.add StartGet,dateadd("h",3,Now)
    End if 
    List=GetBody(StartGet,"</form>","<!-- ********网页中部代码结束******** -->",False,False)

(0)

相关推荐

  • 捌度空间 缓存类

    捌度空间 缓存类代码 复制代码 代码如下: <% class Cache     private obj            'cache内容     private expireTime        '过期时间     private expireTimeName    '过期时间application名     private cacheName        'cache内容application名     private path            'url private su

  • 一个简洁实用的PHP缓存类完整实例

    本文完整描述了一个简洁实用的PHP缓存类,可用来检查缓存文件是否在设置更新时间之内.清除缓存文件.根据当前动态文件生成缓存文件名.连续创建目录.缓存文件输出静态等功能.对于采用PHP开发CMS系统来说,离不开对缓存的处理,合理利用好缓存可有效的提高程序执行效率. php缓存类文件完整代码如下: <?php /* * 缓存类 cache */ class cache { //缓存目录 var $cacheRoot = "./cache/"; //缓存更新时间秒数,0为不缓存 var

  • php实现的redis缓存类定义与使用方法示例

    本文实例讲述了php实现的redis缓存类定义与使用方法.分享给大家供大家参考,具体如下: php+redis缓存类 <?php class redisCache { /** * $host : redis服务器ip * $port : redis服务器端口 * $lifetime : 缓存文件有效期,单位为秒 * $cacheid : 缓存文件路径,包含文件名 */ private $host; private $port; private $lifetime; private $cachei

  • 简单实用的网站PHP缓存类实例

    缓存技术在实际使用当中应用非常广泛,可以有效减轻对服务器数据库的访问压力,提高运行速度.目前很多CMS内容管理系统中频繁使用缓存机制来提高系统运行的效率.本文以一个简单实用的缓存类为例,帮助大家参考下缓存的机制与写法. 缓存文件cache.php代码如下: <?php /* 用户需要事先定义的常量: _CachePath_ 模板缓存路径 _CacheEnable_ 自动缓存机制是否开启,未定义或为空,表示关闭自动缓存机制 _ReCacheTime_ 自动重新缓存间隔时间,单位为秒,未定义或为空,

  • PHP实现的简单缓存类

    本文实例讲述了PHP实现的简单缓存类.分享给大家供大家参考.具体如下: cache.inc.php: <?php class Cache { /** * $dir : 缓存文件存放目录 * $lifetime : 缓存文件有效期,单位为秒 * $cacheid : 缓存文件路径,包含文件名 * $ext : 缓存文件扩展名(可以不用),这里使用是为了查看文件方便 */ private $dir; private $lifetime; private $cacheid; private $ext;

  • 一个简单至极的PHP缓存类代码

    网上关于 PHP 缓存类的资料很多,不过这个类应该是我见过功能满足需求,但又无比简洁的一个.废话不多说,直接看代码吧! 使用说明: 1.实例化 $cache = new Cache(); 2.设置缓存时间和缓存目录 $cache = new Cache(60, '/any_other_path/'); 第一个参数是缓存秒数,第二个参数是缓存路径,根据需要配置. 默认情况下,缓存时间是 3600 秒,缓存目录是 cache/ 3.读取缓存 $value = $cache->get('data_ke

  • ASP实现缓存类无错版

    <%  '**********************************************  'vbs Cache类 ' 属性valid,是否可用,取值前判断  ' 属性name,cache名,新建对象后赋值  ' 方法add(值,到期时间),设置cache内容  ' 属性value,返回cache内容  ' 属性blempty,是否未设置值  ' 方法makeEmpty,释放内存,测试用  ' 方法equal(变量1),判断cache值是否和变量1相同  ' 方法expires(t

  • asp缓存类

    至于缓存的作用,我想我也不用再多说了,它的作用已经很明显,特别是对于信息量非常大或是全数据库页面的网站,他能很好地利用主机的内存资源,加速ASP的执行效率,减轻服务器的负担,而动网在这一方面做得是最突出的,像他现在的dvbbs7.1.0版,更是在缓存的利用上更上一层楼,前后台大多的操作都和缓存有关,而现在动网里用的也就是迷城浪子的缓存类,下面列出动网的三大高手写的ASP缓存类 木鸟写的 复制代码 代码如下: '*******************************************

  • asp xml 缓存类

    复制代码 代码如下: <% Rem xml缓存类 '-------------------------------------------------------------------- '转载的时候请保留版权信息 '作者:╰⑥月の雨╮ '版本:ver1.0 '本类部分借鉴 walkmanxml数据缓存类,使用更为方便 欢迎各位交流进步 '-------------------------------------------------------------------- Class Xml

  • winform简单缓存类实例

    本文实例讲述了winform简单缓存类.分享给大家供大家参考.具体如下: public partial class Form3 : Form { //缓存类 System.Web.Caching.Cache cache; public Form3() { InitializeComponent(); string SQL = "select top 1000 * from infomation"; DataTable datatable = DBHelper.GetDataTable(

随机推荐