会员投稿
投稿指南 
RSS订阅栏目导航
热点推荐
- ASP下批量删除数据的两种方法
- 关于二级域名共享cookies
- ASP错误代码大全
- ASP代码实现show.asp?id=26变成s
- ASP错误信息解决:IIS启用父路径
- 一些常用的正则表达式大全
- ASP超级链接和HTML函数正则表达
- ASP隐藏下载地址及防盗代码
- 最常用的正则表达式示例
- ASP程序数据库被挂马的处理方法
- ASP生成html的新方法
- 精通ASP错误提示大全
阅览排行
ASP中利用application实现缓存
www.jz123.cn 2008-10-24 来源: 中国建站 袁袁整理 我要投递新闻
编者前言:
在web程序中实现缓存的方法有很多办法，例如用文件缓存，把某些数据临时的放入文件中；或者在数据库中缓存需要大量读取的数值；另外的较常见的方法就是利用全局变量进行缓存。在asp中利用application实现数据的缓存是很常见的，可以把某些共有的数据从数据库中独立出来，从而减少服务器的压力。缓存会占用一定的内存，所以不可用application存储很大的数据。
/>
我认为在ASP中最好的办法是用编程实现定时刷新Cache，也就是说给Application中储存的设一个过期时间。当然，在ASP中Application对象没有这样一个ExpireTime属性。这需要用程序实现。
以下为引用的内容：
Code
ASP：default.asp
<%@Language=VBScript%>
<%Option Explicit%>
<%Response.Buffer=True%>
<!--#include file = "conn.asp"-->
<!--#include file = "GetCache.asp"-->
<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 Application 对象用户手册 下一篇：ASP动态包含文件的改进方法