公司的需要，在网上下了一个asp的源码，需要修数据接口，接口返回的是 json 数据，很久没有做了，所以在网上找了一份，但asp的代码太少，这个还有点用，保存一份在这里吧。
<script language="JScript" runat="Server">
function toObject(json) {
eval("var o=" + json);
return o;
}
function toArray(s){
var dic = Server.CreateObject("Scripting.Dictionary")
eval("var a=" + json);
for(var i=0;i<a.length;i++){
var obj = Server.CreateObject("Scripting.Dictionary")
for(x in a[i]) obj.Add(x,a[i][x])
dic.Add(i, obj);
}
return dic
}
</script>
<%
Dim json
json ="[{'uid':'1','username':'abc','email':'123@163.com'},{'uid':'2','username':'dbc','email':'456@163.com'}]"
Set json = toArray(json)
For i=0 To json.Count-1
Response.Write json(i)("uid") & " <br/>"
Response.Write json(i)("username") & " <br/>"
Response.Write json(i)("email") & " <br/>"
Next
Set json = Nothing
'''''下面这个测试了几次，不用数组还不行，asp操作这个的确没有 asp.net方便，时间不够，也不管什么性能，就这样放着吧，拼一个数据，然后取0算了。。
json ="["&"{'uid':'1','username':'abc','email':'123@163.com'}"&"]"
Set json = toArray(json)
Response.Write json(0)("uid") & " <br/>"
Response.Write json(0)("username") & " <br/>"
Response.Write json(0)("email") & " <br/>"
Set json = Nothing
%>