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