blocks|key|342000|text|不是很确定。你检查过支持JSON的ASP+extreme框架吗？|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|342001|entityMap|0|LINK|mutability|MUTABLE|url|http://framework.lojcomm.com.br/app/docs/files/app/core/lib/json-class-asp.html^0|H|B|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

Not sure about it. Have you checked <a href="http://framework.lojcomm.com.br/app/docs/files/app/core/lib/json-class-asp.html" rel="noreferrer">ASP extreme</a> framework which has JSON support?

blocks|key|339533|text|请记住，Classic+ASP不仅包括VBScript，还包括JScript。有趣的是，您可以使用JScript解析JSON，并直接在VBScript中使用生成的对象。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|339534|因此，可以在服务器端代码中零修改地使用规范的https://github.com/douglascrockford/JSON-js/blob/master/json2.js。|offset|length|339535|当然，如果您的JSON包含任何数组，那么当解析完成时，这些数组仍然是JScript数组。您可以使用点符号从VBScript访问JScript数组的内容。|339536|<%25@Language="VBScript"+%25>
<%25
Option+Explicit
%25>

<script+language="JScript"+runat="server"+src='path/to/json2.js'></script>

<%25

Dim+myJSON
myJSON+=+Request.Form("myJSON")+//+"[+1,+2,+3+]"
Set+myJSON+=+JSON.parse(myJSON)+//+[1,2,3]
Response.Write(myJSON)++++++++++//+1,2,3
Response.Write(myJSON.[0])++++++//+1
Response.Write(myJSON.[1])++++++//+2
Response.Write(myJSON.[2])++++++//+3
%25>|code-block|syntax|javascript|339537|entityMap|0|LINK|mutability|MUTABLE|url|https://github.com/douglascrockford/JSON-js/blob/master/json2.js^0|0|M|1S|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|V|8|@]|9|@$D|W|E|X|1|Y]]|A|$]]|$1|F|3|G|5|6|7|Z|8|@]|9|@]|A|$]]|$1|H|3|I|5|J|7|10|8|@]|9|@]|A|$K|L]]|$1|M|3|-4|5|6|7|11|8|@]|9|@]|A|$]]]|N|$O|$5|P|Q|R|A|$S|T]]]]

Keep in mind that Classic ASP includes JScript as well as VBScript. Interestingly, you can parse JSON using JScript and use the resulting objects directly in VBScript.

Therefore, it is possible to use the canonical <a href="https://github.com/douglascrockford/JSON-js/blob/master/json2.js" rel="noreferrer">https://github.com/douglascrockford/JSON-js/blob/master/json2.js</a> in server-side code with zero modifications.

Of course, if your JSON includes any arrays, these will remain JScript arrays when parsing is complete. You can access the contents of the JScript array from VBScript using dot notation.

<pre><code>&lt;%@Language="VBScript" %&gt;
&lt;%
Option Explicit
%&gt;

&lt;script language="JScript" runat="server" src='path/to/json2.js'&gt;&lt;/script&gt;

&lt;%

Dim myJSON
myJSON = Request.Form("myJSON") // "[ 1, 2, 3 ]"
Set myJSON = JSON.parse(myJSON) // [1,2,3]
Response.Write(myJSON) // 1,2,3
Response.Write(myJSON.[0]) // 1
Response.Write(myJSON.[1]) // 2
Response.Write(myJSON.[2]) // 3
%&gt;
</code></pre>

blocks|key|342007|text|http://github.com/nagaozen/asp-xtreme-evolution/|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|342008|entityMap|0|LINK|mutability|MUTABLE|url^0|0|1C|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@$A|L|B|M|1|N]]|C|$]]|$1|D|3|-4|5|6|7|O|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|4]]]]

<a href="http://github.com/nagaozen/asp-xtreme-evolution/" rel="nofollow noreferrer">http://github.com/nagaozen/asp-xtreme-evolution/</a>

