asp缓存技术：静态化思路

一、何谓ASP缓存/为什么要缓存
当你的web站点采用asp技术建立的初期，可能感觉到的是asp动态网页技术带来的便利性，以及随意修改性、自如的http控制。但是，随着访问量的增加，你一定会发现自己的站点访问速度越来越慢，IIS重新启动得越来越频繁。接下来，你一定想优化asp，诸如更换性能更优异的数据库、建立索引、编写存储过程等等。这些措施有些不需要增加成本压力，有些则成本压力很大（譬如丛access到SQL），而且效果还不一定。
面对web访问压力，我认为最经济的办法是利用缓存优化技术来实现缓解web的服务压力。
Web访问量增加通常意味着以下资源需求的快速增长：
1、网卡流量增加，需要消耗更多的CPU处理网络流量和网络I/O线程。
2、需要更频繁的打开/关闭数据库连结（如果使用数据库技术—通常asp都会采用数据库作为数据存储），严重消耗资源的事物数量、以及事务相互竞争资源引起的死锁、会增加网络I/O或者CPU消耗。
3、如果采用session的话，IIS为了维持状态，会消耗更多内存，而内存消耗可能会引发物理内存不够，引起物理内存同辅存间的频繁交换，从而引起代码执行的停顿，web响应阻滞。
4、由于访问的不到及时响应，会引起网页访问故障，导致用户刷新，从而加剧CPU、内存等资源需求。
实际上，考虑通常的web应用程序，很多时候的动态代码执行是不必要的。

二、asp缓存的分类
擅自总结，asp的缓存可以分为两类：
1、文件缓存
所谓文件缓存，就是根据逻辑判断，一段时间内某个asp的特定执行将不会有很大的变动，因而将内容以静态html的形式存放，然后以web的重定向技术让客户端访问静态文件，以达到减少CPU、数据库资源等的需求。这样的应用很多，譬如很多论坛就是在回复贴子的时候将整个贴子重新生成一个静态文件，然后进行重定向的，例如 donews.com的论坛。该成静态还有一个副作用（好处）--可以很容易被google等搜索引擎收录。一些所谓新闻发布系统的都采用了此技术。
2、文件片断缓存
所谓文件缓存，也是基于逻辑判断，某部分数据（通常是需要消耗资源的大容量数据库查询取得）在一定时间内不会改变，所以我们可以将这些数据利用文件的形式进行存储，当需要时候，可以通过读取文件来获取数据，避免增加数据库的负担。例如，我们通常将一些数据以xml格式存储，然后利用xslt技术实现显示（xml处理通常需要大量CPU资源，所以通常是IE直接读取xml到客户端在客户的CPU上进行处理）。CSDN的论坛就是这样处理的。
3、主存缓存
除此之外，还可以考虑在内存中处理缓存，将需要及时响应的内容存储在内存中，一旦访问需求，立即从快速的贮存中输送出去。如果极大量的访问需求集中在几个少量的页面或者主存足够多，我想采用主存缓存一定可以大幅度提高web访问性能。


三、如何实现/使用缓存
         实现缓存需要考虑以下问题：
1、哪些页面会在短时间内不会改变？
分析自己的站点，这样的页面很多。譬如一个站点通常都有新闻资讯类的栏目，这些栏目通常都是站点维护人员在一天的某个时间发布资料，之后很少改动页面。那么这些页面就适合于采用静态文件缓存。实际上，所谓新闻发布系统就是这么做的，那么那也可以参考这些系统的思想改造自己的原有动态asp页面。


2、那些页面针对全部访问者都采用同一个逻辑生成（也就是不区分访问者）。
除了新闻资讯之类的栏目所有访问者都看一个界面外，论坛等消耗资源的应用一般也可以设计成统一逻辑生成（同一个贴子，张三李四看的都一样），针对这类应用页面我们也可以采用静态缓存来实现。也可以考虑将数据片断化，利用脚本技术在服务器处理能力之外也就是客户端浏览器进行处理。


