时间:2021-07-01 10:21:17 帮助过:56人阅读
Set CNodeJson=New Json_Cls
CNodeJson.QuotedVars=false '是否对象名称加引号
CNodeJson("ID")=1
CNodeJson("Name")="Cloud.L"
CNodeJson("BlogName")="Cloud.L Blog"
Set CNodeJson=Nothing
2.在对象中再创建一个对象
代码如下:
Set CNodeJson=New Json_Cls
CNodeJson.QuotedVars=false '是否对象名称加引号
CNodeJson("ID")=1
CNodeJson("Name")="Cloud.L"
CNodeJson("BlogName")="Cloud.L Blog"
Set CNodeJson("SiteList")=New Json_Cls
CNodeJson("SiteList")("Blog")="//www.gxlsystem.com"
CNodeJson("SiteList")("CSDN")="http://hi.csdn.net/lingyun410"
Set CNodeJson=Nothing