RSS Veri Okuma

<%
'|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'| XML Dosyasından Veri Okuma
'| Başka sitelerdeki RSS kaynaklarından veri çekmenizi sağlar
'| doronty37 | doronty37 @ d0gma.org
'| http://www.mydesign.gen.tr
'| MegaTokyo RSS kodlarından yararlanılarak düzenlenmiştir
'|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html Public "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>mydesign.gen.tr | Son Eklenen Kodlar</title>
</head>
<body>
<%
'// Değişkenler tanımlanıyor
Dim rssOku
Dim ObjeListesi
Dim Obje
Dim I

Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
rssOku.async = False

rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load("http://www.mydesign.gen.tr/rss.asp")

'// Eğer kendi sitenizden alıyorsanız aşağıdaki yolu kullanabilirsiniz
'// rssOku.Load(Server.MapPath("rss.asp"))

'// Hata oluşursa Ekrana Hata Açıklaması Yazdırılıyor
If rssOku.parseError.errorCode <> 0 Then
Response.Write "Hata: " & rssOku.parseError.reason &" " '// Hata Sebebi
Response.Write "Satır: " & rssOku.parseError.line &" " '// Hatanın Bulunduğu Satır
Response.Write "Açıklama: " & rssOku.parseError.srcText '// Hata Açıklaması
End If

Set ObjeListesi = rssOku.getElementsByTagName("item")
Set rssOku = Nothing

For Each Obje In ObjeListesi
Response.Write "" & vbCrLf
Response.Write "<a href=""" & Obje.childNodes(1).Text & """>" '// Link Veriliyor
Response.Write "" & Obje.childNodes(0).Text & "</a> " '// Başlık Yazılıyor
Response.Write Replace(Obje.childNodes(2).Text, " ", " ") '// Açıklama Yazdırılıyor
Response.Write "" & vbCrLf
Next

Set ObjeListesi = Nothing
%>
</body>
</html>

Ders Sahibi;
Bilgisayar Dershanesi

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

rss veri okuma

KATEGORİLER

RSS Veri Okuma

RSS Veri Okuma

Yorumlar

ETİKETLER