asp-classic - 使用 VBScript(经典 ASP)列出 JScript 对象中的键

Question

我在 asp 页面中使用 JSON2 脚本来解析 JSON 发布数据。解析数据后，我在 VBScript 中有一个对象允许使用以下符号:jsonData.key

我想解析所有的键，但是，我不知道键名。

我该怎么做？

示例 JSON:{ "dbtable":"TABLE1", "dbcommand": "INSERT", "dbfilter": "ID"}

谢谢

Answer 1

您需要枚举对象的属性名称，但这在 VBScript 中是一件非常陌生的事情。您将需要构建一些其他 Jscript 函数来帮助将对象转换为更容易在 VBScript 中使用的内容。

如果数据真的像问题中的示例一样简单，那么您可以使用此函数:-

function toDictionary(o)
{
     var result = Server.CreateObject("Scripting.Dictionary");
     for (var key in o)
         result.Add(key, o[key]);
     return result;
}

现在在 VBScript 中:-

Dim myData: Set myData = toDictionary(jsonData);

For Each Key In myData
   '' // Each Key is a property for jsonData
Next