asp将数组for循环输出json格式
ASP
2025-02-26 16:23
33
0
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
' 假设的数据数组
Dim cities(2)
Set cities(0) = CreateObject("Scripting.Dictionary")
cities(0).Add "id", 1
cities(0).Add "title", "北京"
cities(0).Add "caption", "首都"
Set cities(1) = CreateObject("Scripting.Dictionary")
cities(1).Add "id", 2
cities(1).Add "title", "合肥"
cities(1).Add "caption", "省会"
Set cities(2) = CreateObject("Scripting.Dictionary")
cities(2).Add "id", 3
cities(2).Add "title", "重庆"
cities(2).Add "caption", "直辖市"
' 构建JSON字符串
Dim jsonOutput, i
jsonOutput = "{""cities"":["
For i = 0 to UBound(cities)
jsonOutput = jsonOutput & "{"
jsonOutput = jsonOutput & """id"": " & cities(i)("id") & ","
jsonOutput = jsonOutput & """title"": """ & cities(i)("title") & ""","
jsonOutput = jsonOutput & """caption"": """ & cities(i)("caption") & """"
jsonOutput = jsonOutput & "}"
If i < UBound(cities) Then
jsonOutput = jsonOutput & ","
End If
Next
jsonOutput = jsonOutput & "]}"
' 输出JSON字符串
Response.ContentType = "application/json"
Response.Write(jsonOutput)
%>
