asp后台怎样解析从客户端传来的json数据
答案:2 悬赏:80 手机版
解决时间 2021-02-12 06:52
- 提问者网友:城市野鹿
- 2021-02-11 16:47
asp后台怎样解析从客户端传来的json数据
最佳答案
- 五星知识达人网友:独钓一江月
- 2021-02-11 18:19
<%
Dim sc4Json
Sub InitScriptControl
Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")
sc4Json.Language = "JavaScript"
sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}"
End Sub
Function getJSONObject(strJSON)
sc4Json.AddCode "var jsonObject = " & strJSON
Set getJSONObject = sc4Json.CodeObject.jsonObject
End Function
Sub getJSArrayItem(objDest,objJSArray,index)
On Error Resume Next
sc4Json.Run "getJSArray",objJSArray, index
Set objDest = sc4Json.CodeObject.itemTemp
If Err.number=0 Then Exit Sub
objDest = sc4Json.CodeObject.itemTemp
End Sub
Dim strTest
strTest = "{name:""alonely"", age:24, email:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""], family:{parents:[""父亲"",""母亲""],toString:function(){return ""家庭成员"";}}}"
Dim objTest
Call InitScriptControl
Set objTest = getJSONObject(strTest)
%>
<%=objTest.name%>的邮件地址是<%=sc4Json.eval("jsonObject.email[0]")%>
共有邮件地址<%=objTest.email.length%>个
<%
Dim father
getJSArrayItem father, objTest.family.parents, 0
Response.Write father
%>
Dim sc4Json
Sub InitScriptControl
Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")
sc4Json.Language = "JavaScript"
sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}"
End Sub
Function getJSONObject(strJSON)
sc4Json.AddCode "var jsonObject = " & strJSON
Set getJSONObject = sc4Json.CodeObject.jsonObject
End Function
Sub getJSArrayItem(objDest,objJSArray,index)
On Error Resume Next
sc4Json.Run "getJSArray",objJSArray, index
Set objDest = sc4Json.CodeObject.itemTemp
If Err.number=0 Then Exit Sub
objDest = sc4Json.CodeObject.itemTemp
End Sub
Dim strTest
strTest = "{name:""alonely"", age:24, email:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""], family:{parents:[""父亲"",""母亲""],toString:function(){return ""家庭成员"";}}}"
Dim objTest
Call InitScriptControl
Set objTest = getJSONObject(strTest)
%>
<%=objTest.name%>的邮件地址是<%=sc4Json.eval("jsonObject.email[0]")%>
共有邮件地址<%=objTest.email.length%>个
<%
Dim father
getJSArrayItem father, objTest.family.parents, 0
Response.Write father
%>
全部回答
- 1楼网友:渡鹤影
- 2021-02-11 19:39
1.将list tojson或togson ,它有支持的架包的 就可以转换成json格式
2.传数据到action中 直接获取数据后将其封装成变量就可以传到action了,重点在url 里面写的提交也可以带上参数。你这个方法也行。
3.因为一般你通过数据专到action里的数据,不是一个变量参数,就是一个实体,一般很少有是集合的。你通过action的url 时就可以将其封装到实体里,也可以直接用一个变量去接收。
在这个里面将json数据转换成其它格式时,你要知道其中的数据列是怎么样的,排列方式是什么样的,然后去解析,再通过循环或者其它方式转换成其它类型的数据。其中的【】{} 所在位置,与意义。你可以通过某一些工具,其实可以看到json里面的数据结构,知道了它就很好解决了。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