软件开发培训班 >> 编程开发 >> ASP


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
%>