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
