Asp ile siteye RSS

Kategori: Kod

10 Tem 2010

Really 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>

Yorum Yapın

Bilgi

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.

Resimlerim

Reklamlar

Sayfalar