JSON parsing by ASP

<% Dim sc4json sub initscriptcontrol set sc4json = server. 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 = "{name:" "alonely" ", age: 24, email: [" "ycplxl1314@163.com" "," "ycplxl1314@gmail.com" "], family: {parents: ["" Father "", "" Mother ""], tostring: function () {return "" family member "";}}} "dim objtest call initscriptcontrol set objtest = getjsonobject (strtest) %> <% = objtest. the email address of name %> is <% = sc4json. eval ("jsonobject. email [0] ") %> <br> total email addresses <% = objtest. email. length %> <br> <% dim father getjsarrayitem father, objtest. family. parents, 0 response. write Father %>