asp 验证组件是否安装

2015-08-12 16:03:10来源:作者:人点击

作用:验证组件是否安装
 '参数:组件名称
 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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台