Abdullah Dağlı Yazıları - Flex, PHP, ASP, Java, JavaScript, ActionScript 3.0, AIR

ASP teknolojisini kullanarak RSS dosyaları nasıl oluşturulur? Bu sorunun cevabına geçmeden önce RSS hakkında bilgi sahibi olmak adına bir kaç linke göz atsak iyi olur sanırım.

RSS dosyamızda yayımlayacağımız bilgileri veritabanından alacağız. Ben pratiklik açısından Access veritabanını kullanıyorum.

İlk olarak veri tabanına nasıl bağlanırız görelim:

Set ODBC = Server.CreateObject(”ADODB.Connection”)
ODBC.Open “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=”& Server.MapPath(”db.mdb”)

ODBC adında bir Adodb nesnesi oluşturduk. Daha sonra bu nesne ile veri tabanımızı açtık. Sırada ise veritabanımızdaki bir tabloya bağlanmak var.

Set ODBC = Server.CreateObject(”ADODB.Connection”)
ODBC.Open “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=”& Server.MapPath(”db.mdb”)

Set Tablo = Server.CreateObject(”ADODB.Recordset”)
Tablo.Open (”Select * from tabloAdi order by ID desc”),ODBC,1,1

Veritabanı sorgulamaları hakkında daha fazla bilgi için ASPÖĞREN!

Veri tabanına nasıl bağlanacağımızı öğrendikten sonra artık RSS dosyasını nasıl oluşturacağımıza bakabiliriz.

<%
Set ODBC = Server.CreateObject(”ADODB.Connection”) ‘Veri Tabanı Bağlantı Nesnesi Oluşturuldu
Set Tablo = Server.CreateObject(”ADODB.Recordset”) ‘Veri Tabanı Tablo Bağlantı Nesnesi Oluşturuldu

ODBC.Open “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=”& Server.MapPath(”db.mdb”) ‘Veri Tabanı Açıldı

Response.ContentType = “text/xml” ‘Bu dosyanın bir xml dosyası olduğu belirlendi

Function Temizle(strInput) ‘RSS Dosyalarımızda Türkçe Karakter Sorununa Önlem Olması İçin Bir Fonksiyon

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>Site Adı</title>
<link>http://www.url.com</link>
<description>RSS Bilgisi (Açıklaması)</description>
<language>tr</language>

<%
Tablo.Open (”Select * from tabloAdi order by ID desc”),ODBC,1,1 ‘Veri Tabanımızdaki Tablo Açıldı

i = 0
Do While i =< 20 And Not Tablo.Eof ‘Tablomuzdaki 20 veri yayınlanıyor
Response.Write “<item>”
Response.Write “<title>”& Temizle(Tablo(”Baslik”)) &”</title>”
Response.Write “<link>http://www.url.com/?id=”& Temizle(Tablo(”ID”)) &”</link>”
Response.Write “<description>Aciklama : ” & Temizle(Tablo(”Aciklama”)) & “</description>”
Response.Write “</item>”

i = i + 1
Tablo.MoveNext : loop
Tablo.close ‘Tablo Bağlantımız Kapatıldı
ODBC.close ‘ Veri Tabanı Bağlantımız Kapatıldı
%>
</channel>
</rss>