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

时间:2021-03-18 人气:0

想了解asp代码实现检测组件是否安装的函数的相关内容吗，在本文为您仔细讲解的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：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
%>

加载全部内容