<％
'*********************************************
'vbscacheクラス
'有効な属性、それが利用可能かどうか、価値を取る前に判断する
'属性名、キャッシュ名、新しいオブジェクトを作成した後に値を割り当てます
'メソッド追加（値、有効期限）、セットキャッシュコンテンツ
'属性値、キャッシュコンテンツを返します
'値が設定されていないかどうか、属性が無責任です
'メソッドメイキ、無料のメモリ、テスト
'メソッド等しい（変数1）、キャッシュ値が変数1と同じかどうかを決定します
'メソッドは期限切れ（時間）、有効期限を時間に変更します
'ムンアオが書いたキャッシュクラス
'*********************************************
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）
'キャッシュ名を設定します
cachename = str＆path
obj = application（cachename）
expiRetimename = str＆ "expires"＆path
expiretime = application（expiretimename）
Endproperty
publicPropertyletExpires（TM）
'有効期限をリセットします
expiretime = tm
Application.Lock
アプリケーション（expiretimename）= expiretime
Application.UnLock