미유탱의 지구정착기

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
server.MapPath(abc.xml) 'XML 읽어오기

If blnFileExist = False Then 'XML 파일이 생성되지 않았다면 XML을 생성함
   objXML.appendChild(objXML.createProcessingInstruction("xml","version=""1.0"""))
   objXML.appendChild(objXML.createElement("abc"))
   intID = 1
Else
    intID = objXML.documentElement.childNodes( _
    objXML.documentElement.childNodes.length - 1).childNodes(0).text + 1
End If

Set objXMLv = objXML.createElement("def") '노드 추가 부분
  objXMLv.appendChild(objXML.createElement("ID"))
 objXMLv.appendChild(objXML.createElement("strKorName"))
 objXMLv.appendChild(objXML.createElement("strEngName"))

 objXMLv.childNodes(0).text = intID '값 추가
  objXMLv.childNodes(1).text = Request.Form("txtKorName")
 objXMLv.childNodes(2).text = Request.Form("txtEngName")
 objXML.documentElement.appendChild(objXMLv.cloneNode(True))
 objXML.save(server.MapPath("abc.xml"))

   Set objXMLv = Nothing
   Set objXML = Nothing[/HTML][/CODE]


XML 코드

   <?xml version="1.0" encoding="euc-kr" ?>
   <abc>
   <def>
   <ID>1</ID>
   <strKorName>이쁜이</strKorName>
   <strEngName>beautiful girl</strEngName>
   </def>
   <def>
   <ID>2</ID>
   <strKorName>못난이</strKorName>
   <strEngName>bad girl</strEngName>
   </def>
   </abc>