Windy's Blogasp将json格式的字符串生成asp对象类库，asp如何解析json格式的字符串，asp如何读写json类库
asp读取json格式字符串示例
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
{ "firstName": "John", "lastName" : "Smith", "age" : 25, "address" : { "streetAddress": "21 2nd Street", "city" : "New York", "state" : "NY", "postalCode" : "10021" }, "phoneNumber": [ { "type" : "home", "number": "212 555-1234" }, { "type" : "fax", "number": "646 555-4567" } ] } |
aspjson类库使用示例
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
<!--#include virtual="/aspJSON1.17.asp" --> <% Set oJSON = New aspJSON '加载json字符串生成对象 oJSON.loadJSON(jsonstring) '普通类型 Response.Write oJSON.data("firstName") & "<br>" set address=oJSON.data("address") 'json对象 Response.Write address("streetAddress")& "<br>" Response.Write address("city") & "<br>" 'json数组，需要遍历 For Each phonenr In oJSON.data("phoneNumber") Set this = oJSON.data("phoneNumber").item(phonenr) Response.Write _ this.item("type") & ": " & _ this.item("number") & "<br>" Next 'Update/Add value oJSON.data("firstName") = "James" 'Return json string Response.Write oJSON.JSONoutput() %> |
aspjson写json对象示例
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
<!--#include virtual="/aspJSON1.17.asp" --> <% Set oJSON = New aspJSON With oJSON.data .Add "familyName", "Smith" 'Create value .Add "familyMembers", oJSON.Collection() With oJSON.data("familyMembers") .Add 0, oJSON.Collection() 'Create object With .item(0) .Add "firstName", "John" .Add "age", 41 End With .Add 1, oJSON.Collection() With .item(1) .Add "firstName", "Suzan" .Add "age", 38 .Add "interests", oJSON.Collection() 'Create array With .item("interests") .Add 0, "Reading" .Add 1, "Tennis" .Add 2, "Painting" End With End With .Add 2, oJSON.Collection() With .item(2) .Add "firstName", "John Jr." .Add "age", 2.5 End With End With End With Response.Write oJSON.JSONoutput() 'Return json string %> |
返回的json格式的字符串
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
{ "familyName": "Smith", "familyMembers": [ { "firstName": "John", "age": 41 }, { "firstName": "Suzan", "age": 38, "interests": [ "Reading", "Tennis", "Painting" ] }, { "firstName": "John Jr.", "age": 2.5 } ] } |
更加复杂数据读取示例
json.txt
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 |
{ "item": [ { "media_id": "111111111111", "content": { "news_item": [ { "title": "aaaaaaaaaaa111111111111", "author": "", "digest": "aaaaa", "content": "dasfasfasdf", "content_source_url": "", "thumb_media_id": "222222222222222211111111111", "show_cover_pic": 0, "url": "dddddddddddddd2222222222222222", "thumb_url": "ffffffffffffffssssssssssssssssss" } ], "create_time": 1454771038, "update_time": 1454771234 }, "update_time": 1454771234 }, { "media_id": "222222222222222222222222", "content": { "news_item": [ { "title": "bbbb", "author": "", "digest": "dddddddddddddd", "content": "dddddddddffffffffffffff", "content_source_url": "", "thumb_media_id": "OKYCWs9AsE4iVttOm0C3ktJUiBgJ766yZoHoiGkxeA0", "show_cover_pic": 0, "url": "hhhhhhhhhhhhhhhhh", "thumb_url": "ggggggggggggggggggggggggg" } ], "create_time": 1454683014, "update_time": 1454683127 }, "update_time": 1454683127 }, { "media_id": "33333333333333", "content": { "news_item": [ { "title": "ccccccccccccc", "author": "", "digest": "ccccccccccccccccccvvvvvvvvvvvvvvvvvv", "content_source_url": "", "thumb_media_id": "vcvcvcv", "show_cover_pic": 0, "url": "vvvvvvvvvvvvvvcccccccccccccc", "thumb_url": "kkkkkkkkkkkkkvvvvvvvvvvvvv" } ], "create_time": 1447315546, "update_time": 1453449705 }, "update_time": 1453449705 } ], "total_count": 4, "item_count": 4 } |
read.asp
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="aspJSON1.17.asp"--> <% function readcontent(path) dim fso,txtstream set fso=server.CreateObject("scripting.filesystemobject") set txtstream=fso.OpenTextFile(path) readcontent=txtstream.readall txtstream.close set txtstream=nothing set fso=nothing end function s=readcontent(server.MapPath("json.txt")) Set oJSON = New aspJSON oJSON.loadJSON(s) response.Write "总数："&oJSON.data("total_count")&"<br>新闻列表<hr>" for each itemindex in oJSON.data("item")'遍历item数组 set item=oJSON.data("item").item(itemindex) response.Write "media_id："&item.item("media_id")&"<br>" set content=item.item("content") for each newsindex in content.item("news_item") set newsitem=content.item("news_item").item(newsindex) response.Write "title："&newsitem.item("title")&"<br>" response.Write "author："&newsitem.item("author")&"<br>" response.Write "content："&newsitem.item("content")&"<br>" '''更多属性。。。 next response.Write "<hr>" next %> |
来源：aspjson.com
未经允许不得转载：Windy's Blog » asp json类库解析json字符串
