<%
Dim cities, city, json
cities = Array( _
Array(1, "北京", "首都"), _
Array(2, "合肥", "省会"), _
Array(3, "重庆", "直辖市") _
)
json = "["
For Each city In cities
json = json & "{""id"":""" & city(0) & """,""" & _
"""title"":""" & city(1) & """,""" & _
"""caption"":""" & city(2) & """},"
Next
' 去掉最后一个逗号
If Len(json) > 1 Then json = Left(json, Len(json) - 1)
json = json & "]"
Response.ContentType = "application/json"
Response.Write(json)
%>