<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
' 定义数据
Dim cities(2)
cities(0) = "{""id"":1,""title"":""北京"",""caption"":""首都""}"
cities(1) = "{""id"":2,""title"":""合肥"",""caption"":""省会""}"
cities(2) = "{""id"":3,""title"":""重庆"",""caption"":""自治区""}"
' 开始JSON数组
Response.Write "["
' 循环遍历数据
For i = 0 To UBound(cities)
Response.Write cities(i)
If i < UBound(cities) Then
Response.Write ","
End If
Next
' 结束JSON数组
Response.Write "]"
%>
