ASP解析JSON格式数据最简单的方法

ASP 服务端程序的常用语言，支持VBScript和JScript两种语言。
但VBScript解析JSON是个难题，自己写解析json程序太难，如果遇到要用asp解板json这个问题,应该使用JScript来解决

注意，以下文件均以UTF-8的编码保存！
 
 

<
% 
 
 

 
 
Dim json, obj 
 
 

 
 
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 />
" 
 
'结果是aaa
 
 
Response.Write "b=" &
obj.b.name &
"<
br />
" 
 
'结果是bb
 
 
Response.Write "c.length=" &
obj.c.length &
"<
br />
" 
 
'结果是3
 
 
Response.Write "c.get(0)=" &
obj.c.get(0) &
"<
br />
" 
 
'结果是item0 
 

 
 
Set obj = Nothing 
 
 

%>


<
script language="jscript" runat="server">
 
 
 

 
 
Array.prototype.get = function(x)
{ 

return this[x]
 

}
 
 
 

 
 
function parseJSON(strJSON)
{ 

return eval("(" + strJSON + ")")
 

} 
 
 

<
/script>