blocks|key|342025|text|我无法让极端进化论或克里斯尼尔森的建议起作用。但是，下面的方法对我来说是有效的：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|342026|http://tforster.wik.is/ASP_Classic_Practices_For_The_21st_Century/JSON4ASP|offset|length|342027|下载以下代码作为"json2.min.asp“|342028|http://tforster.wik.is/@api/deki/files/2/=json2.min.asp|342029|将以下行添加到ASP文件的顶部：|342030|<script+language="javascript"+runat="server"+src="json2.min.asp"></script>|code-block|syntax|javascript|342031|然后，您可以在ASP中使用JSON。|342032|+++Dim+car:+Set+car+=+JSON.parse("{""brand"":""subaru"",""model"":""outback+sport"",""year"":2003,"+&+_
+++++++++++++++++++++++++++++++++"""colour"":""green"",""accessories"":["+&+_
+++++++++++++++++++++++++++++++++"{""foglamps"":true},{""abs"":true},{""heatedSeats"":true}]}")

+++Response.Write("brand:+"+&+car.brand+&+" ")+++++++++++++++++++++++++++++++
+++Response.Write("model:+"+&+car.model+&+" ")+++++++++++++++++++++++++++++++
+++Response.Write("colour:+"+&+car.colour+&+" ")+++++++++++++++++++++++++++++++
+++Response.Write("has+foglamps:+"+&+CStr(car.accessories.get(0).foglamps)+&+" ")+++++++++++++++++++++++++++++++

+++car.accessories.get(0).foglamps+=+false
+++Response.Write("has+foglamps:+"+&+CStr(car.accessories.get(0).foglamps)+&+" ")+++++++++++++++++++++++++++++++
+++Response.Write("new+Json:+"+&+JSON.stringify(car)+&+" ")

+++Set+car+=+Nothing|342033|注意:要解析项目数组，您需要执行以下操作：|342034|+++for+each+iTmp+in+testing
+++++++if+(TypeName(iTmp))<>"JScriptTypeInfo"+then+
+++++++++++Response.Write("Item:+"+&++iTmp+&+" ")
+++++++end+if
+++next|342035|entityMap|0|LINK|mutability|MUTABLE|url|1^0|0|0|22|0|0|0|0|1J|1|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|16|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|17|8|@]|9|@$D|18|E|19|1|1A]]|A|$]]|$1|F|3|G|5|6|7|1B|8|@]|9|@]|A|$]]|$1|H|3|I|5|6|7|1C|8|@]|9|@$D|1D|E|1E|1|1F]]|A|$]]|$1|J|3|K|5|6|7|1G|8|@]|9|@]|A|$]]|$1|L|3|M|5|N|7|1H|8|@]|9|@]|A|$O|P]]|$1|Q|3|R|5|6|7|1I|8|@]|9|@]|A|$]]|$1|S|3|T|5|N|7|1J|8|@]|9|@]|A|$O|P]]|$1|U|3|V|5|6|7|1K|8|@]|9|@]|A|$]]|$1|W|3|X|5|N|7|1L|8|@]|9|@]|A|$O|P]]|$1|Y|3|-4|5|6|7|1M|8|@]|9|@]|A|$]]]|Z|$10|$5|11|12|13|A|$14|C]]|15|$5|11|12|13|A|$14|I]]]]

I couldn't get the extreme-evolution or Chris Nielson's suggestion to work. 
But, the following did work for me: 

<a href="http://tforster.wik.is/ASP_Classic_Practices_For_The_21st_Century/JSON4ASP" rel="noreferrer">http://tforster.wik.is/ASP_Classic_Practices_For_The_21st_Century/JSON4ASP</a>

Download the following as "json2.min.asp"

<a href="http://tforster.wik.is/@api/deki/files/2/=json2.min.asp" rel="noreferrer">http://tforster.wik.is/@api/deki/files/2/=json2.min.asp</a>

Add the following line to the top of your ASP file: 

<pre><code>&lt;script language="javascript" runat="server" src="json2.min.asp"&gt;&lt;/script&gt;
</code></pre>

You can then use JSON in ASP.

<pre><code> Dim car: Set car = JSON.parse("{""brand"":""subaru"",""model"":""outback sport"",""year"":2003," &amp; _
 """colour"":""green"",""accessories"":[" &amp; _
 "{""foglamps"":true},{""abs"":true},{""heatedSeats"":true}]}")

 Response.Write("brand: " &amp; car.brand &amp; "&lt;br/&gt;") 
 Response.Write("model: " &amp; car.model &amp; "&lt;br/&gt;") 
 Response.Write("colour: " &amp; car.colour &amp; "&lt;br/&gt;") 
 Response.Write("has foglamps: " &amp; CStr(car.accessories.get(0).foglamps) &amp; "&lt;br/&gt;") 

 car.accessories.get(0).foglamps = false
 Response.Write("has foglamps: " &amp; CStr(car.accessories.get(0).foglamps) &amp; "&lt;br/&gt;") 
 Response.Write("new Json: " &amp; JSON.stringify(car) &amp; "&lt;br/&gt;")

 Set car = Nothing
