MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > Asp > Kodlar

RSS Veri Okuma

Sitelerin RSS kaynaklarından veri çekmenizi sağlayan kod

Kategori : Asp
Gönderen : mYavuz
Telif :
Tarih : 11 Haziran 2005
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 17822
Puan
: 9,5 / 10 (2 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
<%
'|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'| 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 "<b>Hata:</b> " & rssOku.parseError.reason &"<br>"     '// Hata Sebebi
     Response.Write "<b>Satır:</b> " & rssOku.parseError.line &"<br>"     '// Hatanın Bulunduğu Satır     
     Response.Write "<b>Açıklama:</b> " & rssOku.parseError.srcText          '// Hata Açıklaması
End If

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

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

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

RSS Veri Okuma için yazılan yorumlar

yavuz mercan  { 01 Temmuz 2011 }
çok güzel çalışıyor bütün kayıtları tek seferde çekiyor

sadece en son kayıtı çekmek istediğimizde nasıl birşey yapabiliriz

teşekkürler

mahmu  { 18 Haziran 2011 }
en fazla 10 veri çekmek istiyorum onu nasıl yapacaz ?

Harun   { 19 Eylül 2007 }
Yazı güzel ancak bir sorum olacak.Peki şöyle olursa nasıl yapıcaz?

<media:content medium="image" url="http://s231.photobucket.com/albums/1.jpg">
<media:title>dfgdfgdf</media:title>
<media:thumbnail url="http://i231.photobucket.com/albums/th_1.jpg" />


Yani arada : ile ayrı veri varsa?

Yardımcı olursan çok sevinirim

Yorum ekleyin

Anasayfa > Asp > Kodlar > RSS Veri Okuma
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.158.194.80 | 0,12 Saniye
© Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.