第四团队—Team 4

JSON( Object Notation) 我想这个名字大家已经不陌生了，它是一种轻量级的数据交换格式,是由服务直接生成语句，客户端获取后直接用eval方法来获得这个对象，这样就可以省去解析XML解析带来的性能问题和兼容性问题，而且对于来说非常容易使用，可以方便的通过遍历数组以及访问对象属性来获取数据，其可读性也不错，基本具备了结构化数据的性质。不得不说是一个很好的办法，例如google maps就没有采用XML传递数据，而是采用了JSON方案。

这里我给大家举一个ASP调用Json的例子，起到一个抛砖引玉的作用吧......
 

以下是tset.asp代码片段：
<!--#include file="jsonParse.asp"-->
<%
Dim strTest
strTest = "{name:""alonely"", age:24, email:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""], family:{parents:[""父亲"",""母亲""],toString:function(){return ""家庭成员"";}}}"
Dim objTest
InitScriptControl
Set objTest = getJSONObject( strTest )
%>
<%=objTest.name%>的邮件地址是<%=sc4Json.Eval("jsonObject.email[0]")%><BR>
共有邮件地址<%=objTest.email.length%>个<BR>
<%
Dim father
getJSArrayItem father, objTest.family.parents, 0
Response.Write father
%>

以上是调用的输出页面，核心页面请......
 

以下是jsonParse.asp代码片段：
<%
Option Explicit
Dim sc4Json
Sub InitScriptControl
 Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")
 sc4Json.Language = ""
 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
 End If
 objDest = sc4Json.CodeObject.itemTemp
End Sub
%>