Güncellenebilen sitelerde kullanılan ve ziyaretçiye siteye girmeden içeriği okutabilen servise rss adı verilmektedir.Bir rss servisi xml uzantılı olması koşulu yoktur.Asp ve php ilede rss sayfaları tasarlanabilir ve ziyaretçiye okutulabilir.Okutma işlemleri genellikle Sharpreader tarzı programlarla okunabildiği gibi mozilla gibi browser lara eklenen reader plugin leri ilede aynı işlem yapılabilir.Aşağıda asp ile yazılmış örnek bir rss sayfasının kodları bulunmaktadır.Çalıştırıldığında hata almamak için tr karakterleri replace ederek temizliyoruz.Kendi sisteminize göre uyarlayarak kullanabilirsiniz.Örnek teşkil etmesi açısından yararlı bulunacağı kanaatindeyim.

< %

Set baglanti = Server.CreateObject(\"ADODB.Connection\" )

baglanti.Open \"DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=\" & Server.MapPath(\"dbfiles/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

%>

http://www.sitename.com

Top 20

tr

< %

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 \"\"

Response.Write \"\"

Response.Write \" http://www.sitename.com/icerik.asp?id=\"& Temizle(rs(\"id\" ) ) &\"\"

Response.Write \"İcerik Aciklamasi : \" & Temizle(rs(\"icerik_aciklamasi\" ) ) & \"\"

Response.Write \"\"

i = i + 1

rs.MoveNext

Loop

rs.Close

%>

Benzer Yazılar

• Blocking Unwanted Views
• ASP | SABİT DEĞERLER
• ASP | DİZİLER
• ASP | DEĞİŞKENLER
• ASP | Yazım Kuralları
• ASP NEDİR?