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

% ''****************************** ''函数:IsObjInstalled(strClassString) ''参数:strClassString,组件对象名 ''作者:阿里西西 ''日期:2007/7/13 ''描述:检测组件是否安装 ''示例:%=IsObjInstalled(strClassString)% ''****************************** FunctionIsObjInstalled(strClassString) OnE

作者: 来源: 时间: 17-11-23 15:27:30

<%
''******************************
''函数: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
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们