asp将数组for循环输出json格式
ASP
2025-02-26 16:36
48
0
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
' 假设这里已经引用了合适的JSON处理库，这里使用一个自定义的函数CreateJSON来创建JSON字符串（实际应用中需要替换为真实的库函数）
Function CreateJSON(key, value)
' 这里只是一个简单示例，实际可能需要更复杂的构建逻辑
CreateJSON = "{""" & key & """:""" & value & """}"
End Function
Dim arr(2)
arr(0) = Array("id", 1, "title", "北京", "caption", "首都")
arr(1) = Array("id", 2, "title", "合肥", "caption", "省会")
arr(2) = Array("id", 3, "title", "重庆", "caption", "直辖市")
Dim jsonStr
jsonStr = "["
For Each subArr In arr
jsonStr = jsonStr & CreateJSON(subArr(1), subArr(3)) & ","
Next
' 去除最后一个多余的逗号
jsonStr = Left(jsonStr, Len(jsonStr) - 1)
jsonStr = jsonStr & "]"
Response.Write(jsonStr)
%>
