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