<
******************************
功能：isobjinstalled（strclassstring）
参数：strclassstring，组件对象的名字
作者：Ali Cici
日期：2007 7 13
说明：测试组件是否已安装
的例子：
******************************
功能isobjinstalled（strclassstring）
下次继续出错
isobjinstalled = false
错误＝0
昏暗的xtestobj
集xtestobj = server.createobject（strclassstring）
如果错误<> 2147221005然后isobjinstalled别的假=真isobjinstalled =如果
集xtestobj =没有
RR＝0
端功能
%>