asp 檢測服務器所安裝組件

asp 檢測服務器所安裝組件
==================================

函數名：IsObjInstalled
作  用：檢查組件是否已經安裝
參  數：strClassString ----組件名
返回值：True  ----已經安裝
      False ----沒有安裝
==================================

Function IsObjInstalled(strClassString)
 On Error Resume Next
 IsObjInstalled = False
 Err = 0
 Dim xTestObj
 Set xTestObj = Server.CreateObject(strClassString)
 If 0 = Err Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
End Function