联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 电脑网络 >> 网络编程 >> 编程问题 >> 正文 当前没有通告!
   □  ASP中Cache技术的应用   4星级
ASP中Cache技术的应用
[ 作者:作者不详     来源:互连网     点击数:     更新时间:2007-06-01     文章录入:Admin
【字体:
[内容提要]
暂无简介

     

        ASP从发布至今已经7年了,使用ASP技术已经相当成熟,自从微软推出了ASP.NET之后就逐渐停止了对ASP版本的更新。但是由于有很多人仍然习惯使用ASP来开发网站,所以,再次我将以一个简单的例子来说明在ASP中如何使用Cache

  简单的说使用Cache基本原理是,把经常需要且获得代价昂贵的数据在内存中持续保存一定时间,以供这些数据可以被直接地全局地访问。例如,有一些数据需要从数据库多个表中查询获得,且几乎每个页面都要调用这些数据。

  这种情况下的最佳实现就是将这部分数据Cache起来,在ASP中的简单实现就是将这些数据的最终表达形式(例如HTML流)封装在string中然后存入ASP内置对象Application中(本文主要讨论的是动态Cache,简单的ASP 应用就省略)。这样做的好处是,在整个网站中可以全局调用这段HTML,而且Application是存在内存中,所以不用再去查询数据库,从而加快了响应时间并节省了服务器负荷。当然这是以消耗内存为代价的,是一个典型的以空间换时间的实例。

  使用这种方法虽然有很多好处,但是再遇到频繁变化的数据源(数据库)的时候,这种方法就可能不再适用,因为ASP Application对象有一个缺点,就是不能自动随数据源的变化而变化,或者控制刷新间隔。所以就需要开发人员编程来实现动态Cache。当然在程序设计的时候可以在所有进行改变数据源(数据库)操作时,就更新一次Appliction。从而使数据源(数据库)始终保持一致。这样做在编程上要考虑的问题会比较多,容易遗漏细节。所以除了特定情况我不推荐使用这种方法。

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

Code
ASPdefault.asp

<%@Language=VBScript%>
  <%Option  Explicit%>
  <%Response.Buffer=True%>
  <!--i nclude file = "conn.asp"-->
  <!--i nclude 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> 

 ASPgetcache.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

Sub SetLastUpdateTime
  Application.Lock
  Application("LastUpdate") = CStr(now())
  Application.UnLock
  End Sub

  Sub GetHTMLStream
  If IsExpires Then 

UpdateHTMLStream
  End If
  HTMLStream=Application("CACHE_HTMLStream")
  End Sub

  Sub UpdateHTMLStream
  dim d
  d = FetchHTMLStream
  Application.Lock
  Application("CACHE_HTMLStream") = d
  Application.UnLock
  End Sub

  Function FetchHTMLStream 
  Dim rs ,strSQL, strHTML
  Set rs = CreateObject("ADODB.Recordset")
  strSQL = "select categoryID , category>  rs.Open strSQL, strConn,adOpenForwardOnly,adLockReadOnly
  strHTML = strHTML & "<select >  while (not rs.EOF)
  strHTML = strHTML & "<option>"
  strHTML = strHTML & rs.Fields("categoryname")
  strHTML = strHTML & "</option>" rs.MoveNext
  wend
  strHTML = strHTML & "</select>"
  rs.Close
  Set rs = Nothing
  FetchHTMLStream = strHTML
  End Function
  %> 

ASPconn.asp

<!--METADATA ><%
  dim strConn
  strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind"
  %> 

 

上一篇文章:Microsoft.XMLDOM组件 说明 下一篇文章:用Asp实现QQ在线查询功能
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 精品医院类网站网址大收集
 如何删除windows 2003或xp系统隐藏的...
 DedeCms管理员后台登陆经常自动退出的...
 知道IP如何用dos命令查出电脑名称
 WORD出错老是要求以安全模式打开文件...
 如何设置首页不显示页眉页脚?
 如何利用inurl命令查询网站外链及栏目...
 
 最新推荐文章
 精品医院类网站网址大收集
 如何利用宽带路由器控制局域网内电脑上...
 CSS圆角代码的实现方法
 带停顿的单行文字滚动代码
 实用的新网站免费收录提交地址精选
 Left join , Right Join, Inner Join用...
 趣话淘宝网衍生的多种新型职业
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号【虚拟化精英群虚拟化精英群续
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息