asp 检测服务器所安装组件
==================================
函数名IsObjInstalled
作 用检查组件是否已经安装
参 数strClassString 组件名
返回值True 已经安装
False 没有安装
==================================
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err =
Dim xTestObj
Set xTestObj = ServerCreateObject(strClassString)
If = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err =
End Function
