asp-classic - VBScript/Classic ASP - 如何检查对象中是否存在属性而不引发错误

Question

示例代码:

Dim myObject
Set myObject = JSON.parse(someJsonResponseFromTheServer)    

myFunction(myObject.someProperty)

问题:

当在我的应用程序中运行与此类似的代码时，它会抛出 500来自服务器的错误消息类似于“对象不支持属性或方法'someProperty'。我想要解决这个问题是这样的:

Dim myObject
Set myObject = JSON.parse(someJsonResponseFromTheServer)    

If myObject.someProperty Then
    myFunction(myObject.someProperty)
End If

但是，如果我添加条件，它会在带有条件的行而不是带有方法调用的行上引发相同的错误。

我的问题:

在 ASP Classic 中，如何在不引发错误的情况下检测对象中是否存在属性？

Answer 1

假设您包含一些 runat="server"js 文件，该文件为您提供 JSON 解析器，然后 JSON.parse将返回一个 Javascript 对象。

如果上述假设是正确的，那么以下应该起作用:

If myObject.hasOwnProperty("someProperty") Then 
    myFunction(myObject.someProperty) 
End If