\'================================================
\'作  用：检查组件是否已经安装
\'参  数：strClassString ----组件名
\'返回值：True  ----已经安装
\'        False ----没有安装
\'================================================
Function IsObjInstalled(ByVal strClassString)
 Dim xTestObj,ClsString
 On Error Resume Next
 IsObjInstalled = False
 ClsString = strClassString
 Err = 0
 Set xTestObj = Server.CreateObject(ClsString)
 If Err = 0 Then IsObjInstalled = True
 If Err = -2147352567 Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
 Exit Function
End Function