Question

程序函数高手请进

请帮我详细介绍下下面function函数语句中的具体含义

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

Answer 1

函数IsObjInstalled()应该是判断对象是否可以创建的。

Function IsObjInstalled(strClassString)
On Error Resume Next '当遇到错误继续执行
IsObjInstalled = False '设定函数返回值为False
Err = 0 '变量Err赋值为0
Dim xTestObj '定义xTestObj变量
Set xTestObj = Server.CreateObject(strClassString) '创建名为xTextObj的对象
If 0 = Err Then IsObjInstalled = True '如果错误为0那么该对象可以被创建，即函数IsObjInstalled返回True
Set xTestObj = Nothing '清空对象
Err = 0
End Function

总体来说函数IsObjInstalled()传入了一个strClassString变量或对象实例名，通过Server.CreateObject()来创建这个对象，然后判断Err对象是否为0（=0时代表成功创建了对象，没有出现错误），如果Err不等于0则函数的返回值为False，即不执行If 0=Err Then这个判断。