json中带有html asp,ASP中JSON的使用方法详解

首先是asp解析json

在服务器上运行jscript ?

注意在服务器上运行js时最好是在iis服务器下

因为其它的服务(一些简易服务器)是不支持在服务端运行js的，

function toObject(json) {

eval("var o=" + json);

return o;

}

Dim json

json = "{'uid':'1','username':'abc','email':'123@163.com'}"

Set json = toObject(json)

Response.Write json.uid & "
"

Response.Write json.username & "
"

Response.Write json.email & "
"

Set json = Nothing

%>

下面还有一个方法，现在网上已经有啦第三方的asp类库，很强大可以直接拿过来使用

下面是测试的结果,并且有所有代码的压缩包

数字-->

---

时间-->

---

数组-->

---

匿名一维数组-->

Set a = jsArray()

a(Null) = 2

a(Null) = 4

a(Null) = 6

a(Null) = 8

a.Flush

%>

---

匿名一维数组转换为json对象-->

a.Kind = JSON_OBJECT

a.Flush

%>

---

json对象-->

Set o = jsObject()

o("name") = "30c"

o("name") = o("name") & ".org"

o("surname") = "clove"

o("lucky_numbers") = Array(1,2,6,7,9)

o("sample_date") = #2012-4-8#

o(Null) = "China"

o.Flush%>

---

json对象转换为数组-->

o.Kind = JSON_ARRAY

o.Flush

%>

---

多层对象-->

Set o = jsObject()

Set o("person") = jsObject()

o("person")("name") = "30c"

o("person")("surname") = "Clove"

Set o("equipment") = jsObject()

o("equipment")("name") = "网站"

o("equipment")("type") = "教育"

o("equipment")("buy_date") = #2011-7-16#

o.Flush%>

---

多维数组-->

Set a = jsArray()

Set a(Null) = jsArray()

a(Null)(Null) = 0

a(Null)(Null) = 2

a(Null)(Null) = 4

a(Null)(Null) = 6

Set a(Null) = jsArray()

a(Null)(Null) = 1

a(Null)(Null) = 3

a(Null)(Null) = 5

a(Null)(Null) = 7

a.Flush%>

---

混合使用-->

Set a = jsArray()

Sub AddMember(name, surname)

Set a(Null) = jsObject()

a(Null)("name") = name

a(Null)("type") = surname

End Sub

AddMember "Clove", "Human"

AddMember "30c.org", "website"

a.Flush

%>

下面是运行后的效果图

AspJSONTest.rar?解压密码 ?www.zhaokeli.com