3、采用缓存的代价和收获。
主要就是“空间换（响应）时间”。利用缓存技术将之后频繁需要的内容进行预处理，使之提高web服务器响应能力，更重要赢得访问者的欢心。
代价就是web空间需求增加，同时又可能影响到访问效果。
但我认为适当的缓存，是利大于弊的。


4、那些地方不适宜采用缓存
动态查询页面，每个人的查询内容不一样，所以显示结果不大一样，所以不大可能将查询结果生成缓存，所以采用缓存较为复杂且缓存利用率底下，造成管理成本上什（假设你缓存了1000个查询关键字，那么管理这些关键字同缓存的对应也是麻烦事）。


四、实例分析
         假设一个建议论坛的原有布局如下：
         根目录下：
                default.asp                首页，一般是精华、推荐之类
                listBorad.asp              该文件列出全部分栏目的名称和介绍，如果携带参数MainBID就表示要列出板块下的栏目
                listThread.asp             该文件如果不携带任何参数表示列出全部的贴子，携带MainBID表示列出某块的全部贴子。如果携带subBID表示列出具体栏目的贴子。如果携带page参数表示分页列出主题。
                ViewThread.asp 列出某个贴子内容。我们假设贴子显示为一个发言，任意跟贴全部列在后面。ID参数为要显示的贴子。
                Reply.asp                 回应某个贴子，携带参数Id回应某个贴子
                其它的暂不讨论。
                以上，我们可以看到，如果全部是采用原始的ASP/PHP来做，那几乎每一个asp文件的执行都需要数据库操作，频繁的查询，多表查询。要知道查询数据库最终会带来性能的下降，响应速度下降，带给访问者缓慢的浏览影响，不利于web的质量。更重要的是对于甲乙两个人来将，他们访问ViewThread.asp之类的如果ID一致，那么很多时候他们会看到同样的内容（他们的浏览器收到的HTML代码几乎一样），但是为了这“同样的内容”，服务器需要打开数据库连结、查询，读取纪录，显示，关闭纪录、数据库连结。。。。以下列的消耗服务器资源的操作，如果是更多的人来访问，最终的结果是这些人加剧消耗服务器资源。实际上，这些为了“同样的内容”所做的重复劳动是可以利用缓存技术进行优化避免的。譬如：
         在reply.asp提交内容后，我们立即调用生成静态的功能，将整个贴子内容存储为viewThread_xxxx.htm之类的静态html文件，再通常情况下访问viewThread.asp?ID=xxxx的时候，系统自动redirect到对应的静态文件viewThreadxxxx.htm去。这样，当一个贴子没有最新发布时候，他始终是静态内容提供给浏览者；一旦有了新的提交，将会更新到静态文件中去，这样，将会节省很多次数据库操作，大大提高响应速度。
         listBorad.asp也可以实施静态化。我们可以分析其可能携带的参数，将缓存文件名设定为listBoard_xx.htm，在增加新的栏目时候进行更新listBoard_xxx.htm。listThread.asp也类似，只不过由于其参数更多，所以缓存文件也会很多。击若要缓存listThread.asp? subBID=xxx&page=2，那么对应的静态文件是listThread_xxx_p2.htm。default.asp也一样。
         那么如何判断什么时候更新？在什么时机更新？
         讨论listThread.asp? subBID=xxx&page=2，我们在执行listThread.asp俄时候提取subID和page，然后探测listThread_xxx_p2.htm是否存在，如果不存在就调用静态生成功能进行生成该文件，最终重定向到此静态文件。注意，此处的不存在就意味着出现了新的内容需要我们进行更新。
