asp 检测服务器所安装组件

asp 检测服务器所安装组件
==================================

函数名：IsObjInstalled
作  用：检查组件是否已经安装
参  数：strClassString ----组件名
返回值：True  ----已经安装
      False ----没有安装
==================================

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 = 0
End Function