此方法是检测服务器是否安装了该对象，或者组件。避免组件不存在导致一些不谨慎的错误。让人看不起。

调用组件可以先检测组件是否存在。存在了在调用。或者全局先检测对象再说。

'============================== 
'是否为已安装对象
'调用举例 
'isInstallObj(对象)
'============================== 
Function isInstallObj(objname)
	dim isInstall,obj
	On Error Resume Next
	set obj=server.CreateObject(objname)
	if Err then 
		isInstallObj=false : err.clear 
	else 
		isInstallObj=true:set obj=nothing
	end if
End Function
'调用方式
isInstallObj(组件名称) true 是存在 flase 是不存在