<%
On error resume next
Function GetBody(url,postdata)
set https=server.createobject("microsoft.XMLHTTP")
If Err Then
Err.Clear
set https=server.createobject("MSXML2.XMLHTTP")
end if
With https 
.Open "Post", url, False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send postdata
GetBody = .ResponseBody
End With 
GetBody = BytesToBstr(GetBody,"utf-8")
Set https = Nothing 
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
End Function
Public Function Getjson(json,value1)
		json = Split(json, """"&value1&""":""")(1)
		Getjson = Split(json, """")(0)
End Function
Public Function Getjson2(json,value1)
		json = Split(json, """"&value1&""": """)(1)
		Getjson = Split(json, """")(0)
End Function
%>