<％
'*******************************
'関数：isobjinstalled（strclassstring）
'引数：StrClassString、コンポーネントオブジェクト名
著者：アリクシ
'日付：2007/7/13
'説明：コンポーネントがインストールされているかどうかを確認します
'例：<％= isobjinstalled（strclassstring）％>
'*******************************
functionisobjinstalled（strclassstring）
onerrorresumenext
isobjinstalled = false
'err = 0
dimxtestobj
setxtestobj = server.createobject（strclassstring）
iferr <> -2147221005Thenisobjinstalled = trueLeLseisobjinstalled = falseEndif
setxtestobj =何もない
'rr = 0
エンド機能
％>