Hakan ŞEN Kişisel Günce - Etiket : rss / http://www.hakansen.com

XMLDOM ile RSS verilerini almak (Örnek: Haber7.com verilerini almak)

24 Ekim 2007

xmlHTTP ile ilgili uzun süredir yazılar yazmaktayım ve bu konularla ilgili bir çok mail aldım, sanırım yazılar bazı arkadaşlarımız için iyi oluyor

Neyse şimdi de XMLDOM ile RSS dosyalarını nasıl kendi web sitemize alıp kullanacağımızı gösteren bir kod yığını yayınlayacağım inşAllah işinize yarar.

Bu örnekte haber7.com adresindeki haberleri nasıl alacağımızı anlatarak size sistemin nasıl oluşturulması gerektiğini anlatacağım.

Kod:


rssfile = "http://sondakika.haber7.com/sondakika.rss"

ile hangi adresten rss dosyasını çekeceğimizi bir belirleyelim.
Kod:


Dim objXML, objRoot, objItems



Set objXML = Server.CreateObject("Microsoft.XMLDOM")

objXML.Async = False

objXML.SetProperty "ServerHTTPRequest", True

objXML.ResolveExternals = True

objXML.ValiDateOnParse = True

objXML.Load(rssFile)

ile bağlantımızı oluşturalım.
Kod:


Set objItems = objRoot.getElementsByTagName("item")

If IsObject(objItems) = True Then

Dim objItem

For Each objItem In objItems

Döngümüzü oluşturalım ki <item> dizisinde bulunan veri başlıklarını sırayla alıp yayınlayalım,
Kod:


strTitle = objItem.SelectSingleNode("title").Text

strDesc = objItem.SelectSingleNode("description").Text

strLink = objItem.SelectSingleNode("link").Text

strDate = objItem.SelectSingleNode("pubDate").Text

ile de <item> içerisinde bulunan title, desc, link ve pubdate verilerini alalım.
Kod:


<a target="_blank" href="<%= strLink %>"><b><%= strTitle %></b></a> - <%=strDate%><br />

<%=strDesc%><br /><br />

ile verileri ekrana yazdırıyoruz.
Kod:


Next

Else

Response.Write  "<b>Bilgiler Getirilemiyor</b>"

End If

Döngüyü tekrar başa alalım hata varsa ekranda gösterelim.
Kod:


Set objRoot = Nothing

Set objItems = Nothing

End If

Set objXML = Nothing

ve başlayan kodumuzu bitirelim.

İşte bu kadar rss okuyucu dosyamız hazır. Scriptin tüm dosyalarını http://www.hakansen.com/kod/haber7rss.asp.txt adresinde de görebilirsiniz.

Devamı
Yorumlar (0)
Tarih : 24 Ekim 2007 Çarşamba Saat: 16:00:13
Kategoriler : Programlama
Etiketler : xmldom, xmlhttp, rss, okuma


eXTReMe Tracker