Blog
Kategori: Kod
10 Tem 2010Really Simple Syndication yani RSS; haber servisleri veya kişisel bloglar gibi veri akışının güncel olduğu sitelerde, eklenen yeni içeriğin kullanıcılar tarafından kolay bir şekilde takip edilmesi amacı ile geliştirilmiş bir sistemdir. Özel RSS okuyucuları veya internet uygulamaları sayesinde yeni veriler veritabanından çekilir ve kullanıcıya aktarılır. Bu açıdan RSS teknolojisi, bilgiye ulaşmayı hızlandırmak ve kolaylaştırmak açısından oldukça önemli bir araçtır.
ASP ile RSS beslemesi oluşturmak, siteye asp ile RSS eklemek oldukça kolaydır. Bir veritabanı (database) ve bu veritabanından bilgileri çekmeye yarayacak RSS standartlarına göre üretilmiş kodlar gereklidir. ASP ile siteye RSS beslemesi dosyası oluşturup, veritabanından verileri çekmek için gerekli olan kodlar:
<?xml version=”1.0″ encoding=”iso-8859-9″?>
<%
‘#############################################
‘## Siteye ASP ile RSS ekleme Kodları ##
‘#############################################
%>
<rss version=”2.0″>
<%
‘## Veritabanı bağlantısı kuruyoruz. veritabani access .mdb dosyasını kendi veritabanı
dosyanızın ismine göre değiştirin.
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 bölüme site başlığı, adresini ve RSS tanımlamasını yazın.
%>
<title>Site RSS Başlığı</title>
<link>http://www.siteadresi.com</link>
<description>En son eklenen 20 konu</description>
<language>tr</language>
<%
‘## Veritabanından kaç tane verinin çekileceği. Örnekte 20 adet veri ayarlandı.İsterseniz değiştirebilirsiniz.
‘## Veri çekeceğimizin tablomuzun ismi “icerik” olsun. Tablomuzda 5 adet örnek veri 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
‘## Veritabanımızda kayıtlı olan tablodan ve ilgili (icerik demiştik) sütunlardan çekilen verileri
ekrana yazdırıyoruz.
‘## Buradaki 310 sayısı, içerikten belli bir özet halinde veri çekmemizi sağlar. Karakter sayısını belirtir.
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>
Bu blog tamamen şahsi çabalar ile ve herhangi bir yerden alıntı yapılmaksızın yapılmıştır. Yazılardan alıntı yapmak ancak atıf kuralları çerçevesinde yazıya ve siteye bağlantı verilerek mümkündür.