Classic ASP/VBScript中遍历ASPJSON如何同时获取键与值？

你只需要调整遍历逻辑——在For Each循环中，迭代变量本身就是JSON对象的键名，之前的代码里你用它来取值，现在直接使用这个变量就能拿到键名，结合item()方法即可同时获取键和对应的值：

For Each key In InitialGlaDataJsonForm.data("glaFormContent")
    Dim itemValue
    itemValue = InitialGlaDataJsonForm.data("glaFormContent").item(key)
    Response.Write "键: " & key & "，对应值: " & itemValue & "<br>"
Next

逻辑说明 #

ASPJSON通过Collection()创建的嵌套对象，在VBScript的For Each循环中，迭代变量会直接返回集合的键名，而非值。你之前的代码里，element变量其实已经是键了，只是你仅用它来获取对应的值，现在直接输出这个变量就能拿到键名。

用你生成的JSON结构测试这段代码，会输出：

键: form，对应值: myform<br>
键: email，对应值: email@address<br>
键: phone，对应值: 012345<br>
键: name，对应值: Joe Bloggs<br>

内容的提问来源于stack exchange，提问作者Boomfelled