ASP中利用application实现缓存- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP中利用application实现缓存

技术文章搜索

关键字

ASP中利用application实现缓存

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 48 ::

收藏到网摘: n/a

ASP动态包含文件的改进方法 ASP Application 对象用户手册

编者前言:

在web程序中实现缓存的方法有很多办法，例如用文件缓存，把某些数据临时的放入文件中；或者在数据库中缓存需要大量读取的数值；另外的较常见的方法就是利用全局变量进行缓存。在asp中利用application实现数据的缓存是很常见的，可以把某些共有的数据从数据库中独立出来，从而减少服务器的压力。缓存会占用一定的内存，所以不可用application存储很大的数据。

我认为在ASP中最好的办法是用编程实现定时刷新Cache，也就是说给Application中储存的设一个过期时间。当然，在ASP中Application对象没有这样一个ExpireTime属性。这需要用程序实现。

以下为引用的内容：
Code
　　ASP：default.asp

<%@Language=VBScript%>
　　<%Option Explicit%>
　　<%Response.Buffer=True%>
　　
　　
　　<HTML>
　　<HEAD>
　　<TITLE>ASP Cache演示</TITLE>
　　<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
　　</HEAD>
　　<BODY>
　　<h4>每隔10秒刷新Cache：</h4>
　　<%
　　response.Flush
　　GetHTMLStream
　　response.Write
　　HTMLStream
　　%>
　　</body>
　　</html>

ASP：getcache.asp 　　

以下为引用的内容：
<%
　　Const CACHE_DEFAULT_INTERVAL = 30 '每隔30秒刷新一次cache
　　Dim HTMLStream
　　Dim IsExpires
　　IsExpires = CacheExpires
　　Function CacheExpires
　　Dim strLastUpdate
　　Dim result strLastUpdate = Application("LastUpdate")
　　If (strLastUpdate = "") Or (CACHE_DEFAULT_INTERVAL < DateDiff("s", strLastUpdate, Now)) Then
　　result = true
　　SetLastUpdateTime
　　Else
　　result = false
　　End If
　　CacheExpires = result
　　End Function
%>

上面是一个最简单的例子。

ASP动态包含文件的改进方法 ASP Application 对象用户手册

ASP中利用application实现缓存

评论 (0) All