那如何造成文件不存在呢？删除。我们在发表一个新的贴子、删除贴子、移动贴子的时候我们可以将类似listThread_xxx_p2.htm之类的静态文件全部删除。这样就通知了何时要进行缓存。
         现在还剩下一个问题，如何生成静态文件？
         我们注意到，之前我们提到的“同样的内容”。我们可以将改造前的default.asp、listThread.asp等拷贝一个副本，取名为default_d.asp、listThread_2.asp，且在同一个目录中（理论上listThtrad.asp?subID=123同LISTtHREAD_D.ASP?SUBID=123的访问结果会是同样的内容），这样我们在需要生成静态文件的逻辑中，通过WEB访问请求的方式调用改造前的副本，得到html代码，并存储为静态文件。这个web请求实际上相当于在任何真实浏览者访问静态内容之前，由服务器自身现察看将会输出的html，然后返回这些代码，利用文件操作功能存储为静态文件。这样，缓存文件就在真正浏览者之前被创建。
         这样的方案几乎不触动原来的布局，几乎不会造成因为改造出现404之类的错误。其次，静态文件也会帮助你的站点容易被被google之类的搜索引擎收录。何乐而不为？
最后，提醒，通过web访问，asp编程环境下，很多人采用xmlHTTP组件访问，这会造成很多问题。xmlhttp自身会cache请求的资源，导致我们通过此组件请求得到的内容不是最新的，造成逻辑上的混乱。所以，应当选择xml Server http对象或者winhttp组件来实现web请求资源。
使用ASP中的缓存技术可以很大程度上提高你的网站性能，其实这些实现方法是非常的简单，它将说明如何在服务器上的缓存是如何工作以及你如何使用一种被称为断开连接的ADO连接技术。
　　在介绍这些技术之前先说明一下到底什么是ASP的缓存技术。
　　所谓缓存其实就是在内存中开辟一个用来保存数据的空间，使用缓存你就不用频繁的访问你保存在硬盘上的数据了，灵活的使用缓存你就免去了心疼的看着可怜的硬盘饱受读数据时的折磨了。当你一旦执行了一个查询动作，并且将查询结果放入缓存中后，你就可以很迅速的重复访问这些数据了。而如果你不把数据放入缓存的话，当你再次执行这个查询时，服务器会将进程耗费在从数据库中获取并排序上了。
　　当数据保存在缓存中时，再次查询时耗费的时间主要是在显示数据的时间上了。
也就是说，我们不应该把经常需要改变的数据放到服务端的缓存中，我们应该把改变少，但是又需要经常访问的数据放到缓存中。

　　现在我们先讨论ASP在服务端使用缓存的技术，过会再讨论ASP如何在客户端使用
缓存的技术。
　　当你有大量的数据（静态的，就是说变动比较少的）需要显示给客户端时，你就可以考虑使用服务端的缓存技术了。这种技术尤其适用于那些显示风格一致性比较强的网站（呵呵，对于非主流的网站可不好用的说。）
　　其实实现方法特别的简单，大家只要看看下面这个简单的例子就明白了。
　　这是一个用来显示书籍分类的例子程序
DisplayBooks.ASP文件：

< %@ LANGUAGE=JavaScript % >
< html >
< body >
< form method=post >
书籍分类； < %= getBooksListBox() % >
< p>
< input type=submit >

< %
function getBooksListBox()
{
BooksListBox = Application("BooksListBox")
if (BooksListBox != null) return BooksListBox;
crlf = String.fromCharCode(13, 10)
BooksListBox = "< select name=Books>" + crlf;
SQL = "Select * FROM Books orDER BY Name";
cnnBooks = Server.CreateObject("ADODB.Connection");
cnnBooks.Open("Books", "Admin","");
rstBooks = cnnBooks.Execute(SQL);
fldBookName = rstBooks("BookName");
while (!rstBooks.EOF){
BooksListBox = BooksListBox + " < option>" +
fldBookName + "" + crlf;
rstBooks.MoveNext();
}
BooksListBox = BooksListBox + ""
Application("BooksListBox") = BooksListBox
return BooksListBox;
}
% >
　　很简单把，其实就是用了很简单的Application技术，而且就一句话的不同：
　　Application("BooksListBox") = BooksListBox
　　你可以验证一下你就会发现服务器上的请求数量会降低不少的。这种情况尤其适合与那些更新不是很频繁的网站内容，例如你一天（或则很长时间）只更新一次。

