本人是用的asp 怎樣將字符串轉換成json 格

<%

dim a,b,c

a="name1:張三,sex1:男|name2:李四,sex2:男|name3:王五,sex3:男"

a=replace(a,":",",")

a=split(a,"|")

for i=0 to ubound(a)

c=split(a(i),",")

b=b&"""list"&i+1&""":[{"""&c(0)&""":"""&c(1)&""","""&c(2)&""":"""&c(3)&"""}],"

next

b="{"&left(b,len(b)-1)&"}"

response.write b

%>