|
RSS yapmak isteyenlere... -
16.07.2008, 19:02
ASP de RSS yapmak isteyenler için kodlar ve örnek veritabanı.
<?xml version="1.0" encoding="iso-8859-9"?>
<%
'#############################################
'## ASP ile RSS Beslemesi Oluşturma Kodları ##
'## Hazırlayan: İsa SARI / ##
'#############################################
%>
<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></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) & "...<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>
|
16.07.2008, 19:03
