知识大全简单介绍ASP中Cache技术的应用

Posted 2022-07-18 知

篇首语：会当凌绝顶，一览众山小。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全简单介绍ASP中Cache技术的应用相关的知识，希望对你有一定的参考价值。

简单介绍ASP中Cache技术的应用 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　ASP从发布至今已经年了使用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中储存的设一个过期时间当然在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/; charset=gb >　　</HEAD>　　<BODY>　　<h >每隔秒刷新Cache </h >　　<%　　response Flush　　GetHTMLStream　　response Write　　HTMLStream　　%>　　</body>　　</>　　　　ASP getcache asp　　　　<%　　Const CACHE_DEFAULT_INTERVAL = 每隔秒刷新一次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 categoryname from categories 　　rs Open strSQL strConn adOpenForwardOnly adLockReadOnly　　strHTML = strHTML & <select name= slt_search > 　　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　　%>　　　　ASP conn asp　　　　<! METADATA NAME= Microsoft ActiveX Data Objects Library TYPE= TypeLib UUID= AA D EA >　　<%　　dim strConn　　strConn = Provider=SQLOLEDB ;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind 　　%> cha138/Article/program/net/201311/11337

知识大全 简单介绍ASP中Cache技术的应用

知识大全简单介绍ASP中Cache技术的应用