首页 > > 网络编程 > Asp编程 >

ASP中利用application实现缓存

2009-05-12 15:22:08来源：未知阅读 ()

编者前言:

在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
%>

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有