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

网学网ASP编辑为广大网友搜集整理了：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
%>