作用：驗證組件是否安裝
'參數：組件名稱
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
