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

1. <%  
2. '******************************  
3. '函数：IsObjInstalled(strClassString)  
4. '参数：strClassString,组件对象名  
5. '作者：阿里西西  
6. '日期：2007/7/13  
7. '描述：检测组件是否安装  
8. '示例：<%=IsObjInstalled(strClassString)%>  
9. '******************************  
10. Function IsObjInstalled(strClassString)  
11.     On Error Resume Next  
12.     IsObjInstalled = False  
13.     'Err = 0  
14.     Dim xTestObj  
15.     Set xTestObj = Server.CreateObject(strClassString)  
16.     If Err<>-2147221005 Then IsObjInstalled = True Else IsObjInstalled = False End IF  
17.     Set xTestObj = Nothing  
18.     'rr = 0  
19. End Function  
20. %>