コードコピーは次のとおりです。
<%
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()