在 ASP（Active Server Pages）中输出 JSON 格式的数据，通常需要手动构建 JSON 字符串，以下为你详细介绍具体的实现方法。
假设你有一个简单的用户信息列表，需要将其转换为 JSON 格式并输出。
<%@ Language=VBScript %>
<%
' 设置响应头，告知客户端返回的是JSON数据
Response.ContentType = "application/json"
' 模拟一个用户信息数组
Dim users(2)
' 定义用户对象1
Dim user1
Set user1 = CreateObject("Scripting.Dictionary")
user1.Add "id", 1
user1.Add "name", "John"
user1.Add "age", 25
' 定义用户对象2
Dim user2
Set user2 = CreateObject("Scripting.Dictionary")
user2.Add "id", 2
user2.Add "name", "Jane"
user2.Add "age", 30
' 定义用户对象3
Dim user3
Set user3 = CreateObject("Scripting.Dictionary")
user3.Add "id", 3
user3.Add "name", "Bob"
user3.Add "age", 35
' 将用户对象添加到数组中
users(0) = user1
users(1) = user2
users(2) = user3
' 构建JSON数组字符串
Dim jsonArray
jsonArray = "["
For i = 0 To UBound(users)
Dim user
Set user = users(i)
Dim jsonObject
jsonObject = "{"
Dim firstProperty
firstProperty = True
For Each key In user.Keys
If Not firstProperty Then
jsonObject = jsonObject & ","
End If
jsonObject = jsonObject & """" & key & """:""" & user(key) & """"
firstProperty = False
Next
jsonObject = jsonObject & "}"
If i < UBound(users) Then
jsonArray = jsonArray & jsonObject & ","
Else
jsonArray = jsonArray & jsonObject
End If
Next
jsonArray = jsonArray & "]"
' 输出JSON数据
Response.Write jsonArray
%>
设置响应头：
这行代码告知客户端返回的是 JSON 格式的数据。
Response.ContentType = "application/json"
模拟数据：
使用Scripting.Dictionary对象来模拟用户信息，将用户信息存储在数组中。
构建 JSON 字符串：
手动构建 JSON 数组和对象的字符串表示。
对于每个用户对象，遍历其键值对，将键和值用双引号括起来，并使用逗号分隔。
输出 JSON 数据：
Response.Write jsonArray
将构建好的 JSON 字符串输出到客户端。
上述代码假设所有的值都是字符串类型，如果值包含特殊字符（如双引号、换行符等），需要进行适当的转义处理。
手动构建 JSON 字符串比较繁琐，对于复杂的数据结构，建议使用第三方库来处理 JSON 的序列化和反序列化。