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