<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim arr, i, jsonOutput
arr = Array( _
Array("id", 1, "title", "北京", "caption", "首都"), _
Array("id", 2, "title", "合肥", "caption", "省会"), _
Array("id", 3, "title", "重庆", "caption", "直辖市") _
)
jsonOutput = "["
For i = LBound(arr) To UBound(arr)
jsonOutput = jsonOutput&"{""id"":"""&arr(i)(1)&""",""title"":"""&arr(i)(3)&""",""caption"":"""&arr(i)(5)&"""},"
Next
jsonOutput = Left(jsonOutput, Len(jsonOutput) - 1) ' Remove the last comma
jsonOutput = jsonOutput & "]"
Response.Write jsonOutput
%>
