日韩欧美人妻无码精品白浆,www.大香蕉久久网,狠狠的日狠狠的操,日本好好热在线观看

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

這里假設(shè)已經(jīng)有了前面提供的  aspJSON  類的文件。這個(gè)示例創(chuàng)建了一個(gè)簡單的類表示一個(gè)人，然后將其屬性轉(zhuǎn)換為 JSON 格式并輸出。

如果沒有使用自定義的  aspJSON  類，也可以手動(dòng)構(gòu)造 JSON 字符串：

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


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


Response.Write(jsonData)