RSS Sayfası Oluşturmak

Evet biliyorsunuzki Websitelerin çoğunda RSS sayfaları bulunmakta. Çok kişinin dikkatini çeker. Bizi RSS’den takip edin falan derler. Şimdi bu RSS’yi kullanan siteler genellikler indirme, haber vb sitelerdir. RSS’nin siza avantajıda şu şekilde olur. Sitenize girmeden sizi yardımcı programlar sayesinde takip edebilirler. Bu takip işlemini SharpReader isimli program ile gerçekleştirebilirler. Başka sitelerdeki RSS’leride Php yada Asp kendi sitenize çekerek yayınlayabilirsiniz. Tabi tek tek alıntı yazmanız gerek bunlara. Çünkü emek hırsızlığı olur. Haber siteleri içinde kaynak belirtmeniz gerekir.
Şimdi size kaynak kod verecem net ortamında bulabilirsiniz bu kodları ve benzerlerini.
Asp Örneğini Yazıyoruz…
<!kod başlangıcı> ( burayı yazmayın )
<%
Set baglanti = Server.CreateObject(“ADODB.Connection”)
baglanti.Open “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“database/db.mdb”)
Response.Buffer = True
Response.ContentType = “text/xml”
Function Temizle(strInput)
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>SİTENİZİN ADI</title>
<link>http://www.sitenizinadi.com</link>
<description>En Son Eklenen 20 İçerik</description>
<language>tr</language>
<%
Set rs = Server.CreateObject(“ADODB.Recordset”)
SQL = “Select * from tablo_adi order by tarih desc”
rs.Open SQL,baglanti,1,3
i = 0
Do While i =< 19 And Not rs.Eof
Response.Write “<item>”
Response.Write “<title>” & Temizle(rs(“icerik_adi”)) & “</title>”
Response.Write “<link>http://www.sitenizinadi.com/icerik.asp?id=”& Temizle(rs(“id”)) &”</link>”
Response.Write “<description>İcerik Aciklamasi : ” & Temizle(rs(“icerik_aciklamasi”)) & “</description>”
Response.Write “</item>”
i = i + 1
rs.MoveNext
Loop
rs.Close
%></channel></rss>
<!kod bitişi> ( burayı yazmayın )
Verdiğim bu kodlarda kendi sitenizi ilgili yere yazabilirsiniz böylece RSS sayfasını oluşturmuş olursunuz. Bu RSS sayfalarının içerisinde Veritabanımızdan gelen Türkçe harfler olmakta. Biliyorsunuz Türkçe karakter hatası adamı deli eder 🙂 Bu Türkçe karakterleri replace yöntemi ile kaldırıyoruz.
An invalid character was found in text content. Error processing resource
olurda yukarıdaki gibi bir hata alırsanız Türkçe karakterleri düzenlemeniz gerekmektedir. sorun düzelicektir.