キャッシュの役割については、もっと言う必要はありません。その役割は、特に大量の情報または完全なデータベースページを備えたWebサイトでは、すでに非常に明白です。ホストのメモリリソースをうまく利用し、ASPの実行効率を加速し、サーバーの負担を軽減できます。この点でドンワンは最も傑出したです。たとえば、現在のDVBBS7.1.0バージョンでは、キャッシュの利用でさらに一歩進んでいます。フロントオフィスとバックオフィスでのほとんどの操作はキャッシュに関連しており、DongwangはMicheng Renziのキャッシュクラスを使用しています。次のリストは、ドンワンの3人のマスターによって書かれたASPキャッシュクラスです。
木製の鳥によって書かれました
コードコピーは次のとおりです。
＇****************************************
vbscacheクラス
／
'有効な属性、それが利用可能かどうか、価値を取る前に判断する
＇属性名、キャッシュ名、新しいオブジェクトを作成した後に値を割り当てます
'メソッド追加（値、有効期限）、セットキャッシュコンテンツ
'属性値、キャッシュコンテンツを返します
'値が設定されていないかどうか、属性が無責任です
'メソッドメイキ、無料のメモリ、テスト
'メソッド等しい（変数1）、キャッシュ値が変数1と同じかどうかを判断します
'メソッドは期限切れ（時間）、有効期限を時間に変更します
wood bird 2002.12.24
http://www.aspsky.net/
＇****************************************
classcache
privateobj'cacheコンテンツ
PrivateExpireTime'expiration時間
privateExpireTimename'expirationタイムアプリケーション名
privatecachename'cacheコンテンツアプリケーション名
privatepath＇uri
privatesubclass_initialize（）
path = request.servervariables（ "url"）
PATH = left（path、instrrev（path、 "/"））
Endingub
privatesubclass_terminate（）
Endingub
publicPropertygetblempty
。空です
ifsempty（obj）then
Blymenty = True
それ以外
Blymenty = false
endif
Endproperty
publicPropertygetValid
'利用可能かどうか（期限切れ）
ifsempty（obj）ornotisdate（expiretime）
有効= false
elseifcdate（expiretime）<nowthen
有効= false
それ以外
valid = true
endif
Endproperty
publicPropertyletName（str）
cacheキャッシュ名をセットします
cachename = str＆path
obj = application（cachename）
expiRetimename = str＆ "expires"＆path
expiretime = application（expiretimename）
Endproperty
publicPropertyletExpires（TM）
'有効期限をリセットします
expiretime = tm
Application.Lock
アプリケーション（expiretimename）= expiretime
Application.UnLock
Endproperty
publicsubadd（var、expire）
'割り当て
ifsempty（var）ornotisdate（expire）then
Exitsub
endif
obj = var
expiretime =有効期限
Application.Lock
アプリケーション（cachename）= obj
アプリケーション（expiretimename）= expiretime
Application.UnLock
Endingub
publicPropertygetValue