five minutes of funk, ljk.kr :: ASP 로 RSS 읽어오기.

예전 포스팅중에
ASP 로 RSS 만들기. : http://web20korea.com/22 가 있었는데 이번에는 반대인
읽어오기를 포스팅합니다.

혼자 끙끙대던차에
http://choong.tistory.com/6 포스팅을 참고해서 운좋게 ㅋㅋ 성공했습니다.

RSS가 뭐냐고 물으시는분은..;;
요기의 WIKI 링크를 참고하시면 ㅠㅠ http://startasp.net/html/rss.asp 감사 +_+

요점은뭐 RSS에서 오는 정보를 배열로 나누어서 알아서 가공..!!
이라는 간단한 원리지만, 그래도 많이 버벅되고그랬던(저만??ㅠㅠ) 부분을
위에 참고포스팅에서 사용한 변수명을 그대로 ( 제가 짠 소스가 아닙니다, 제가짠거랑 비슷하지만 깔끔하게 되어있고 또 사용시에 전혀 이상이 없었기때문에 소스의 내용을 그대로 공개합니다 원 소스의 제작은 choong 님의 것입니다. )

우선 받아들일 RSS주소로 요청을 합니다.

Dim xmlHttp
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", RSS주소(받아들일), false
xmlHttp.Send()

받아서 저장 ( 이게 요즘은 익숙하져? ㅋㅋ )

Dim RSSXML
RSSXML = xmlHttp.ResponseText

분할을 위해 DOM객채로 저장합니다 ( 안그래도 상관없는데... 이게더 좋은거 같습니다 )

Dim xmlDOM
Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)

요건 센스 ㅋㅋ

Set xmlHttp = Nothing

DOM으로 저장한 객체중 item 노드로 뽑아내고 생성했던 객체는 소멸합니다.

Dim RSSItems
Set RSSItems = xmlDOM.getElementsByTagName("item")
Set xmlDOM = Nothing

이 이후에 이제 배열의 갯수 - 1개로 돌려서

'items(i,0) : title
'items(i,1) : link
'items(i,2) : description
'items(i,3) : category
'items(i,4) : author
'items(i,5) : guid
'items(i,6) : comments
'items(i,7) : pubdate

등등으로 뽑아 쓰시면 되겠습니다 ㅋㅋㅋ

위의 소스를 참고해서 만들어본것이 뭐 말이 메타블로그지만
간단하게 한번 만들어봤습니다 ㅋㅋㅋ

http://startasp.net/metablog

RSS를 읽어올 수 있음으로써 활용범위는 뭐 무한대라고 볼 수 있지 않을까요?

ㅋㅋ 저도 제 홈페이지에 날씨제공하는거 한번 받아서 붙여봤는데...

앞으로 많은 이용을 할꺼 같습니다 ( 너무 늦었나요 ㅠ? ㅋㅋ )

모두 즐프하세요~

크리에이티브 커먼즈 라이센스