システムコンポーネントが存在するかどうか、または操作を継続できるようにコンポーネントが正常にインストールされているかどうかを確認してください。ユーザーに対し、より適切な情報指示を提供します。サーバーに特定の ASP コンポーネントがインストールされているかどうかを確認するために、より一般的に使用されるコードは次のとおりです。
次のようにコードをコピーします。
<%
'機能: システムコンポーネントが存在するかどうか、またはコンポーネントが正常にインストールされているかどうかを確認します
'パラメータ: コンポーネント名
関数 IsObjInstalled(strClassString)
エラー時は次へ再開
IsObjInstalled = False
エラー = 0
DimxTestObj
xTestObj = Server.CreateObject(strClassString) を設定します
0 = エラーの場合、IsObjInstalled = True
xTestObj = なしを設定します
エラー = 0
終了機能
'システムコンポーネントのバージョン番号を取得します
関数 getver(Classstr)
エラー時は次へ再開
ゲットバー=
エラー = 0
DimxTestObj
xTestObj = Server.CreateObject(Classstr) を設定します。
0 = エラーの場合、getver=xtestobj.version
xTestObj = なしを設定します
エラー = 0
終了機能
%>
呼び出し方法は以下の通りです。
次のようにコードをコピーします。
<%
IsObjInstalled(fso.file) =True の場合
response.write(インストール済み)&getver(fso.file)
終了する場合
%>