コードコピーは次のとおりです。
<％
Rem ==========================================================================================================================
rem = class：cachecls
REM =説明：キャッシュアプリケーション
REM =リビジョン：1.01Beta
rem =著者：xiongヒーロー（cexo255）
REM =日付：2005/05/618：38：10
REM = QQ：30133499
rem = mysite：http：//www.relaxlife.net
rem =ダウンロード：http：//www.relaxlife.net/cexo/cache_pro.rar
REM = QQグループ：4341998
rem =該当する：一般的に使用されているデータと未変化のデータの場合、コール速度は毎回データベースから読み取るよりも速いです。
Rem ==========================================================================================================================
cachename = "rl"
classcachecls
privatelocalcachename、cache_data
publicPropertyletname（byvalvnewvalue）
localcachename = lcase（vnewvalue）
cache_data = application（cachename＆ "_"＆localcachename）
Endproperty
publicPropertyletValue（byvalvnewvalue）
dimn、i、newvaluearr
iflocalcachename <> "" then
n = countinstr（vnewvalue、 "|"）
newValueARR = split（vnewValue、 "|"、-1,1）
redimcache_data（n）
fori = 0ton
cache_data（i）= newvaluearr（i）
次
Application.Lock
Application（cachename＆ "_"＆localcachename）= cache_data
Application.UnLock
それ以外
response.write「エラー設定キャッシュがあります。または、キャッシュ名が空になることはできません。キャッシュを再アップデートしてください」
Response.End（）
endif
Endproperty
publicPropertygetValue（）