ASP ile RSS Beslemesi Oluşturmak

tarihinde gönderilmiş tarafından

RSS (Really Simple Syndication), haber servisleri veya kişisel günlükler gibi veri akışının önemli olduğu yapılarda, eklenen yeni içeriğin kullanıcılar tarafından kolaylıkla takip edilebilmesi amacıyla geliştirilmiş bir sistemdir. Özel RSS okuyucuları ya da internet uygulamaları sayesinde güncel veriler veritabanından çekilir ve kullanıcıya sunulur. Bu bakımdan RSS teknolojisi, bilgiye ulaşımı hızlandırması ve kolaylaştırması açısından oldukça önemlidir.ASP ile RSS beslemesi oluşturmak, sanıldığının aksine oldukça basittir. İhtiyacımız olanlar, bir veritabanı dosyası ve bu veritabanından bilgileri çekmeye yarayacak RSS standartlarına dâhil edilmiş kodlar. Bu yazımızda ASP ile bir RSS beslemesi dosyası oluşturup, veritabanımızdan verileri çekeceğiz. Bunun için gerekli olan kodlar şöyledir:

<?xml version="1.0" encoding="iso-8859-9"?>
<%
'#############################################
'## ASP ile RSS Beslemesi Oluşturma Kodları ##
'## Hazırlayan: İsa SARI / www.isa-sari.com ##
'#############################################
%>
<rss version="2.0">
<%
'## Veritabanı bağlantımızı kuruyoruz. veritabani.mdb dosyasını kendi veritabanı 
dosyanızın ismine göre değiştirebilirsiniz.
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

Response.Buffer = True
Response.ContentType = "text/xml"
%>
<channel>
<%
'## Bu kısımda sitemizin başlığını, adresini ve RSS tanımlamasını giriyoruz.
%>
<title>Sitenizin Başlığı</title>
<link>http://www.sitenizinadresi.com</link>
<description>En son eklenen 20 kayıt</description>
<language>tr</language>
<%
'## Veritabanından kaç adet verinin çekileceğini belirtiyoruz. Burada örnek 
olarak 20 adet veriyi çekiyoruz.
'## İhtiaçlarınıza göre bu sayıyı değiştirebilirsiniz.
'## Örnek tablomuzun ismi "icerik". Tablomuzda 5 adet örnek girdi var.
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select top 20 * from icerik order by id desc"
rs.Open SQL,baglanti,1,3

i = 0
Do While i =< 19 And Not rs.Eof

'## RSS için gerekli olan unsurları sıralamaya başladık.
'## Veritabanımızda kayıtlı olan tablodan ve ilgi sütunlardan çekilen verileri 
ekrana yazdırıyoruz.
'## Buradaki 310 sayısı, içerikten belli bir özet halinde veri çekmemizi 
sağlıyor. Karakter sayısını belirtir.
'## Bağlantı atamalarını kendi sitenizin adresleme yöntemine göre 
düzenleyebilirsiniz.
Response.Write "<item>"
Response.Write "<title><![CDATA["&rs("baslik")&" / "&rs("tarih")&"]]></title>"
Response.Write "<link><![CDATA[#id="& rs("id") &"]]></link>"
Response.Write "<description><![CDATA[" & left(rs("icerik"),310) & "...<br><br><a 
target=""_blank"" href=""#id="& rs("id") &""">Devamı için tıklayınız</a>]]></description>"
Response.Write "</item>"

i = i + 1
rs.MoveNext
Loop
rs.Close
%></channel></rss>

Yukarıda yer alan kodları ve örnek veritabanıyla birlikte çalışan bir RSS uygulamasını aşağıda yer alan bağlantıdan indirebilirsiniz.