在ASP（VBScript）中，你可以使用循环遍历数组并将结果以JSON格式输出。以下是一个示例代码：
<%
Dim data(2)
data(0) = "{'id':1,'title':'北京','caption':'首都'}"
data(1) = "{'id':2,'title':'合肥','caption':'省会'}"
data(2) = "{'id':3,'title':'重庆','caption':'直辖市'}"
Response.ContentType = "application/json"
Response.Write "["
For i = 0 To UBound(data)
Response.Write data(i)
If i < UBound(data) Then
Response.Write ","
End If
Next
Response.Write "]"
%>
定义数组：使用Dim语句定义一个包含三个元素的数组data，每个元素都是一个JSON格式的字符串。
设置响应头：使用Response.ContentType将响应的内容类型设置为application/json，以告知客户端返回的数据是JSON格式。
循环输出：使用For循环遍历数组，并将每个元素写入响应中。在每个元素之间添加逗号分隔符，但最后一个元素后面不添加逗号。
输出JSON数组：在循环前后分别输出[和]，以形成完整的JSON数组格式。
请注意，上述代码中的数据是手动硬编码的。在实际应用中，你可能需要从数据库或其他数据源获取数据，并将其格式化为JSON字符串。另外，ASP本身对JSON的支持有限，你可能需要使用一些JSON库来更方便地处理JSON数据。例如，可以使用第三方库如JSON.asp来简化JSON的生成和解析。
如果你希望从数据库中获取数据并生成JSON，可以参考以下示例（假设使用的是Access数据库）：
<%
' 数据库连接
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("your_database.mdb")
conn.Open
' SQL查询
Dim sql
sql = "SELECT id, title, caption FROM your_table"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 1
Response.ContentType = "application/json"
Response.Write "["
Do While Not rs.EOF
Dim jsonItem
jsonItem = "{'id':" & rs("id") & ",'title':'" & Replace(rs("title"), "'", "\'") & "','caption':'" & Replace(rs("caption"), "'", "\'") & "'}"
Response.Write jsonItem
If Not rs.EOF Then
Response.Write ","
End If
rs.MoveNext
Loop
Response.Write "]"
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
数据库连接：使用ADODB.Connection对象连接到Access数据库。
执行SQL查询：使用ADODB.Recordset对象执行SQL查询，并获取结果集。
循环生成JSON：在循环中，将每条记录格式化为JSON字符串，并写入响应中。
关闭连接：查询完成后，关闭记录集和数据库连接。