</code></pre>

Note: To parse through an array of items, you need to do the following: 

<pre><code> for each iTmp in testing
 if (TypeName(iTmp))&lt;&gt;"JScriptTypeInfo" then 
 Response.Write("Item: " &amp; iTmp &amp; "&lt;br/&gt;")
 end if
 next
</code></pre>

blocks|key|3319802|text|AXE是一个很棒的库，但如果您只需要JSON处理功能，它就相当笨重。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3319803|但是，我确实从AXE项目中获取了base.asp文件和json.asp类文件，并成功地使用它们在我的项目中实现了JSON解析。|3319804|对于JSON生成，我发现aspjson更容易集成。它还具有更强大的json相关特性。axe文档有点缺乏，集成到项目中需要做更多的工作，但是它在将JSON+VB对象序列化为字符串方面做得很好。|offset|length|3319805|entityMap|0|LINK|mutability|MUTABLE|url|http://code.google.com/p/aspjson/^0|0|0|C|7|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Q|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|R|8|@]|9|@$F|S|G|T|1|U]]|A|$]]|$1|H|3|-4|5|6|7|V|8|@]|9|@]|A|$]]]|I|$J|$5|K|L|M|A|$N|O]]]]

AXE is a great library but is rather heavy if you just need JSON processing functionality.

I did, however, grab the base.asp file and the json.asp class file from the AXE project and successfully used them to implement JSON parsing in my project.

For JSON generation, I found <a href="http://code.google.com/p/aspjson/" rel="nofollow">aspjson</a> was simpler to integrate. It also has more powerful json-related features. The axe documentation a little lacking and was more work to integrate into the project, however it does do a fine job of serializing its JSON VB object back to a string.

blocks|key|337217|text|当我在寻找一个轻量级的纯VBScript解决方案时，我写了这个答案。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|337218|通过组合一个基本的JSON+to+XML转换器，我们可以遍历JSON字符串并将其转换为Microsoft.XMLDOM文档。|337219|在那里，我们使用微软的XML，包括XPath查询来提取我们想要的任何值。|337220|它可以处理简单的JSON，但是，我从来没有想过这个答案适用于更复杂的东西。|337221|对于更健壮的解决方案，最好的JSON解释器是适当的Javascript引擎。因此，我强烈推荐这个问题的公认答案，即Any+good+libraries+for+parsing+JSON+in+Classic+ASP?|offset|length|337222|Function+JSONtoXML(jsonText)
++Dim+idx,+max,+ch,+mode,+xmldom,+xmlelem,+xmlchild,+name,+value

