ASP从发布至今已经年了使用ASP技术已经相当成熟自从微软推出了ASPNET之后就逐渐停止了对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
ASPdefaultasp
<%@Language=VBScript%>
<%OptionExplicit%>
<%ResponseBuffer=True%>
<!#include file = connasp>
<!#include file = GetCacheasp>
<HTML>
<HEAD>
<TITLE>ASP Cache演示</TITLE>
<META HTTPEQUIV=ContentType CONTENT=text/html; charset=gb>
</HEAD>
<BODY>
<h>每隔秒刷新Cache</h>
<%
responseFlush
GetHTMLStream
responseWrite
HTMLStream
%>
</body>
</html>
ASPgetcacheasp
<%
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
ApplicationLock
Application(LastUpdate) = CStr(now())
ApplicationUnLock
End Sub
Sub GetHTMLStream
If IsExpires Then
UpdateHTMLStream
End If
HTMLStream=Application(CACHE_HTMLStream)
End Sub
Sub UpdateHTMLStream
dim d
d = FetchHTMLStream
ApplicationLock
Application(CACHE_HTMLStream) = d
ApplicationUnLock
End Sub
Function FetchHTMLStream
Dim rs strSQL strHTML
Set rs = CreateObject(ADODBRecordset)
strSQL = select categoryID categoryname from categories
rsOpen strSQL strConnadOpenForwardOnlyadLockReadOnly
strHTML = strHTML & <select name=slt_search>
while (not rsEOF)
strHTML = strHTML & <option>
strHTML = strHTML & rsFields(categoryname)
strHTML = strHTML & </option> rsMoveNext
wend
strHTML = strHTML & </select>
rsClose
Set rs = Nothing
FetchHTMLStream = strHTML
End Function
%>
ASPconnasp
<!METADATA NAME=Microsoft ActiveX Data Objects Library TYPE=TypeLib UUID={AADEA}>
<%
dim strConn
strConn = Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind
%>
