<%
set xml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
xml.open "GET", url, false
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send
res1 = xml.status
res = xml.responsetext
'한글 깨짐 방지
Set responseStrm = CreateObject("ADODB.Stream")
responseStrm.Open
responseStrm.Position = 0
responseStrm.Type = 1
responseStrm.Write xml.responseBody
responseStrm.Position = 0
responseStrm.Type = 2
responseStrm.Charset = "utf-8"
resultStr = responseStrm.ReadText
Response.Write resultStr '불러온 내용을 뿌려주는 부분,뿌리기전에 값을 replace등오로 가공하여 필요한 부분만 취하면 됩니다.
responseStrm.close
Set responseStrm = Nothing
'한글 깨짐 방지
Set xml = Nothing
%>