　　下面再讨论一种客户端的缓存技术这种技术也叫断开连接的ADO连接技术（翻译水平太次，听上去怎么这么别扭）。这种技术主要使用在用来保存用户个人信息，例如用户的密码，代号等等上面。它主要使用了ADO的一些属性。同时也回答了一些网友曾经提到过的能否在Applocation中使用ADO对象的问题。解释不清楚，下面让代码来发言：
文件GLOBAL.ASA：
< !--METADATA TYPE="TypeLib" FILE="C:\Program Files\Common
Files\system\ado\msado15.dll"-- >
< SCRIPT LANGUAGE=VBScript RUNAT="Server" >
Sub Application_OnStart
SQL = "Select UserName, Password FROM UserInfo"
cnnUsers = "DSN=User"
Set rsUsers = Server.CreateObject("ADODB.Recordset")
'注意下面这两句话，就是用来实现那个叫可用的断开连接的ADO技术
rsCustomers.CursorLocation = adUseClient
rsCustomers.Open SQL, cnnAdvWorks, adOpenStatic, AdLockReadOnly
' 断开RecordSet的和数据库的连接
rsCustomers.ActiveConnection = Nothing
Set Application("rsCustomers") = rsCustomers
End Sub

文件Users.ASP
< %
'Clone方法使得每个用户拥有自己的一个RecordSet集合
Set yourUsers = Application("rsUsers").Clone
Set UserName = yourUsers("UserName")
Set Password = yourUsers("Password")
Do Until yourUsers.EOF
% >
用户姓名：< %= UserName % > 用户密码：< %= Password % >
< %
yourUsers.MoveNext
Loop
% >　

至于缓存的作用，我想我也不用再多说了，它的作用已经很明显，特别是对于信息量非常大或是全数据库页面的网站，他能很好地利用主机的内存资源，加速ASP的执行效率，减轻服务器的负担，而动网在这一方面做得是最突出的，像他现在的dvbbs7.1.0版，更是在缓存的利用上更上一层楼，前后台大多的操作都和缓存有关，而现在动网里用的也就是迷城浪子的缓存类，下面列出动网的三大高手写的ASP缓存类

木鸟写的
'**********************************************
' vbs Cache类
'
' 属性valid，是否可用，取值前判断
' 属性name，cache名，新建对象后赋值
' 方法add(值,到期时间)，设置cache内容
' 属性value，返回cache内容
' 属性blempty，是否未设置值
' 方法makeEmpty，释放内存，测试用
' 方法equal(变量1)，判断cache值是否和变量1相同
' 方法expires(time)，修改过期时间为time
' 木鸟 2002.12.24
' http://www.aspsky.net/
'**********************************************
class Cache
private obj 'cache内容
private expireTime '过期时间
private expireTimeName '过期时间application名
private cacheName 'cache内容application名
private path 'uri

private sub class_initialize()
path=request.servervariables("url")
path=left(path,instrRev(path,"/"))
end sub

private sub class_terminate()
end sub

public property get blEmpty
'是否为空
if isempty(obj) then
blEmpty=true
else
blEmpty=false
end if
end property

public property get valid
'是否可用(过期)
if isempty(obj) or not isDate(expireTime) then
valid=false
elseif CDate(expireTime)<now then
valid=false
else
valid=true
end if
end property

public property let name(str)
'设置cache名
cacheName=str & path
obj=application(cacheName)
expireTimeName=str & "expires" & path
expireTime=application(expireTimeName)
end property

public property let expires(tm)
'重设置过期时间
expireTime=tm
application.lock
application(expireTimeName)=expireTime
application.unlock
end property

public sub add(var,expire)
'赋值
if isempty(var) or not isDate(expire) then
exit sub
end if
obj=var
expireTime=expire
application.lock
application(cacheName)=obj
application(expireTimeName)=expireTime
application.unlock
end sub

public property get value
'取值
if isempty(obj) or not isDate(expireTime) then
value=null
elseif CDate(expireTime)<now then
value=null
else
value=obj
end if
end property

