asp 检测服务器所安装组件

2015-08-12 16:02:43来源:作者:人点击

asp 检测服务器所安装组件
==================================

函数名:IsObjInstalled
作  用:检查组件是否已经安装
参  数:strClassString ----组件名
返回值:True  ----已经安装
      False ----没有安装
==================================

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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台