++Set+xmldom+=+CreateObject("Microsoft.XMLDOM")
++xmldom.loadXML+"<xml/>"
++Set+xmlelem+=+xmldom.documentElement

++max+=+Len(jsonText)
++mode+=+0
++name+=+""
++value+=+""
++While+idx+<+max
++++idx+=+idx+%2B+1
++++ch+=+Mid(jsonText,+idx,+1)
++++Select+Case+mode
++++Case+0+'+Wait+for+Tag+Root
++++++Select+Case+ch
++++++Case+"{"
++++++++mode+=+1
++++++End+Select
++++Case+1+'+Wait+for+Attribute/Tag+Name
++++++Select+Case+ch
++++++Case+""""
++++++++name+=+""
++++++++mode+=+2
++++++Case+"{"
++++++++Set+xmlchild+=+xmldom.createElement("tag")
++++++++xmlelem.appendChild+xmlchild
++++++++xmlelem.appendchild+xmldom.createTextNode(vbCrLf)
++++++++xmlelem.insertBefore+xmldom.createTextNode(vbCrLf),+xmlchild
++++++++Set+xmlelem+=+xmlchild
++++++Case+"["
++++++++Set+xmlchild+=+xmldom.createElement("tag")
++++++++xmlelem.appendChild+xmlchild
++++++++xmlelem.appendchild+xmldom.createTextNode(vbCrLf)
++++++++xmlelem.insertBefore+xmldom.createTextNode(vbCrLf),+xmlchild
++++++++Set+xmlelem+=+xmlchild
++++++Case+"}"
++++++++Set+xmlelem+=+xmlelem.parentNode
++++++Case+"]"
++++++++Set+xmlelem+=+xmlelem.parentNode
++++++End+Select
++++Case+2+'+Get+Attribute/Tag+Name
++++++Select+Case+ch
++++++Case+""""
++++++++mode+=+3
++++++Case+Else
++++++++name+=+name+%2B+ch
++++++End+Select
++++Case+3+'+Wait+for+colon
++++++Select+Case+ch
++++++Case+":"
++++++++mode+=+4
++++++End+Select
++++Case+4+'+Wait+for+Attribute+value+or+Tag+contents
++++++Select+Case+ch
++++++Case+"["
++++++++Set+xmlchild+=+xmldom.createElement(name)
++++++++xmlelem.appendChild+xmlchild
++++++++xmlelem.appendchild+xmldom.createTextNode(vbCrLf)
++++++++xmlelem.insertBefore+xmldom.createTextNode(vbCrLf),+xmlchild
++++++++Set+xmlelem+=+xmlchild
++++++++name+=+""
++++++++mode+=+1
++++++Case+"{"
++++++++Set+xmlchild+=+xmldom.createElement(name)
++++++++xmlelem.appendChild+xmlchild
++++++++xmlelem.appendchild+xmldom.createTextNode(vbCrLf)
++++++++xmlelem.insertBefore+xmldom.createTextNode(vbCrLf),+xmlchild
++++++++Set+xmlelem+=+xmlchild
++++++++name+=+""
++++++++mode+=+1
++++++Case+""""
++++++++value+=+""
++++++++mode+=+5
++++++Case+"+"
++++++Case+Chr(9)
++++++Case+Chr(10)
++++++Case+Chr(13)
++++++Case+Else
++++++++value+=+ch
++++++++mode+=+7
++++++End+Select
++++Case+5
++++++Select+Case+ch
++++++Case+""""
++++++++xmlelem.setAttribute+name,+value
++++++++mode+=+1
++++++Case+"\"
++++++++mode+=+6
++++++Case+Else
++++++++value+=+value+%2B+ch
++++++End+Select
++++Case+6
++++++value+=+value+%2B+ch
++++++mode+=+5
++++Case+7
++++++If+Instr("}],+"+&+Chr(9)+&+vbCr+&+vbLf,+ch)+=+0+Then
++++++++value+=+value+%2B+ch
++++++Else
++++++++xmlelem.setAttribute+name,+value
++++++++mode+=+1
++++++++Select+Case+ch
++++++++Case+"}"
++++++++++Set+xmlelem+=+xmlelem.parentNode
++++++++Case+"]"
++++++++++Set+xmlelem+=+xmlelem.parentNode
++++++++End+Select
++++++End+If
++++End+Select
++Wend

