以下是在 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)