public sub makeEmpty()
'释放application
application.lock
application(cacheName)=empty
application(expireTimeName)=empty
application.unlock
obj=empty
expireTime=empty
end sub

public function equal(var2)
'比较
if typename(obj)<>typename(var2) then
equal=false
elseif typename(obj)="Object" then
if obj is var2 then
equal=true
else
equal=false
end if
elseif typename(obj)="Variant()" then
if join(obj,"^")=join(var2,"^") then
equal=true
else
equal=false
end if
else
if obj=var2 then
equal=true
else
equal=false
end if
end if
end function
end class

木鸟　类例子 vbs Cache类
'
' 属性valid，是否可用，取值前判断
' 属性name，cache名，新建对象后赋值
' 方法add(值,到期时间)，设置cache内容
' 属性value，返回cache内容
' 属性blempty，是否未设置值
' 方法makeEmpty，释放内存，
' 方法DelCahe ,删除内存
' 方法equal(变量1)，判断cache值是否和变量1相同
' 方法expires(time)，修改过期时间为time
' 用法

set myCache=New Cache
myCache.name="BoardJumpList" '定义缓存名
if myCache.valid then　'判断是否可用(包括过期，与是否为空值)
response.write myCache.value　'输出
else
................
BoardJumpList=xxx
myCache.add BoardJumpList,dateadd("n",60,now)　'写入缓存 xxx.add 内容,过期时间
response.write BoardJumpList '输出
end if
myCache.makeEmpty() 释放内存
mycache.DelCahe()　删除缓存

迷城浪子写的 Class Cls_Cache

Rem ==================使用说明====================
Rem = 本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。
Rem = 作用：缓存和缓存管理类
Rem = 公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400
Rem = MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300
Rem = CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。
Rem = 属性:Name 定义缓存对象名称，只写属性。
Rem = 属性:value 读取和写入缓存数据。
Rem = 函数：ObjIsEmpty()判断当前缓存是否过期。
Rem = 方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。
Rem ========================
Public Reloadtime,MaxCount,CacheName
Private LocalCacheName,CacheData,DelCount
Private Sub Class_Initialize()
Reloadtime=14400
CacheName="Dvbbs"
End Sub
Private Sub SetCache(SetName,NewValue)
Application.Lock
Application(SetName) = NewValue
Application.unLock
End Sub
Private Sub makeEmpty(SetName)
Application.Lock
Application(SetName) = Empty
Application.unLock
End Sub
Public Property Let Name(ByVal vNewValue)
LocalCacheName=LCase(vNewValue)
End Property
Public Property Let Value(ByVal vNewValue)
If LocalCacheName<>"" Then
CacheData=Application(CacheName&"_"&LocalCacheName)
If IsArray(CacheData) Then
CacheData(0)=vNewValue
CacheData(1)=Now()
Else
ReDim CacheData(2)
CacheData(0)=vNewValue
CacheData(1)=Now()
End If
SetCache CacheName&"_"&LocalCacheName,CacheData
Else
Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName."
End If
End Property
Public Property Get Value()
If LocalCacheName<>"" Then
CacheData=Application(CacheName&"_"&LocalCacheName)
If IsArray(CacheData) Then
Value=CacheData(0)
Else
Err.Raise vbObjectError + 1, "DvbbsCacheServer", " The CacheData Is Empty."
End If
Else
Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName."
End If
End Property
Public Function ObjIsEmpty()
ObjIsEmpty=True
CacheData=Application(CacheName&"_"&LocalCacheName)
If Not IsArray(CacheData) Then Exit Function
If Not IsDate(CacheData(1)) Then Exit Function
If DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime Then
ObjIsEmpty=False
End If
End Function
Public Sub DelCahe(MyCaheName)
makeEmpty(CacheName&"_"&MyCaheName)
End Sub
End Class

迷城浪子　类例子

