Asp教程

通过asp实例结合结合ACCESS,MSSQL来更好的深入Asp学习 - 爬坡者

« asp中简单使用缓存Asp提高首页性能的一个技巧 »

ASP利用application实现缓存[比较简单]

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

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

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

最新评论及回复

最近发表

Powered By Z-Blog 1.8 Spirit Build 80710

Copyright 2007-2008 papozhe.com [asp教程] All Rights Reserved.
浙ICP备07030537号
免责申明:所有文章除特别声明,均来自网上,主要为学习用!内容仅供参考,版权归原作者。如侵犯您利益,请来信告知.
Email:papozhe$Gmail.com QQ:76336503