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

　　%>