asp代码实现检测组件是否安装的函数

<%
'******************************
'函数：IsObjInstalled(strClassString)
'参数：strClassString,组件对象名
'作者：阿里西西
'日期：2007/7/13
'描述：检测组件是否安装
'示例：<%=IsObjInstalled(strClassString)%>
'******************************
Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    'Err = 0
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If Err<>-2147221005 Then IsObjInstalled = True Else IsObjInstalled = False End IF
    Set xTestObj = Nothing
    'rr = 0
End Function
%>