ASP解析JSON格式数据方法

lanzengquan

已于 2022-03-24 12:47:22 修改

阅读量2.2k

点赞数

于 2022-03-24 12:46:04 首次发布

本文链接：https://blog.csdn.net/lanzengquan/article/details/123708159

版权

JScript JSON 服务器端对象操作 MSScriptControl

关键词由CSDN通过智能技术生成

<script language="jscript" runat="server">  
    Array.prototype.get = function(x) { return this[x]; };  
    function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }  
</script>  
<%  
    Dim json, obj  
    json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }}"  
    Set obj = parseJSON(json)  
 
    Response.Write json
    Response.Write "<hr>"
 
    Response.Write "a=" & obj.a & "<br />"  
    Response.Write "b.name=" & obj.b.name & "<br />"  
    Response.Write "c.value=" & obj.b.value & "<br />"  
 
    Set obj = Nothing  
	response.End()
%>

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

'解析JSON
Set obj = parseJSON(json) 
	code=obj.code	'状态
	mobid=obj.mobid
	taskid=obj.taskid
	mobile=obj.mobile
Set obj = Nothing