公司的需要，在网上下了一个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
%>