'キャッシュ時間、単位分
const webcachetime = 20
「キャッシュサイン、1つのスペースに複数のシステムをインストールするときに使用する
const webcacheflag =キャッシュ
'キャッシュキャッシュ名、キャッシュ値を設定します
関数setcache（byval cachename、byval cacheval）
薄暗いカチェダタ
cachename = lcase（changechr（cachename））
cachedata = application（webcacheflag＆cachename）
ISARRAY（CACHEDATA）の場合
cachedata（0）= cachevalue
cachedata（1）= now（）
それ以外
redim cachedata（2）
cachedata（0）= cachevalue
cachedata（1）= now（）
ifを終了します
Application.Lock
Application（WebCacheflag＆Cachename）= cachedata
Application.UnLock
エンド関数
'キャッシュキャッシュ名を取得します
関数getCache（byval cachename）
薄暗いカチェダタ
cachename = lcase（changechr（cachename））
cachedata = application（webcacheflag＆cachename）
ISARRAY（cachedata）の場合、getCache = cachedata（0）else getCache =
エンド関数
'キャッシュスローデポジット名を検出します
関数chkcache（byval cachename）
薄暗いカチェダタ
chkcache = false
cachename = lcase（changechr（cachename））
cachedata = application（webcacheflag＆cachename）
IsArray（Cachedata）ではない場合は、機能を終了します
ISDate（Cachedata（1））ではない場合は、機能を終了します
datediff（s、cdate（cachedata（1））、now（））<60 * webcachetime then chkcache = true
エンド関数