<% function my_json_decode(str) Dim myJSON set myJSON = JSON.parse(str) set dict = Server.CreateObject("Scripting.Dictionary") dim vbstr vbstr = getVBSON("dict",myJSON) execute vbstr set my_json_decode = dict end function function my_json_encode(byref dict) my_json_encode = toJSON(dict) end function %>