Microsoft Script Control的简单使用

1.解析 JSON
下面的简单示例试图说明如何使用 ASP（vbscript版）解析JSON。

1. dim jsonText
   
2. 
   
3.     jsonText = _
   
4.     "{" & vbcrlf & _
   
5.     " ""num"" : 42," & vbcrlf & _
   
6.     " ""lst"" : [""foo"" , ""bar"", ""baz""]," & vbcrlf & _
   
7.     " ""obj"" : {""hello"": ""World""}" & vbcrlf & _
   
8.     "}"
   
9. 
   
10.     Response.Write("Json字符串：")
    
11.         Response.Write("<p>********************</p>")
    
12.         Response.Write(jsonText)
    
13. 
    
14. 
    
15. 
    
16.         Set scrContr = server.CreateObject("MSScriptControl.ScriptControl")
    
17.         scrContr.language = "JScript"
    
18.        
    
19.         set parsed = scrContr.eval("(" & jsonText & ")")
    
20.        
    
21.         Response.Write("<p>解析如下：</p>")
    
22.         Response.Write("num = " & parsed.num )        
    
23.         Response.Write("obj.hello = " & parsed.obj.hello)
    
24.        
    
25. 
    
26. 
    
27. 
    
28. 
    
29. %>

复制代码