西安网站建设Asp组件检测函数

11692013-04-03

西安网站建设工作室常用的Asp组件检测函数,转摘请注明来自西安网站建设公司点墨网络

'================================================
'作  用:检查组件是否已经安装
'参  数:strClassString ----组件名
'返回值:True  ----已经安装
'        False ----没有安装
'================================================
Function IsObjInstalled(ByVal strClassString)
 Dim xTestObj,ClsString
 On Error Resume Next
 IsObjInstalled = False
 ClsString = strClassString
 Err = 0
 Set xTestObj = Server.CreateObject(ClsString)
 If Err = 0 Then IsObjInstalled = True
 If Err = -2147352567 Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
 Exit Function
End Function 

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1