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
%>