asp二维数组生成JSON格式代码

在ASP（Active Server Pages）中，生成一个二维数组并将其转换为JSON格式，可以使用 Scripting.Dictionary 和 Response.Write 来实现。以下是一个示例代码，展示如何创建一个二维数组并将其转换为JSON格式：

<%
' 创建一个二维数组
Dim arr(1, 2)
arr(0, 0) = "ID"
arr(0, 1) = "Name"
arr(0, 2) = "Age"

arr(1, 0) = "1"
arr(1, 1) = "John"
arr(1, 2) = "30"

' 将二维数组转换为JSON格式
Dim jsonOutput
jsonOutput = "["
Dim i, j
For i = 0 To UBound(arr, 1)
    If i > 0 Then jsonOutput = jsonOutput & ","
    jsonOutput = jsonOutput & "{"
    For j = 0 To UBound(arr, 2)
        If j > 0 Then jsonOutput = jsonOutput & ","
        jsonOutput = jsonOutput & """" & arr(0, j) & """:""" & arr(i, j) & """"
    Next
    jsonOutput = jsonOutput & "}"
Next
jsonOutput = jsonOutput & "]"

' 输出JSON格式的结果
Response.ContentType = "application/json"
Response.Write(jsonOutput)
%>

输出结果

上述代码将生成如下JSON格式的输出：

[
    {"ID":"1","Name":"John","Age":"30"}
]

说明

1. 二维数组：我们首先定义了一个二维数组 arr，其中第一行是字段名（如 ID, Name, Age），第二行是对应的数据。

2. JSON格式构建：通过循环遍历二维数组，将每一行数据构造成JSON对象，并将所有对象放入一个JSON数组中。

3. 输出JSON：设置 Response.ContentType 为 application/json，确保浏览器或客户端能够正确解析返回的内容。

如果你需要处理更复杂的二维数组或多维数组，可以考虑使用第三方库（如 Newtonsoft.Json 或其他JSON工具），但这些通常需要在更现代的框架中实现，而经典ASP的功能较为有限。