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