asp 验证组件是否安装

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