asp xml 파싱 (한글도 잘 되는 소스)

<%@Language="VBScript" CODEPAGE="65001" %>
<%
    Response.CharSet="utf-8"
    Session.codepage="65001"
    Response.codepage="65001"
    Response.ContentType="text/html;charset=utf-8"
%>
<%
	Set objXmlHttp = server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
	objXmlHttp.open "POST", "웹페이지주소?param1=111&param2=222", false
	
	objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	objXmlHttp.send
	strResponseText = objXmlHttp.responseText
	Set objXmlHttp = Nothing
	
	Set objMsXmlDom = Server.CreateObject("microsoft.XMLDOM")
	objMsXmlDom.async = false
	objMsXmlDom.loadXML(strResponseText)
	
	'추출 (getElementsByTagName("xml엘리먼트명"))
	referResult1 = "" & Trim( objMsXmlDom.getElementsByTagName("STATUS_CODE").Item(0).Text)
	referResult2 = "" & Trim( objMsXmlDom.getElementsByTagName("GOODS_NAME").Item(0).Text)
	
	Set objMsXmlDom = Nothing

                response.write (referResult1)
               response.write (referResult2)
%>

오늘 업무처리에 사용한

xmlhttprequest를 이용한 asp + xml 파싱 소스입니다.

정상 작동합니다.