๑۩۞۩๑ 미련한 未練, 執着으로부터의 自由 RSS FEED

기본 베이스는 다른 블로그에서 퍼왔는데, 작동이 잘 되지 않거나, 불필요한 부분은 몽땅 날려버리고, 개인적으로 누락된 듯한 부분은 추가하고....  최초 저작자에게는 좀 미안한...
일부는 삭제하지 않고 콤마로 주석처리...

<?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 = "Good"

 'dc:language정보
 'Set language = xmlPars.CreateElement("dc:language")
 'Channel.AppendChild(language)
 'Channel.childnodes(3).text = "euc-kr"

 '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 = "이미지 세로 사이즈"

 
 ' 여기서 부터는 포스트에 대해서 출력
 ' 우선 데이터를 읽어오자
%>
-------------------------------------------------------------
<OBJECT RUNAT="Server" PROGID="PegasusBOARD.clsBoard" ID="objProc"></OBJECT> '서버 오브젝트 방식일 경우.
-------------------------------------------------------------
<%
 objconn = "DB커넥션;" 'DB커넥션 방식일경우
 SQL = "SQL쿼리문"
 set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open SQL,objconn,3

 ' 여기서 부터 루프를 돌리자.
 Do until rs.EOF
 strMsg = rs(7)

 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 = "타이틀 레코드값"
  item.childnodes(1).text = "링크+링크구분 레코드값"
  item.childnodes(2).text = "콘텐츠 레코드값"

 rs.movenext
 loop

Response.Write xmlPars.xml

rs.close
set rs = nothing
Set xmlPars = nothing
%>

ASP로 블로그를 만드는데 가장 핵심적인 부분이니, ASP 블로그도 한번 만들어 볼만 하겠네요.