日韩欧美人妻无码精品白浆,夜夜嗨AV免费入口,国产欧美官网在线看,高校回应聋哑女生因长相完美被质疑

以下是在 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è)簡(jiǎn)單的類表示一個(gè)人，然后將其屬性轉(zhuǎn)換為 JSON 格式并輸出。

如果沒(méi)有使用自定義的  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)