以下是在 ASP（VBScript）中生成 JSON 的示例代码：

Class Person
    Public name
    Public age
End Class


Set p = New Person
p.name = "John"
p.age = 30


Dim jsonData
Set jsonObj = New aspJSON
jsonObj.parse "{""name"":""" & p.name & """,""age"":" & p.age & "}"
jsonData = jsonObj.toString()


Response.Write(jsonData)

这里假设已经有了前面提供的  aspJSON  类的文件。这个示例创建了一个简单的类表示一个人，然后将其属性转换为 JSON 格式并输出。

如果没有使用自定义的  aspJSON  类，也可以手动构造 JSON 字符串：

Set p = New Person
p.name = "John"
p.age = 30


Dim jsonData
jsonData = "{""name"":""" & p.name & """,""age"":" & p.age & "}"


Response.Write(jsonData)