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

본문 바로가기
 
 
 
오늘 753
어제 1,059
최대 2,526
전체 3,575,040

최근 방문자

1777
1770
1670
997
1059
753
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,712회 댓글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,096건 1 페이지
온라인강의 목록
번호 제목
2096
2095
2094
2093
2092
2091
2090
2089
2088
2087
2086
2085
2084
2083
2082
2081
2080
2079
2078
2077
2076
2075
2074
Editor [CKEeditor] Emojione 추가하기 (write.2017-09-18) Hit.353
2073
2072
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호:119-05-36414 (08394) 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
전화: 070-7600-3500 팩스:02-865-3528 개인정보관리:정창용 mail@happyjung.com 에스크로확인
개인정보취급방침
COPYRIGHT 2001~2017 해피정닷컴. All rights reserved. 통신판매신고:2014-서울구로-0074
 
모바일 버전으로 보기