[ClassicASP] *.xml 파일 만들기 > 기술자료

• 목록

xml 형식으로 html 문서만들기는 https://www.happyjung.com/bbs/board.php?bo_table=lecture&wr_id=1427 를 보세요


<%
'======================== XML 만들기 시작 =======================
'xml용 datetime 정의
tmp = Split(Date(),"-")
tmpdate = tmp(0)&tmp(1)&tmp(2)
tmp = Split(FormatDateTime(Time(),4),":")
tmptime = tmp(0)&tmp(1)
tmp = Split(Time(),":")
tmptime = tmptime & tmp(2)
datetime = tmpdate&tmptime

Dim sqlselre
sqlselre = "SELECT (ISNULL(MAX(BD_SEQ),0) ) FROM '"& NewGetTable &"'"

Set rs = con.Execute(sqlselre)
Dim l_idx
If Trim(Getseq)="" then
  l_idx = rs(0)
Else
  l_idx = Getseq
End If

'Dom 생성
Dim objDom,xmlAtr,xmlDoc,xmlNode,xmlChild,xmlNode2,xmlChild2,xmlChild3
Set objDom = Server.CreateObject("Microsoft.XMLDOM")

objDom.preserveWhiteSpace = true
objDom.async = false

'xml_type = "<?xml version=""1.0"" endcoding=""utf-8""?><!DOCTYPE NEWS PUBLIC ""-//view.daum.net//DTD NewsML 1.1//EN"" ""http://api.v.daum.net/static/dtd/newsml-1.1.dtd"">"
objDoc.load("note.xml")    ' <== 요것이 정상작동 안되요 .. ㅠㅠ
'Set  xmlDoc = objDom.CreateDocumentType("xml_type")

'xml 루트 엘리먼트 생성
Set  xmlDoc = objDom.CreateElement("NEWS")

'속성 Text 삽입
Set xmlAtr = objDom.CreateAttribute("ver")
  xmlAtr.Text = "1.1"
  xmlDoc.setAttributeNode xmlAtr

Set xmlAtr = objDom.CreateAttribute("act")
  xmlAtr.Text = "C"
  xmlDoc.setAttributeNode xmlAtr

Set xmlAtr = objDom.CreateAttribute("orgid")
  xmlAtr.Text = "3414"
  'xmlAtr.Text = GetSeq
  xmlDoc.setAttributeNode xmlAtr

'xml 루트 엘리먼트의 자식 생성
Set xmlChild = objDom.CreateElement("DATETIME")  
  xmlChild.Text = datetime
  xmlDoc.appendchild xmlChild

Set xmlNode = objDom.CreateElement("WRITER_LIST")
  xmlDoc.appendchild xmlNode

Set xmlNode2 = objDom.CreateElement("WRITER")
  xmlNode.appendchild xmlNode2

Set xmlChild2 = objDom.CreateElement("NAME")
  xmlChild2.Text = "이름"
  'xmlChild2.Text = GetBD_NAME
  xmlNode2.appendchild xmlChild2

Set xmlChild3 = objDom.CreateElement("EMAIL")
  xmlChild3.Text = "mail@mail.co.kr"
  'xmlChild3.Text = GetBD_EMAIL
  xmlNode2.appendchild xmlChild3

Set xmlNode = objDom.CreateElement("CATEGORY_LIST")
  xmlDoc.appendchild xmlNode

Set xmlChild = objDom.CreateElement("CODE")
  xmlChild.Text = "book"
  xmlNode.appendchild xmlChild

'Set xmlNode = ""

Set xmlChild = objDom.CreateElement("TITLE")
  xmlChild.Text = "제목"
  'xmlChild.Text = GetBD_SUBJECT
  xmlDoc.appendchild xmlChild

Set xmlChild = objDom.CreateElement("TEXT")
  xmlChild.Text = "내용"
  'xmlChild.Text = GetBD_CONTENT
  xmlDoc.appendchild xmlChild

Set xmlChild = objDom.CreateElement("OUTLINK")  
  xmlChild.Text = "https://www.happyjung.com/xml/xml_view.asp?seq="&l_idx
  xmlDoc.appendchild xmlChild

'루트 엘리먼트 만드는 문구
objDom.appendchild xmlDoc

'xml 저장
objDom.save(Server.MapPath("/xml/"&NewGetTable&"_"&l_idx&".xml"))

Set objDom = Nothing ' Dom객체 해제
'============================ XML만들기 끝 ============================
%>


생성된 파일내용
<?xml version="1.0" encoding="utf-8"?><NEWS ver="1.1" act="C" orgid=""><DATETIME>20130429185100</DATETIME><WRITER_LIST><WRITER><NAME><![CDATA[이름]]></NAME><EMAIL>mail@mail.co.kr</EMAIL></WRITER></WRITER_LIST><CATEGORY_LIST><CODE>book</CODE></CATEGORY_LIST><TITLE><![CDATA[제목]]></TITLE><TEXT><![CDATA[내용]]></TEXT><EXT>
<OUTLINK><![CDATA[https://www.happyjung.com/xml/xml_view.asp?seq=3414]]></OUTLINK></NEWS>




참고자료
http://msdn.microsoft.com/ko-kr/library/bb399454.aspx
http://horangi.tistory.com/193
http://daumview.tistory.com/110