检查某个组件是否安装

来源:互联网 发布:世界濒危动物数据 编辑:程序博客网 时间:2024/05/07 12:33

www.u8686.com-信息发布平台

检查某个组件是否安装

 

 

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

原创粉丝点击