Set WydCache=New Cls_Cache
WydCache.Reloadtime=0.5 '定义过期时间 (以分钟为单会)
WydCache.CacheName="pages"　'定义缓存名
IF WydCache.ObjIsEmpty() Then ''判断是否可用(包括过期，与是否为空值)
Response.write WydCache.Value
Else
..................
BoardJumpList=xxx
WydCache.Value=BoardJumpList '写入内容
Response.write BoardJumpList
End if

mycache.DelCahe("缓存名")　删除缓存

slightboy 写的

'========================
'clsCache.asp
'========================
'== begin : 2004-6-26 21:51:47
'== copyright : slightboy (C)1998-2004
'== email : slightboy@msn.com
'========================
'========================
' Dim Application(2)
' Application(0) Counter 计数器
' Application(1) dateTime 放置时间
' Application(2) Content 缓存内容

Public PREFIX
Public PREFIX_LENGTH

Private Sub Class_Initialize()
PREFIX = "Cached:"
PREFIX_LENGTH = 7
End Sub
Private Sub Class_Terminate
End Sub
' 设置变量
Public Property Let Cache(ByRef Key, ByRef Content)
Dim Item(2)
Item(0) = 0
Item(1) = Now()
IF (IsObject(Content)) Then
Set Item(2) = Content
Else
Item(2) = Content
End IF
Application.Unlock
Application(PREFIX & Key) = Item
Application.Lock
End Property
' 取出变量计数器++
Public Property Get Cache(ByRef Key)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
IF (IsObject(Item)) Then
Set Cache = Item(2)
Else
Cache = Item(2)
End IF
Application(PREFIX & Key)(0) = Application(PREFIX & Key)(0) + 1
Else
Cache = Empty
End IF
End Property
' 检查缓存对象是否存在
Public Property Get Exists(ByRef Key)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
Exists = True
Else
Exists = False
End IF
End Property
' 得到计数器数值
Public Property Get Counter(ByRef Key)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
Counter = Item(0)
End IF
End Property

' 设置计数器时间
Public Property Let dateTime(ByRef Key, ByRef SetdateTime)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
Item(1) = SetdateTime
End IF
End Property
' 得到计数器时间
Public Property Get dateTime(ByRef Key)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
dateTime = Item(1)
End IF
End Property

' 重置计数器
Public Sub ResetCounter()
Dim Key
Dim Item
Application.Unlock
For Each Key in Application.Contents
IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then
Item = Application(Key)
Item(0) = 0
Application(Key) = Item
End IF
Next
Application.Lock
End Sub
' 删除某以缓存
Public Sub Clear(ByRef Key)
Application.Contents.Remove(PREFIX & Key)
End Sub
' 清空没有使用的缓存
Public Sub ClearUnused()
Dim Key, Keys, KeyLength, KeyIndex
For Each Key in Application.Contents
IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then
IF (Application(Key)(0) = 0) Then
Keys = Keys & VBNewLine & Key
End IF
End IF
Next
Keys = Split(Keys, VBNewLine)
KeyLength = UBound(Keys)
Application.Unlock
For KeyIndex = 1 To KeyLength
Application.Contents.Remove(Keys(KeyIndex))
Next
Application.Lock
End Sub
' 清空所有缓存
Public Sub ClearAll()
Dim Key, Keys, KeyLength, KeyIndex
For Each Key in Application.Contents
IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then
Keys = Keys & VBNewLine & Key
End IF
Next
Keys = Split(Keys, VBNewLine)
KeyLength = UBound(Keys)
Application.Unlock
For KeyIndex = 1 To KeyLength
Application.Contents.Remove(Keys(KeyIndex))
Next
Application.Lock
End Sub
End Class

slightboyn 类例子

Set Wyd=New JayCache
Wyd.dateTime("Page")=时间
If Wyd.Exists("Page") Then
Response.write Wyd.Cache("Page") '输出
Else
Wyd.Cache("Page")=xxx　写入
Responxe.write xxx
End IF
Wyd.Clear("page")'删除缓存

(责任编辑：ken)

搜索

热门标签:

asp缓存技术：静态化思路