++Set+JSONtoXML+=+xmlDom
End+Function|code-block|syntax|javascript|337223|上面的脚本转换以下JSON：|337224|{
++"owningSystemUrl":+"http://www.arcgis.com",
++"authInfo":+{
++++"tokenServicesUrl":+"https://www.arcgis.com/sharing/rest/generateToken",
++++"isTokenBasedSecurity":+true
++}
}|337225|进入：|337226|<xml+owningSystemUrl="http://www.arcgis.com">
++++<authInfo
++++++++tokenServicesUrl="https://www.arcgis.com/sharing/rest/generateToken"
++++++++isTokenBasedSecurity="true"+>
++++</authInfo>
</xml>|337227|我们现在可以使用XPath来提取tokenServicesUrl，例如：|style|CODE|337228|dom.SelectSingleNode("xml/authInfo").getAttribute("tokenServicesUrl")
'+Returns:+"https://www.arcgis.com/sharing/rest/generateToken"|337229|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/questions/1019223/any-good-libraries-for-parsing-json-in-classic-asp/1021848#1021848^0|0|0|0|0|1L|1F|0|0|0|0|0|0|0|G|G|0|0^^$0|@$1|2|3|4|5|6|7|1C|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1D|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|1E|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|1F|8|@]|9|@]|A|$]]|$1|H|3|I|5|6|7|1G|8|@]|9|@$J|1H|K|1I|1|1J]]|A|$]]|$1|L|3|M|5|N|7|1K|8|@]|9|@]|A|$O|P]]|$1|Q|3|R|5|6|7|1L|8|@]|9|@]|A|$]]|$1|S|3|T|5|N|7|1M|8|@]|9|@]|A|$O|P]]|$1|U|3|V|5|6|7|1N|8|@]|9|@]|A|$]]|$1|W|3|X|5|N|7|1O|8|@]|9|@]|A|$O|P]]|$1|Y|3|Z|5|6|7|1P|8|@$J|1Q|K|1R|10|11]]|9|@]|A|$]]|$1|12|3|13|5|N|7|1S|8|@]|9|@]|A|$O|P]]|$1|14|3|-4|5|6|7|1T|8|@]|9|@]|A|$]]]|15|$16|$5|17|18|19|A|$1A|1B]]]]

I wrote this answer when I was looking for a light-weight pure VBScript only solution.

By putting together a rudimentary JSON to XML converter, we can walk the JSON string and turn it into a Microsoft.XMLDOM document.

From there, we use Microsoft's XML API including XPath queries to pluck out any values we wanted.

This handles simple JSON, but, I never intended this answer for anything more sophisticated.

For a more robust solution, the best JSON interpreter, is a proper Javascript engine. Therefore, I highly recommend the accepted answer to this question i.e. <a href="https://stackoverflow.com/questions/1019223/any-good-libraries-for-parsing-json-in-classic-asp/1021848#1021848">Any good libraries for parsing JSON in Classic ASP?</a>

