检查组件是否已经安装

<%
'函数名：IsObjInstalled
'作  用：检查组件是否已经安装
'参  数：strClassString ----组件名
'返回值：True  ----已经安装
'        False ----没有安装
function IsObjInstalled(strClassString)
    on error resume next
    IsObjInstalled = False
    err = 0
    dim xTestObj
    set xTestObj = Server.createobject(strClassString)
    if 0 = err then IsObjInstalled = True
    set xTestObj = nothing
    err = 0
end function
%>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 组件组件
相关日志: