당신은 나를 오해할 권리가 있고 나는 해명할 의무가 없다.

   var xmldoc = new ActiveXObject("Microsoft.XMLDOM");

   Set xmldoc = CreateObject("Microsoft.XMLDOM")

<Script Language="Javascript">

function PostOrder(xmldoc)

{    

var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");

xmlhttp.Open("POST", "http://myserver/orders/processorder.asp", false);

xmlhttp.Send(xmldoc);

return xmlhttp.responseXML;

}

</Script>

<%@ Language=javascript %>

<% 

   Response.Expires = -1000;

   // Load the posted XML document.

   var doc = Server.CreateObject("MSXML2.DOMDocument");

   doc.load(Request);

   var result = Server.CreateObject("MSXML2.DOMDocument");

   // Now process the order and build the result document.

   Response.ContentType = "text/xml";

   result.save(Response);

%>

<%

UserID = "thermidor"

Password = "1234"

Name = Escape("이민해") ' VBScript에서 Javascript처럼 쓸 수 있는 함수 : alert, Escape, Unescape

Phone = "016-268-2382"

strXML = "<?xml version=""1.0"" encoding=""euc-kr""?>" & vbcrlf

strXML = strXML & "<AUTH>" & vbcrlf

strXML = strXML & " <USERINFO>" & vbcrlf

strXML = strXML & " <USERID>" & UserID & "</USERID>" & vbcrlf

strXML = strXML & " <PASSWORD>" & Password & "</PASSWORD>" & vbcrlf

strXML = strXML & " <USERNAME>" & Name & "</USERNAME>" & vbcrlf

strXML = strXML & " <PHONE>" & Phone & "</PHONE>" & vbcrlf

strXML = strXML & " </USERINFO>" & vbcrlf

strXML = strXML & "</AUTH>" & vbcrlf

Set objXMLHttp = Server.CreateObject("MSXML2.XMLHTTP")

' Send로 Body 내용을 보낼 경우에는 POST 메서드를 사용하여야 한다.

' Body 내용없이 그냥 호출하는 경우에는 GET을 사용하여도 무방하다.

objXMLHttp.open "POST", "http://localhost/xml/demo2.asp", False

objXMLHttp.Send strXML

' 호출한 ASP의 결과가 일반 HTML이거나 텍스트일 경우에는 다음과 같이 쓴다.

Response.Write Unescape(objXMLHttp.responseText)

Response.End

' 호출한 ASP의 결과가 XML로 출력되는 경우에만 아래의 문장들을 사용할 수 있다.

Set objXMLDOM = objXMLHttp.responseXML

Response.ContentType = "text/xml"

Response.Write objXMLDOM.xml

Response.End

Set objXMLDOM = Nothing

Set objXMLHttp = Nothing

%>

<%

Set objXMLDOM = Server.CreateObject("MSXML2.DomDocument")

objXMLDOM.async = False ' XML을 불러들일때 대기하지 않고 실시간으로 바로 불러들인다.

objXMLDOM.resolveExternals = True ' 유효성 검증시 외부 DTD, xsl등의 모든 조건을 포함한다.

objXMLDOM.validateOnParse = True ' 파싱할 때 XML의 유효성을 검증한다.

objXMLDOM.load(Request) ' 여기서 Request를 다른 변수로 받아서 처리하려고 하면 에러가 발생한다.

Set objRoot = objXMLDOM.documentElement

Response.Write objRoot.nodeName & "<br>"

For i = 0 To objRoot.ChildNodes.length - 1

If objRoot.ChildNodes(i).nodeName = "USERINFO" Then

For Each objChildNode In objRoot.ChildNodes(i).ChildNodes

Response.Write "USERINFO : "

Response.Write objChildNode.nodeName & " = " & objChildNode.nodeTypedValue & "<br>"

If objChildNode.nodeName = "USERNAME" Then

objChildNode.nodeTypedValue = Unescape(objChildNode.nodeTypedValue)

End If

Next

End If

Next

objXMLDOM.save ("D:\Projects\XML\test.xml")

Response.End

Set objXMLDOM = Nothing

%>