Ayrıntılı Konu Bilgileri
Sayfa BaşlığıKonu: RSS Yapımı
Mesaj SayısıMesaj Sayısı: 0 cevap var
OkumaGösterim: 842
Google Özel Arama

Gönderen Konu: RSS Yapımı  (Okunma sayısı 842 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

    sevdaligul

  • Administrator
  • *

  • İleti: 13121
  • Nerden: Konya
  • Rep: +6511/-0
  • Cinsiyet: Bay
  • GüLe SeVDaLı Bir GeNç
    • MSN Messenger - sevdaligul@gmail.com
    • Profili Görüntüle GüLe SeVDaLı BiR GeNçLiK
  • Çevrimdışı
RSS Yapımı
« : 10 Kasım 2007, 21:44:40 »


 
Çoğu sitelerde RSS sayfaları görmekteyiz. RSS, XML ismiyle de bilinmektedir. RSS genellikle haber ve download siteleri gibi sürekli güncellenen sitelerde kullanılmaktadır. RSS ile sitemizde ki içeriğin, ziyaretçilerimiz tarafından yardımcı bir program kullanılarak sitemize girmesine gerek kalmadan okuyabilmelerini sağlayabiliriz. RSS sayfalarını okutmak için SharpReader adlı programı kullanabilirsiniz. Bununla birlikte, başka bir sitede yer alan RSS sayfasından ASP ile veri alıp sitemiz içerisinde yayınlayabiliriz.

Kendi sitemde kullandığım RSS sayfasının kodlarını sizlerle paylaşmak istiyorum.

<%
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>Linklerin Görülmesine İzin Verilmiyor. Üye Ol ya da Giriş Yap</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>Linklerin Görülmesine İzin Verilmiyor. Üye Ol ya da Giriş Yap 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>

Yukarı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ız.

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”

Başka bir konuda görüşmek üzere…

Okan YILMAZ

Alıntı
Aklımdaki sensin
Fikrimdeki Sen
Sen tekderdimsin
Gülüm Benim


Paylaş delicious Paylaş digg Paylaş facebook Paylaş furl Paylaş linkedin Paylaş myspace Paylaş reddit Paylaş stumble Paylaş technorati Paylaş twitter
 

Benzer Konular

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
841 Gösterim
Son İleti 08 Mart 2007, 23:21:36
Gönderen: sevdaligul
1 Yanıt
1511 Gösterim
Son İleti 24 Haziran 2007, 10:19:54
Gönderen: sevdaligul
0 Yanıt
1165 Gösterim
Son İleti 04 Aralık 2007, 01:28:45
Gönderen: ђ๏Ŧєєz
0 Yanıt
3205 Gösterim
Son İleti 25 Temmuz 2008, 16:46:03
Gönderen: hayat güzel
0 Yanıt
78 Gösterim
Son İleti 21 Eylül 2016, 11:08:27
Gönderen: kulucka_makinasi

web hosting Domain Web
İçerik sağlayacı paylaşım sitelerinden biri olan sevdaligul.com forum sitemizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. sevdaligul.com hakkında yapılacak tüm hukuksal Şikayetler sevdaligul@gmail.com  adresi ile iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 1 (Bir) Hafta içerisinde sevdaligul.com  yönetimi olarak tarafımızdan gereken işlemler yapılacak ve size dönüş yapacaktır.