|
使用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")'删除缓存 |
