本文由 资源共享网 – ziyuan 发布,转载请注明出处,如有问题请联系我们!ASP解析JSON格式数据的方法和函数
收藏有了这个函数可以直接把json 解析为对像
<% Dim scriptCtrl Function parseJSON(str) If Not IsObject(scriptCtrl) Then Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl") scriptCtrl.Language = "JScript" scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;" End If scriptCtrl.ExecuteStatement "result = " & str & ";" Set parseJSON = scriptCtrl.CodeObject.result End Function Dim json json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}" Set obj = parseJSON(json) Response.Write "JSON原文为:<br>" Response.Write json Response.Write "<hr>" Response.Write "a=" & obj.a & "<br />" Response.Write "b=" & obj.b.name & "<br />" Response.Write "c.length=" & obj.c.length & "<br />" Response.Write "c.get(0)=" & obj.c.get(0) & "<br />" Set obj = Nothing %>
技术文章资源(ASP解析JSON格式数据的方法和函数)网址:https://www.08i8.com/course/detail264.html;转载请注明!