UC知道Function IsObjInstalled(strClassString)
来源：百度知道 编辑：UC知道 时间：2024/05/31 15:20:47
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
这个过程怎么解释
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
这个过程怎么解释
这个是一个检测系统组件是否已经安装的函数，其中strClassString是组件的名字，作为参数传递到函数里面，函数中会对这个组件进行对象创建的操作，如果创建成功，返回Ture，表示系统中已经安装了这个组件，如果创建失败返回Fales，表示没有安装这个组件