<pre class="lang-vb prettyprint-override"><code>Function JSONtoXML(jsonText)
 Dim idx, max, ch, mode, xmldom, xmlelem, xmlchild, name, value

 Set xmldom = CreateObject("Microsoft.XMLDOM")
 xmldom.loadXML "&lt;xml/&gt;"
 Set xmlelem = xmldom.documentElement

 max = Len(jsonText)
 mode = 0
 name = ""
 value = ""
 While idx &lt; max
 idx = idx + 1
 ch = Mid(jsonText, idx, 1)
 Select Case mode
 Case 0 ' Wait for Tag Root
 Select Case ch
 Case "{"
 mode = 1
 End Select
 Case 1 ' Wait for Attribute/Tag Name
 Select Case ch
 Case """"
 name = ""
 mode = 2
 Case "{"
 Set xmlchild = xmldom.createElement("tag")
 xmlelem.appendChild xmlchild
 xmlelem.appendchild xmldom.createTextNode(vbCrLf)
 xmlelem.insertBefore xmldom.createTextNode(vbCrLf), xmlchild
 Set xmlelem = xmlchild
 Case "["
 Set xmlchild = xmldom.createElement("tag")
 xmlelem.appendChild xmlchild
 xmlelem.appendchild xmldom.createTextNode(vbCrLf)
 xmlelem.insertBefore xmldom.createTextNode(vbCrLf), xmlchild
 Set xmlelem = xmlchild
 Case "}"
 Set xmlelem = xmlelem.parentNode
 Case "]"
 Set xmlelem = xmlelem.parentNode
 End Select
 Case 2 ' Get Attribute/Tag Name
 Select Case ch
 Case """"
 mode = 3
 Case Else
 name = name + ch
 End Select
 Case 3 ' Wait for colon
 Select Case ch
 Case ":"
 mode = 4
 End Select
 Case 4 ' Wait for Attribute value or Tag contents
 Select Case ch
 Case "["
 Set xmlchild = xmldom.createElement(name)
 xmlelem.appendChild xmlchild
 xmlelem.appendchild xmldom.createTextNode(vbCrLf)
 xmlelem.insertBefore xmldom.createTextNode(vbCrLf), xmlchild
 Set xmlelem = xmlchild
 name = ""
 mode = 1
 Case "{"
 Set xmlchild = xmldom.createElement(name)
 xmlelem.appendChild xmlchild
 xmlelem.appendchild xmldom.createTextNode(vbCrLf)
 xmlelem.insertBefore xmldom.createTextNode(vbCrLf), xmlchild
 Set xmlelem = xmlchild
 name = ""
 mode = 1
 Case """"
 value = ""
 mode = 5
 Case " "
 Case Chr(9)
 Case Chr(10)
 Case Chr(13)
 Case Else
 value = ch
 mode = 7
 End Select
 Case 5
 Select Case ch
 Case """"
 xmlelem.setAttribute name, value
 mode = 1
 Case "\"
 mode = 6
 Case Else
 value = value + ch
 End Select
 Case 6
 value = value + ch
 mode = 5
 Case 7
 If Instr("}], " &amp; Chr(9) &amp; vbCr &amp; vbLf, ch) = 0 Then
 value = value + ch
 Else
 xmlelem.setAttribute name, value
 mode = 1
 Select Case ch
 Case "}"
 Set xmlelem = xmlelem.parentNode
 Case "]"
 Set xmlelem = xmlelem.parentNode
 End Select
 End If
 End Select
 Wend

 Set JSONtoXML = xmlDom
End Function
</code></pre>

The above script, transforms the following JSON:

<pre><code>{
 "owningSystemUrl": "http://www.arcgis.com",
 "authInfo": {
 "tokenServicesUrl": "https://www.arcgis.com/sharing/rest/generateToken",
 "isTokenBasedSecurity": true
 }
}
</code></pre>

into:

<pre><code>&lt;xml owningSystemUrl="http://www.arcgis.com"&gt;
 &lt;authInfo
 tokenServicesUrl="https://www.arcgis.com/sharing/rest/generateToken"
 isTokenBasedSecurity="true" &gt;
 &lt;/authInfo&gt;
&lt;/xml&gt;
</code></pre>

We can now use XPath to extract the <code>tokenServicesUrl</code>, for example:

