您所在的位置:小祥子 » 编程 » ASP » 正文

ASP检查组件是否已安装方法

时间:2015-02-10 编辑:本站 来源:本站原创

服务器上通常自带FSO组件,还有可选的ASPJPEG图像处理组件,下面一个方法是通用的,把组件名称传值进去,返回True则是已安装该组件。

'***************************************************
'函数名: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

关键词:组件 检查 判断