Asp İle Rss Sayfası Oluşturma

'HTML-PHP-ASP-JAVA' forumunda semyav5mitq tarafından 13 Ocak 2009 tarihinde açılan konu

  1. Sponsorlu Bağlantılar
    Asp İle Rss Sayfası Oluşturma konusu Birazda kendi gördüğüm dersin konusu üzerine yazmak istedimArtık gelişen web20 dünyasıyla rss gereksinim oldu web siteleri için asp bloglarında kimileri rss sayasını kendileri oluşturmak zorundalar tabi asp zor ama gayet kullanışlı bir dil olduğundan dolayı yazıyorumRss izlemeleri genellikle haber siteleri download siteleri ve bloglarda kullanılmaktadırRSS ile sitemizde ki içeriğin, ziyaretçilerimiz tarafından yardımcı bir program kullanılarak sitemize girmesine gerek kalmadan okuyabilmelerini sağlayabilirizEvet dersimize başlıyoruzKendimce hazırlamış olduğum bir örnek

    Kod:
    <%
    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.siteniz.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.siteniz.com/icerik.asp?id=”& Sil(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>
    
    Evet bunlar rss kodlarımızYukarıda görmüş olduğunuz kodda ki ilgili yerleri kendi sitenize göre düzenleyerek RSS sayfanızı oluşturabilirsiniz RSS sayfası içerisinde, veritabanından gelen Türkçe harflerde yer alan noktaları replace yöntemi ile kaldırmaktayızBurada belirtilmiş olan http://wwwsitenizcom/icerikasp?id= kısmı sizin rss akışınızı geleceği yoldurBir bakımada kaynaktırBurada rss akışınızı düzgün okutabilmeniz için bu adres değiştirmeniz lazımdırYani bir bakımada sizin kaynak yolunuzu yazmanız gerekmektedirBurada icerikasp?id= kısmı her sitede olmayabilirKullandığınız script farklı yollar oluşturuyor olabilirÖrneği haber sitelerinde detayasp?detayid= olabiliyorBurada en önemli nokta sizin kaynaklarınızdaki linklerdirBuradaki linki kendi dosyanızın kaynak linki vererek rss adresimizi yapıyoruz
    RSS sayfasında, aşağıda yer alan hatayı alırsanız Türkçe karakterleri düzenleyerek bu hatayı giderebilirsiniz
    “An invalid character was found in text content Error processing resource”
     

Bu Sayfayı Paylaş