<pre class="lang-vb prettyprint-override"><code>dom.SelectSingleNode("xml/authInfo").getAttribute("tokenServicesUrl")
' Returns: "https://www.arcgis.com/sharing/rest/generateToken"
</code></pre>

blocks|key|339633|text|我最近实现了一个类，它有一个用于将解析为VBScript的“JSON解码”方法和一个用于从VBScript生成JSON的“编码”方法。代码有点长，所以我不在这里粘贴它。|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|339634|entityMap^0|H|J|1P|2|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]|$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|M|8|@]|D|@]|E|$]]]|G|$]]

I have recently implemented a <a href="http://demon.tw/my-work/vbs-json.html#code" rel="noreferrer">VbsJson</a> class, which has a "Decode" method to parse JSON to VBScript and a "Encode" method to generate JSON from VBScript. The code is somewhat long, so I don't paste it here.

blocks|key|338640|text|这里的解决方案非常好，但有时有些过头了。如果JSON很简单，并且始终保持相同的结构，那么您可以自己解析它，这样就又快又简单。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|338641|+'read+data+from+client
+records+=+Request.Form("records")
+'convert+the+JSON+string+to+an+array
+Set+oRegExpre+=+new+RegExp
+oRegExpre.Global+=+true
+oRegExpre.Pattern+=+"[\[\]\{\}""]%2B"
+records+=+replace(records,+"},{","%7C%7C")
+records+=+oRegExpre.Replace(records,+""+)
+aRecords+=+split(records,"%7C%7C")
+'iterate+the+array+and+do+some+cleanup
+for+each+rec+in+aRecords
+++aRecord+=+split(rec,",")
+++id++++++++++=+split(aRecord(1),":")(1)
+++field+++++++=+split(aRecord(0),":")(0)
+++updateValue+=+split(aRecord(0),":")(1)
+++updateValue+=+replace(updateValue,chr(10),"\n")
+++updateValue+=+replace(updateValue,chr(13),"\r")
+++updateValue+=+replace(updateValue,"'","''")
++'etc
next|code-block|syntax|javascript|338642|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

the solutions here are very good but sometimes overkill.
 If the JSON is simple and always the same structure you can parse it yourself, it's fast and simple.

<pre><code> 'read data from client
 records = Request.Form("records")
 'convert the JSON string to an array
 Set oRegExpre = new RegExp
 oRegExpre.Global = true
 oRegExpre.Pattern = "[\[\]\{\}""]+"
 records = replace(records, "},{","||")
 records = oRegExpre.Replace(records, "" )
 aRecords = split(records,"||")
 'iterate the array and do some cleanup
 for each rec in aRecords
 aRecord = split(rec,",")
 id = split(aRecord(1),":")(1)
 field = split(aRecord(0),":")(0)
 updateValue = split(aRecord(0),":")(1)
 updateValue = replace(updateValue,chr(10),"\n")
 updateValue = replace(updateValue,chr(13),"\r")
 updateValue = replace(updateValue,"'","''")
 'etc
next
</code></pre>

I've been able to find a zillion libraries for generating JSON in Classic ASP (VBScript) but I haven't been to find ANY for parsing.
I want something that I can pass a JSON string and get back a VBScript object of some sort (Array, Scripting.Dictionary, etc)
<h3>Can anyone recommend a library for parsing JSON in Classic ASP?</h3>

Any good libraries for parsing JSON in Classic ASP?

服务器

解释器

JSON

我已经能够找到无数的用Classic ASP (VBScript)生成 JSON的库，但是我还没有找到任何用于解析的库。我想要一些可以传递JSON字符串并返回某种类型的VBScript对象(数组、Scripting.Dictionary等)的东西。有没有人能推荐一个用经典ASP解析JSON的库？

问有没有好的库可以用来解析经典ASP中的JSON？
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问有没有好的库可以用来解析经典ASP中的JSON？EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问有没有好的库可以用来解析经典ASP中的JSON？
EN