RSS Sayfa Yapımı

CtrL · 06-12-2008

Çoğu sitelerde RSS sayfaları görmekteyiz. RSS, XML ismiyle de bilinmektedir. RSS genellikle haber ve download siteleri gibi sürekli güncellenen sitelerde kullanılmaktadır. RSS ile sitemizde ki içeriğin, ziyaretçilerimiz tarafından yardımcı bir program kullanılarak sitemize girmesine gerek kalmadan okuyabilmelerini sağlayabiliriz.

RSS sayfalarını okutmak için SharpReader adlı programı kullanabilirsiniz. Bununla birlikte, başka bir sitede yer alan RSS sayfasından ASP ile veri alıp sitemiz içerisinde yayınlayabiliriz.

Örnek bir sitede kullanılan RSS sayfasının kodları:

<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb")

Response.Buffer = True
Response.ContentType = "text/xml"

Function Temizle(strInput)
strInput = Replace(strInput,"&", "&")
strInput = Replace(strInput,"'", "'")
strInput = Replace(strInput,"""", """)
strInput = Replace(strInput,">", ">")
strInput = Replace(strInput,"<","<")
strInput = Replace(strInput,"İ","I")
strInput = Replace(strInput,"Ş","S")
strInput = Replace(strInput,"Ü","U")
strInput = Replace(strInput,"Ö","O")
strInput = Replace(strInput,"Ç","C")
strInput = Replace(strInput,"Ğ","G")
strInput = Replace(strInput,"ğ","g")
strInput = Replace(strInput,"ı","i")
strInput = Replace(strInput,"ş","s")
strInput = Replace(strInput,"ü","u")
strInput = Replace(strInput,"ö","o")
strInput = Replace(strInput,"ç","c")
Temizle = strInput
End Function
%>

<rss version="2.0">
<channel>
<title>SİTENİZİN ADI</title>
<LINK>http://www.sitenizinadresi.com</LINK>
<description>En Son Eklenen 20 İçerik</description>
<language>tr</language>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from tablo_adi order by tarih desc"
rs.Open SQL,baglanti,1,3

i = 0
Do While i =< 19 And Not rs.Eof
Response.Write "<item>"
Response.Write "<title>" & Temizle(rs("icerik_adi")) & "</title>"
Response.Write "<LINK>http://www.sitenizinadresi.com/icerik.asp?id="& Temizle(rs("id")) &"</LINK>"
Response.Write "<description>İcerik Aciklamasi : " & Temizle(rs("icerik_aciklamasi")) & "</description>"
Response.Write "</item>"

i = i + 1
rs.MoveNext
Loop

rs.Close
%></channel></rss>

Yukarıda görmüş olduğunuz kodda ki ilgili yerleri kendi sitenize göre düzenleyerek RSS sayfanızı oluşturabilirsiniz. RSS sayfası içerisinde, veritabanından gelen Türkçe harflerde yer alan noktaları replace yöntemi ile kaldırmaktayız.

RSS sayfasında, aşağıda yer alan hatayı alırsanız Türkçe karakterleri düzenleyerek bu hatayı giderebilirsiniz.
"An invalid character was found in text content. Error processing resource"

06-12-2008	#1 (permalink)
CtrL Sop (&) Giriş Tarihi: 08-08-2008 Mesajlar: 1,130 Ruh Hali: İtibar Gücü: 155 Rep Puanı : 3000 Rep Derecesi :	RSS Sayfa Yapımı Çoğu sitelerde RSS sayfaları görmekteyiz. RSS, XML ismiyle de bilinmektedir. RSS genellikle haber ve download siteleri gibi sürekli güncellenen sitelerde kullanılmaktadır. RSS ile sitemizde ki içeriğin, ziyaretçilerimiz tarafından yardımcı bir program kullanılarak sitemize girmesine gerek kalmadan okuyabilmelerini sağlayabiliriz. RSS sayfalarını okutmak için SharpReader adlı programı kullanabilirsiniz. Bununla birlikte, başka bir sitede yer alan RSS sayfasından ASP ile veri alıp sitemiz içerisinde yayınlayabiliriz. Örnek bir sitede kullanılan RSS sayfasının kodları: <% Set baglanti = Server.CreateObject("ADODB.Connection") baglanti.Open "DRIVER={Microsoft Access Driver (.mdb)}; DBQ=" & Server.MapPath("database/db.mdb") Response.Buffer = True Response.ContentType = "text/xml" Function Temizle(strInput) strInput = Replace(strInput,"&", "&") strInput = Replace(strInput,"'", "'") strInput = Replace(strInput,"""", """) strInput = Replace(strInput,">", ">") strInput = Replace(strInput,"<","<") strInput = Replace(strInput,"İ","I") strInput = Replace(strInput,"Ş","S") strInput = Replace(strInput,"Ü","U") strInput = Replace(strInput,"Ö","O") strInput = Replace(strInput,"Ç","C") strInput = Replace(strInput,"Ğ","G") strInput = Replace(strInput,"ğ","g") strInput = Replace(strInput,"ı","i") strInput = Replace(strInput,"ş","s") strInput = Replace(strInput,"ü","u") strInput = Replace(strInput,"ö","o") strInput = Replace(strInput,"ç","c") Temizle = strInput End Function %> <rss version="2.0"> <channel> <title>SİTENİZİN ADI</title> <LINK>http://www.sitenizinadresi.com</LINK> <description>En Son Eklenen 20 İçerik</description> <language>tr</language> <% Set rs = Server.CreateObject("ADODB.Recordset") SQL = "Select from tablo_adi order by tarih desc" rs.Open SQL,baglanti,1,3 i = 0 Do While i =< 19 And Not rs.Eof Response.Write "<item>" Response.Write "<title>" & Temizle(rs("icerik_adi")) & "</title>" Response.Write "<LINK>http://www.sitenizinadresi.com/icerik.asp?id="& Temizle(rs("id")) &"</LINK>" Response.Write "<description>İcerik Aciklamasi : " & Temizle(rs("icerik_aciklamasi")) & "</description>" Response.Write "</item>" i = i + 1 rs.MoveNext Loop rs.Close %></channel></rss> Yukarıda görmüş olduğunuz kodda ki ilgili yerleri kendi sitenize göre düzenleyerek RSS sayfanızı oluşturabilirsiniz. RSS sayfası içerisinde, veritabanından gelen Türkçe harflerde yer alan noktaları replace yöntemi ile kaldırmaktayız. RSS sayfasında, aşağıda yer alan hatayı alırsanız Türkçe karakterleri düzenleyerek bu hatayı giderebilirsiniz. "An invalid character was found in text content. Error processing resource" __________________ ...

Seçenekler
Yazdırılabilir şekli göster Bu sayfayı e-postayla gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
FarkLı Host Yapımı	buSra	Geri Dönüşüm Kutusu	3	13-12-2008 20:55
Spiegel'den Türkiye'ye 130 sayfa	IRCForumda	Genel ve Güncel Konular, Son Haberler	0	03-10-2008 01:45
ASP Sayfa HataLarı	buSra	ASP	0	22-03-2008 11:36

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)