Melek Kentmen - Hulis Kentmen - Bloglar - RSS Sayfası Yapımı

RSS Sayfası Yapımı

Ç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 = TrueResponse.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 = strInputEnd Function%>SİTENİZİN ADIhttp://www.sitenizinadresi.comEn Son Eklenen 20 İçeriktr<%Set rs = Server.CreateObject("ADODB.Recordset")SQL = "Select * from tablo_adi order by tarih desc"rs.Open SQL,baglanti,1,3i = 0Do While i =< 19 And Not rs.EofResponse.Write ""Response.Write "" & Temizle(rs("icerik_adi")) & ""Response.Write "http://www.sitenizinadresi.com/icerik.asp?id="& Temizle(rs("id")) &""Response.Write "İcerik Aciklamasi : " & Temizle(rs("icerik_aciklamasi")) & ""Response.Write ""i = i + 1rs.MoveNextLooprs.Close%>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 YILMAZTrabzon

Asp KodBank
Deprecated: strtotime(): Passing null to parameter #1 ($datetime) of type string is deprecated in /var/www/vhosts/melekkentmen.com/httpdocs/config.php on line 1077
60 yıl önce
Melek Kentmen 6966



Whatsapp İletişimTelefon Et