웹프로그래머

On Error Resume Next

   '지역 변수 선언
   Dim objDOM
   Dim objRoot
   Dim objRecord
   Dim objField
   Dim objFieldValue
   Dim objattID
   Dim objattTabOrder
   Dim objPI
   Dim blnFileExists
   Dim x

   'XMLDOM 인스턴스 생성
   Set objDOM = server.CreateObject("Msxml2.DOMDocument.4.0")
   objDOM.preserveWhiteSpace = True

   'XMLDOM 개체의 Load 메서드 호출
   'Load 메서드는 파일이 로드됐는지 아닌지를 알려주는 불린 값 반환
   '만일 파일이 존재하여 도링했으면 true,그렇지 않으면 false 반환
   blnFileExists = objDOM.Load(strXMLFilePath & "\" & strFileName)

   '파일이 성공적으로 로딩됐는지 체크
   if blnFileExists = True Then
      '로딩된 파일의 최상위 요소를 objRoot 개체에 셋팅
      Set objRoot = objDOM.documentElement
   Else
      '최상위 요소를 만든 후 XML문서에 추가
      Set objRoot = objDOM.createElement("rolodex")
      objDOM.appendChild objRoot
   End if

   '새로운 레코드를 위한 새로운 컨테이너 요소 생성
   Set objRecord = objDOM.createElement("contact")
   objRoot.appendChild objRecord

   'Request 개체에 폼 컬렉션 반복
   For x = 1 To Request.Form.Count
      '폼요소중 btn이란 이름의 요소가 있으면 XML문서에 추가되지 않도록
      If instr(1,Request.Form.Key(x),"btn")=0 Then
         '"field" 요소 생성
         Set objField = objDOM.createElement("field")
         '"id" 속성 생성
         Set objattID = objDOM.createAttribute("id")
         '현재 폼 필드 이름과 id속성을 같도록 함
         objattID.Text = Request.Form.Key(x)
         'setAttribute 메서드는 field 요소에 id 속성을 추가시킴
         objField.setAttributeNode objattID
         '또 다른 속성 "taborder" 생성. 요소들의 순서와 관련
         Set objattTabOrder = objDOM.createAttribute("taborder")
         'taborder 속성의 값 설정
         objattTabOrder.Text = x
         'field 요소에 taborder 속성 추가
         objField.setAttributeNode objattTabOrder
         '새로운 요소 "field_value" 생성
         Set objFieldValue = objDOM.createElement("field_value")
         'field_value 요소의 값에 현재 폼 컬렉션의 필드의 값 설정
         objFieldValue.Text = Request.Form(x)
         'field 요소를 새로운 레코드 컨테이너 contact 의 자식으로 추가
         objRecord.appendChild objField
         'field_value 요소를 field 요소의 자식으로 추가
         objField.appendChild objFieldValue
      End If
   Next

   '파일을 로딩하는데 실패했다면 XML 새로운 문서를 만들고
   'XML processing instruction을 삽입해야 함
   if blnFileExists = False then
      'xml processing instruction 생성
      Set objPI = objDOM.createProcessingInstruction("xml","version='1.0'")
      'XML문서에 processing instruction 추가
      objDOM.insertBefore objPI, objDOM.childNodes(0)
   End if

   'XML문서 저장
   objDOM.save strXMLFilePath & "\" & strFileName

   '모든 객체 참조 반환
   Set objDOM = nothing
   Set objRoot = nothing
   Set objRecord = nothing
   Set objField = nothing
   Set objFieldValue = nothing
   Set objattID = nothing
   Set objattTabOrder = nothing
   Set objPI = nothing

End Function

'에러 발생시 계속 진행
On Error Resume Next

'addNewContacttoXML 함수 호출
addNewContacttoXML "XML문서를 만들 곳의 경로","xml파일 이름"

'에러 발생시 사용자에게 알려 주고, 그렇지 않으면 성공했음을 알려줌
If err.number <> 0 then
   Response.write("처리 도중 에러 발생!")
Else
%>

<SCRIPT LANGUAGE="JavaScript">
<!--
   alert("성공적으로 처리 됐습니다");
   location.href="asp파일 경로";
 //-->
</SCRIPT>

<%End if%>