作用验证组件是否安装
参数组件名称
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
