有没有什么办法来检查VBScript函数是否被定义？

Question

这可能只是一厢情愿的想法...

有没有什么办法可以在调用之前检查ASP/VBScript函数是否定义了？

Answer 1

这是因为它依赖于已经设置为“On错误继续下一步”做一个稍微哈克的方式，但你可以做这样的事情：

On Error Resume Next 
Dim objRef1, objRef2 
Set objRef1 = GetRef("DoStuff1") 
If objRef1 Is Nothing Then 
    Call objRef1 
Else 
    MsgBox "DoStuff1 is not defined!" 
End If 

Set objRef2 = GetRef("DoStuff2") 
If objRef2 Is Nothing Then 
    MsgBox "DoStuff2 is not defined!" 
Else 
    Call objRef2 
End If 

Sub DoStuff1 
    MsgBox "DoStuff1!" 
End Sub 

到GetRef呼叫将产生，如果异常你试图得到一个指针的子或函数不存在（DoStuff2就是这种情况）。然后您可以检查参考是否按预期设置。

Answer 2

这里是我的解决方案，它在相同的原理工作，但哈克岬是相当自足：

Function FunctionExists(func_name) 
    FunctionExists = False 

    On Error Resume Next 

    Dim f : Set f = GetRef(func_name) 

    If Err.number = 0 Then 
     FunctionExists = True 
    End If 
    On Error GoTo 0 

End Function