您现在的位置: 万盛学电脑网 >> 程序编程 >> 网络编程 >> asp编程 >> 正文

asp 验证组件是否安装

作者:佚名    责任编辑:admin    更新时间:2022-06-22

作用:验证组件是否安装
 '参数:组件名称
 Public Function IsObjInstall(obj)
  Dim IsObj
  On Error Resume Next
  Set IsObj = Server.CreateObject(obj)
  if Err = 0 then
    Rem IsObjInstall = "√"
     IsObjInstall = "True"
  else
    Rem IsObjInstall = "<span style=""color:#FF0000"">×</span>"
     IsObjInstall = "Flase"
  end If
  Set IsObj = Nothing
  If Err <> 0 Then Err.Clear
 End Function