一聚教程网:一个值得你收藏的教程网站

热门教程

asp 验证组件是否安装

时间:2022-07-02 22:32:38 编辑:袖梨 来源:一聚教程网

 作用:验证组件是否安装
 '参数:组件名称
 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 = "×"
     IsObjInstall = "Flase"
  end If
  Set IsObj = Nothing
  If Err <> 0 Then Err.Clear
 End Function

热门栏目