RSS Dosya Yapısı, Yayınlanması / Okunması

[BaRaN]

RSS Nedir?
RSS (Rich Site Summary / Really Simple Syndication) sitelerin
içeriklerini başlıklar şeklinde sunmak için kullanılan bir teknoloji.
Temelinde bir XML dosyası yatar. Bu teknoloji ilk olarak 1999 yılında
Netspace tarafından geliştirilmiştir.



Dosya Yapısı:



http://www.siteninadresi.com
Siteyle ilgili kisa açiklama
RSS'in yayinlandigi dil kodu. Türkçe için tr


Ilk Içerigin Adresi
Ilk Içerigin Metni



Ikinci Içerigin Adresi
Ikinci Içerigin Metni






Sitenizin veritabanındaki bilgilerinin RSS okuyucular tarafından okunabilir hale getirilmesi:

<%
Response.Buffer = True
Response.ContentType = "text/xml" %>

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

Function Temizle(strInput)
strInput = Replace(strInput,"&", "&", 1, -1, 1)
strInput = Replace(strInput,"'", "'", 1, -1, 1)
strInput = Replace(strInput,"""", "", 1, -1, 1)
strInput = Replace(strInput, ">", ">", 1, -1, 1)
strInput = Replace(strInput,"<","<", 1, -1, 1)
Temizle = strInput
End Function
%>



http://www.mydesign.gen.tr
En Yeni İçerikler
tr
<%
Set rs = Server.CreateObject("Adodb.Recordset")
SQL = "SELECT * FROM tablo ORDER BY tarih DESC"
rs.Open SQL, adoCon, 1, 3

i = 0
Do While not rs.EOF and i < 10

response.write("")
response.write("")
response.write("http://www.mydesign.gen.tr/"& rs("id") &".html")
response.write("" & Temizle(rs("ozet")) & "")
response.write("")
i = i + 1

rs.MoveNext
Loop

rs.Close
set rs = Nothing
%>



Aslında bu kodlar bir XML dosyası yerine XML çıktısı veren bir asp
sayfasının kodlarını olusturur. Peki neden bir asp sayfası çıkarıyoruz?
Bunun 2 nedeni var:
1. Eger sitenize sonradan bir RSS desteği ekleyecek olursanız, aynı
zamanda bir XML dosyasında yazmanız gerekeceğinden sitenizin tüm
sistemini değiştirmeniz gerekecekti.
2. Hem sitenizin veritabanı hem de bir XML dosyasına kaydetmeniz gerekeceğinden kayıt işlemi yavaşlayacakti.










Baska Sitelerin RSS Kaynaklarindan Bilgi Almak
<%@ Language="VBscript" %>

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<% Dim objXML Dim objItemList Dim objItem Dim I Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocumen t") objXML.async = False objXML.setProperty "ServerHTTPRequest", True objXML.Load("http://www.mydesign.gen.tr/rss.asp") If objXML.parseError.errorCode <> 0 Then Response.Write "Hata: " & objXML.parseError.reason &" " Response.Write "Satır: " & objXML.parseError.line &" " Response.Write "Açıklama: " & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf End If Set objItemList = objXML.getElementsByTagName("item") Set objXML = Nothing For Each objItem In objItemList i = 1 Response.Write " & objItem.childNodes(1).text & """ target=""_blank"" title=""" & objItem.childNodes(2).text & """>" Response.Write "" & objItem.childNodes(0).text & " " & vbCrLf Next Set objItemList = Nothing %>