公司的需要，在網(wǎng)上下了一個asp的源碼，需要修數(shù)據(jù)接口，接口返回的是 json 數(shù)據(jù)，很久沒有做了，所以在網(wǎng)上找了一份，但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


'''''下面這個測試了幾次，不用數(shù)組還不行，asp操作這個的確沒有 asp.net 方便，時間不夠，也不管什么性能，就這樣放著吧，拼一個數(shù)據(jù)，然后取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
%>