JSON.Stringify 在 Scripting.Dictionary 对象上失败

我正在开发一个 ASP 经典项目，在该项目中我实现了 JScript JSON 类here。它能够与 VBScript 和 JScript 互操作，并且几乎与以下位置提供的代码完全相同：json.org。我的团队经理要求我在这个项目中使用 VBScript。

它非常适用于 ASP 中定义的基元和类。但我需要 Dictionary 对象，据我所知，这些对象只能通过 COM 互操作获得。 （通过Server.CreateObject("Scripting.Dictionary")）我有以下代表产品的类：（ProductInfo.class.asp）

<%
Class ProductInfo

    Public ID
    Public Category
    Public PriceUS
    Public PriceCA
    Public Name
    Public SKU
    Public Overview
    Public Features
    Public Specs

End Class
%>

The Specs属性是键：值对的字典。这是我对其进行序列化的方式：(product.asp)

<%
dim oProd
set oProd = new ProductInfo
' ... fill in properties
' ... output appropriate headers and stuff
Response.write( JSON.stringify( oProd ) )
%>

当我传递一个实例时ProductInfo to JSON.Stringify（如上所示）我得到类似以下内容：

{
    "id": "1547",
    "Category": {
        "id": 101,
        "Name": "Category Name",
        "AlternateName": "",
        "URL": "/category_name/",
        "ParentCategoryID": 21
    },
    "PriceUS": 9.99,
    "PriceCA": 11.99,
    "Name": "Product Name",
    "SKU": 3454536,
    "Overview": "Lorem Ipsum dolor sit amet..",
    "Features": "Lorem Ipsum dolor sit amet..",
    "Specs": {}
}

如您所见，Specs属性是一个空对象。我相信 JSON stringify 方法知道Specs属性是一个对象，因此它附加了{}到周围的 JSON 字符串字符串化的输出。在本例中是一个空字符串。然而，我期望它显示的并不是一个空物体。见下文：

"Specs": {
    "foo":"bar",
    "baz":1,
    "etc":"..."
}

我相信 JSON 库的问题区域在这里：(json2.asp)

// Otherwise, iterate through all of the keys in the object.

for (k in value) {
    if (Object.hasOwnProperty.call(value, k)) {
        v = str(k, value);
        if (v) {
            partial.push(quote(k) + (gap ? ': ' : ':') + v);
        }
    }
}

我假设上面代码的问题在于它假设所有对象都继承自Object班级。 （提供的那个hasOwnProperty）但是我认为 COM 对象很可能不会继承自Object类——或者至少是same Object班级。或者至少不要实现任何需要执行的接口for ... in在他们。

Update:虽然我觉得这与要回答的问题无关——我希望某种 Web 客户端请求（通过 http）该对象的 JSON 表示形式或该对象的集合。

tl;博士 问题：我应该做什么才能使Scripting.Dictionary可以正确输出为 JSON，而不是失败并仅返回空字符串？我需要“重新发明轮子”并编写自己的吗DictionaryVBScript 中的类does充当 ASP 中的普通对象？

JavaScript 的for...in构造（在您引用的 JSON 序列化器中使用）仅适用于本机 JS 对象。枚举一个Scripting.Dictionary的键，您需要使用枚举器对象，它将枚举字典的键。

Now the JSON.stringify方法有一种允许自定义序列化的巧妙方法，通过检查是否存在toJSON每个属性的方法。不幸的是，您无法像在本机 JS 对象上那样在现有 COM 对象上添加新方法，因此这是不行的。

然后是自定义字符串生成器函数，可以作为第二个参数传递给stringify方法调用。将为每个需要字符串化的对象（甚至每个嵌套对象）调用该函数。我认为这可以用在这里。

一个问题是（据我所知）JScript 无法自行区分 VBScript 类型。对于 JScript，任何 COM 或 VBScript 对象都具有typeof === 'object'。我知道获取该信息的唯一方法是定义一个返回类型名称的 VBS 函数。

由于经典ASP文件的执行顺序如下：

• <script>使用非默认脚本语言的块（在您的情况下为 JScript）
• <script>使用默认脚本语言的块（在您的情况下为 VBScript）
• <% ... %>块，使用默认脚本语言（在您的情况下，VBScript）

以下方法可能有效——但是only当。。。的时候JSON.stringify呼叫在以下时间内完成<% ... %>括号，因为这是 JScript 和 VBScript 唯一一次<script>部分都将被解析并执行。

最终的函数调用将是这样的：

<%
    Response.Write JSON.stringify(oProd, vbsStringifier)
%>

为了允许 JScript 检查 COM 对象的类型，我们定义一个 VBSTypeName 函数：

<script language="VBScript" runat="server">
    Function VBSTypeName(Obj)
        VBSTypeName = TypeName(Obj)
    End Function
</script>

这里我们有 vbsStringifier 的完整实现，它作为第二个参数传递给 JSON.stringify：

<script language="JScript" runat="server">

    function vbsStringifier(holder, key, value) {
        if (VBSTypeName(value) === 'Dictionary') {
            var result = '{';
            for(var enr = new Enumerator(value); !enr.atEnd(); enr.moveNext()) {
                key = enr.item();
                result += '"' + key + '": ' + JSON.stringify(value.Item(key));
            }
            result += '}';
            return result;
        } else {
        // return the value to let it be processed in the usual way
            return value;
        }
    }

</script>

当然，在脚本引擎之间来回切换并不是很有效（即从 JS 调用 VBS 函数，反之亦然），因此您可能希望尝试将其保持在最低限度。

另请注意，我无法对此进行测试，因为我的计算机上不再有 IIS。基本原理应该可行，我不能 100% 确定从 VBScript 传递 JScript 函数引用的可能性。您可能需要为 JScript 中的 JSON.stringify 调用编写一个小的自定义包装函数：

<script runat="server" language="JScript">
    function JSONStringify(object) {
        return JSON.stringify(object, vbsStringifier);
    }
</script>

之后您可以简单地调整 VBScript 调用：

<%
    Response.Write JSONStringify(oProd)
%>