dim strJson,myJson
strJson="{ ""access_token"":""ACCESS_TOKEN"", ""expires_in"":7200, ""refresh_token"":""REFRESH_TOKEN"", ""openid"":""OPENID"", ""scope"":""SCOPE"" }"
set doc = CreateObject("htmlfile")
doc.write "<meta http-equiv='X-UA-Compatible' content='IE=edge' />"
set JSON = doc.frames.JSON
set obj = JSON.parse(strJson)
'myJson=JSON.stringify(obj)
Response.Write obj.access_token
i test in windows 7 ,and IE8,but have a little bug.