제목

블로그 XML RSS 구현 (WINDOWS+IIS+ASP환경)

작성자

송준우 ( http://iendev.com http://blog.nbloger.com/iendev )

업데이트

라이센스

출처만 밝혀주신다면 어디든지 가져가실수 있습니다.

단, 본 문서를 임의로 수정하여 배포하지는 말아주십시오.

<?xml version="1.0" encoding="EUC-KR" ?>

<%
Response.ContentType = "text/xml"
Set xmlPars = Server.CreateObject("Msxml2.DOMDocument")

' 여기서 부터 rss 정보를 담는다.
Set rss = xmlPars.CreateElement("rss")
rss.setAttribute "version", "2.0"
rss.setAttribute "xmlns:dc", "http://purl.org/dc/elements/1.1/"
rss.setAttribute "xmlns:sy", "http://purl.org/rss/1.0/modules/syndication/"
rss.setAttribute "xmlns:admin", "http://webns.net/mvcb/"
rss.setAttribute "xmlns:rdf", "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlPars.AppendChild(rss)

'<channel> 시작

Set Channel = xmlPars.CreateElement("channel")
rss.AppendChild(Channel)

 '<title>정보
 Set title = xmlPars.CreateElement("title")
 Channel.AppendChild(title)
 Channel.childnodes(0).text = "블로그 제목"
 
 '<link>정보
 Set channel_link = xmlPars.CreateElement("link")
 Channel.AppendChild(channel_link)
 Channel.childnodes(1).text = "블로그 주소"

 '<description>정보
 Set description = xmlPars.CreateElement("description")
 Channel.AppendChild(description)
 Channel.childnodes(2).text = "블로그 설명"

 '<dc:language>정보
 Set language = xmlPars.CreateElement("dc:language")
 Channel.AppendChild(language)
 Channel.childnodes(3).text = "ko"

 '<image>정보
 Set image = xmlPars.CreateElement("image")
 Channel.AppendChild(image)

 '이미지 정보에 들어갈 것들
 set i_title = xmlPars.CreateElement("title")
 set i_url = xmlPars.CreateElement("url")
 set i_width = xmlPars.CreateElement("width")
 set i_height = xmlPars.CreateElement("height")

 image.AppendChild(i_title)
 image.AppendChild(i_url)
 image.AppendChild(i_width)
 image.AppendChild(i_height)

 image.childnodes(0).text = "이미지 제목"
 image.childnodes(1).text = "이미지 경로"
 image.childnodes(2).text = "이미지 가로 사이즈"
 image.childnodes(3).text = "이미지 세로 사이즈"

 ' 여기서 부터는 포스트에 대해서 출력

 ' 우선 데이터를 읽어오자
 SQL = "해당되는 포스트에 대한 쿼리문"
 set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open SQL,접근문자열,adOpenForwardOnly,adLockPessimistic,adCmdText

 ' 여기서 부터 루프를 돌리자.
 Do until rs.EOF

 '<item> 이라는 노드를 추가
 Set item = xmlPars.CreateElement("item")
 Channel.AppendChild(item)
 
  ' 여기서부터 해당 포스트의 세부 정보를 출력
  set title = xmlPars.CreateElement("title") '
  set link = xmlPars.CreateElement("link")
  set description =  xmlPars.CreateElement("description")
  set dcdate =  xmlPars.CreateElement("dc:date")
  set dcsubject =  xmlPars.CreateElement("dc:subject")

  item.AppendChild(title)
  item.AppendChild(link)
  item.AppendChild(description)
  item.AppendChild(dcdate)
  item.AppendChild(dcsubject)

  item.childnodes(0).text = rs("제목필드")
  item.childnodes(1).text = rs("포스트 고유 url 필드")
  item.childnodes(2).text = rs("내용 필드")
  item.childnodes(3).text = rs("날짜 필드")
  item.childnodes(4).text = rs("포스트의 분류 필드")

 rs.movenext
 loop

' 마지막으로 최종적으로 뿌려주자.
Response.Write xmlPars.xml

'마무리 ^^;

rs.close

set rs = nothing

Set xmlPars = nothing

%>