asp中判断服务器是否安装了某种组件的函数

判断服务器是否安装了某种asp组件,比较常用的代码如下: 代码如下: <% ‘功能:检查是否存在系统组件或组件是否安装成功 ‘参数:组件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err =