asp.net get获取参数 asp获取json参数

公司的需要，在网上下了一个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':'[e-mail]'},{'uid':'2','username':'dbc','email':'[e-mail]'}]" 
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':'[e-mail]'}"&"]" 
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 %>