XML받기

Set Xmldoc = CreateObject("Msxml2.DOMDocument")          

Xmldoc.async = False

Xmldoc.load("XmlDataService.aspx?ACTFLG=INI")   'Xml을 던저주는 웹서비스이다.

'XML STREAM LOAD시점에 에러 VALIDATION LOGIC

if NOT (Xmldoc.readyState = 4 and not (Xmldoc.parseError)) then

    MSGBOX "ERROR OCCURED WHEN ACCESSING DATASERVICE ASPX WEB COMPONENT"

end if

Set ElemList = Xmldoc.getElementsByTagName("ResultSet")

For i=0 To (ElemList.length -1)

    Set Element = ElemList.item(i)

    For j = 0 to Element.childNodes.length -1

            'Add Entry Function Here

    Next

Next

넘겨주기

strTemp ="<?xml version='1.0' encoding='euc-kr'?>"
strTemp = strTemp & "<POSTROOT>"
   '여기다가 XML을 만들어주고...
strTemp = strTemp & "</POSTROOT>"

Set xmlhttp = createobject("Microsoft.XMLHTTP")
xmlhttp.Open "POST", "XmlDataService.aspx?ACTFLG=SAV", false '<--이넘은 XML받는넘..
xmlhttp.Send strTemp

'HTTP POST에 대한 ERROR VARIDATION LOGIC 전개
if xmlhttp.status = 500 then
    'Internal Server Error 발생시 즉 POST된 XML데이터가 잘못되었을경우 발생한다.

    msgbox xmlhttp.statusText

end if

넘어온XML서버에서 받기(.cs)

DataSet ds = new DataSet();

ds.ReadXml(Request.InputStream,XmlReadMode.Auto);

*****************************************************************************

검색을 해서 찾았는데, 어디서 가지고 온지 모르겠다.
출처를 알게되면, 출처를 남기겠습니다.