登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

面包会有的

... ...

 
 
 

日志

 
 

ASP缓存类  

2008-03-11 11:18:28|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

缓存技术可以很大程度上提高你的网站性能,其实这些实现方法是非常的简单,它将说明如何在服务器上的缓存是如何工作以及你如何使用一种被称为断开连接的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")'删除缓存  

  评论这张
 
阅读(508)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018