asp 驗證組件是否安裝

　　作用驗證組件是否安裝
 參數組件名稱
 Public Function IsObjInstall(obj)
  Dim IsObj
  On Error Resume Next
  Set IsObj = ServerCreateObject(obj)
  if Err = then
    Rem IsObjInstall = "√"
     IsObjInstall = "True"
  else
    Rem IsObjInstall = "<span style=""color:#FF"">×</span>"
     IsObjInstall = "Flase"
  end If
  Set IsObj = Nothing
  If Err <> Then ErrClear
 End Function

From:http://tw.wingwit.com/Article/program/net/201311/14233.html