VBScript把json字符串解析成json对象的2个方法

asp/vbscript将json字符解析为json对象的方法，如果asp使用jscript来编写服务器端代码操作json字符串就简单了，vbscript需要msscriptcontrol.scriptcontrol或者服务器端的jscript来作为中间体才行。

vbscript将json字符解析为json对象的方法一

使用msscriptcontrol.scriptcontrol组件，请用ie浏览器运行本示例，会有安全提示，需要点击“是”允许创建。

msscriptcontrol.scriptcontrol组件的用法实例

msscriptcontrol.scriptcontrol组件属性、方法、事件介绍

<script language="vbscript">
dim sc4json
sub initscriptcontrol
  set sc4json = createobject("msscriptcontrol.scriptcontrol")
  sc4json.language = "javascript"
  sc4json.addcode "var itemtemp=null;function getjsarray(arr, index){itemtemp=arr[index];}"
end sub
 
function getjsonobject(strjson)
  sc4json.addcode "var jsonobject = " & strjson
  set getjsonobject = sc4json.codeobject.jsonobject
end function
 
sub getjsarrayitem(objdest,objjsarray,index)
  on error resume next
  sc4json.run "getjsarray",objjsarray, index
  set objdest = sc4json.codeobject.itemtemp
  if err.number=0 then exit sub
  objdest = sc4json.codeobject.itemtemp
end sub
 
dim strtest
strtest = "{name:""alonely"", age:24,hello:function(){return '你好！';}, email:[""[e-mail]"",""[e-mail]""], family:{parents:[""父亲"",""母亲""],tostring:function(){return ""家庭成员"";}}}"
dim objtest
call initscriptcontrol'初始化msscriptcontrol.scriptcontrol组件
set objtest = getjsonobject(strtest)'创建json对象
'对象属性操作
msgbox objtest.name&"-"&objtest.age
'数组操作
getjsarrayitem email,objtest.email,0
msgbox email
'执行方法
msgbox objtest.hello()
msgbox objtest.family.tostring()
</script>

vbscript将json字符解析为json对象的方法二

用jscript作为中间体

<script language="javascript">//运行在服务器端时，增加runat="server"属性
array.prototype.get = function(x) { return this[x]; }; 
function parsejson(strjson) { return eval("(" + strjson + ")"); } 
</script> 
<script language="vbscript">
dim json, obj 
json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}" 
set obj = parsejson(json) 
</script>

这篇文章就介绍到这了，需要的朋友可以参考一下。