test.asp文件：
<script language="JScript" runat="Server" title="js 也是可以當服務器端腳本的，讓asp調用">
function StrToArray(s){ //將json字符串轉為asp中的詞典數組Dictionary
var dic = Server.CreateObject("Scripting.Dictionary")
var a=eval("(" + s+")");
for(var key in a){
dic.Add(key, getDic(a[key]));
}
return dic
}
function getDic(ite){
if(typeof(ite)=="object"){
var obj = Server.CreateObject("Scripting.Dictionary")
for(var x in ite){
if(typeof(ite[x])=="object"){
obj.Add(x,getDic(ite[x]));//進入循環
}else{
obj.Add(x,ite[x])
}
}
return obj;
}else{
return ite;
}
}
</script>
<%
‘調用方式:
set myjson=StrToArray("[{""x"":5},{""x"":9}]")
For Each key In myjson
's = s &myjson(key)("x")& VbCrLf
For Each key1 In myjson(key)
s = s &key1& VbCrLf
next
Next
'response.Write(s)
'response.End()
set myjson=StrToArray("[{""x"":5},{""x"":9}]")
keys=myjson.Keys
For i=0 To myjson.Count-1
s = s &myjson(keys(i))("x")& VbCrLf
next
response.write(s)
response.End()
%>