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

본문 바로가기
 
 
 
오늘 872
어제 1,706
최대 2,526
전체 3,395,391

최근 방문자

1011
1853
1775
1756
1706
872
18 19 20 21 22 23
비즈니스의 시작 비즈명함 ~ 가격, 품질, 배송 3가지 만족을 드리는 비즈명함 / 즉석명함 / 급행서비스 / 서울 전지역 수도권일부 3시간배송

select * from g5_menu where me_use = '1' and me_link like '%lecture%'
온라인강좌 홈 > 온라인강좌 > 온라인강좌

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

페이지 정보

작성일2013-04-26 09:01 조회5,559회 댓글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 2,005건 1 페이지
온라인강의 목록
번호 제목
2005
2004
2003
2002
2001
2000
1999
1998
1997
1996
1995
1994
1993
1992
1991
1990
1989
1988
1987
1986
1985
1984
1983
1982
1981
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호: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
 
모바일 버전으로 보기