[ClassicASP] *.xml 파일 만들기 > 온라인강의

본문 바로가기
 
 
 
오늘 266
어제 1,826
최대 2,526
전체 3,251,637

최근 방문자

964
1723
2217
1939
1826
266
19 20 21 22 23 24
비즈니스의 시작 비즈명함 ~ 가격, 품질, 배송 3가지 만족을 드리는 비즈명함 / 즉석명함 / 급행서비스 / 서울 전지역 수도권일부 3시간배송

온라인강좌 홈 > 온라인강좌 > 온라인강좌

XML | [ClassicASP] *.xml 파일 만들기

페이지 정보

작성일2013-04-26 09:01 조회5,361회 댓글0건

본문

xml 형식으로 html 문서만들기는 http://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 = "http://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[http://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
  • 페이스북으로 보내기
  • 트위터로 보내기
  • 구글플러스로 보내기

댓글목록

등록된 댓글이 없습니다.


목록

Total 1,943건 1 페이지
온라인강의 목록
번호 제목
1943
1942
1941
1940
JSP utf-8 한글깨짐 (write.2017-03-20)  Hit.62
1939
1938
1937
1936
1935
그누보드 [G5] 게시물 순서 바꾸기 (write.2017-03-16)  Hit.109
1934
전자결제 [PayPal] PHP 결제연동 (write.2017-03-15)  Hit.109
1933
전자결제 [PayPal] ASP 결제 연동 (write.2017-03-15)  Hit.104
1932
1931
1930
JSP Service Temporary Unavailable! (write.2017-03-13)  Hit.123
1929
그누보드 [G5] [최신글] 한줄소식 (write.2016-02-19)인기글첨부파일  Hit.1641
1928
1927
1926
1925
1924
일반 FireFox 플러그인 (write.2015-02-28)인기글  Hit.2003
1923
1922
1921
1920
1919
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호:119-05-36414 (08394) 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
전화: 070-7600-3500 팩스:02-865-3528 개인정보관리:정창용 mail@happyjung.com 에스크로확인
개인정보취급방침
COPYRIGHT 2001~2017 해피정닷컴. All rights reserved. 부가통신사업신고:서울체신청-1217 통신판매신고:2014-서울구로-0074
 
모바일 버전으로 보기