立可尿,龙骨花,影音先锋怎么看黄
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:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""], 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>
这篇文章就介绍到这了，需要的朋友可以参考一下。
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复
网友评论