Kendimce Bir Blog Sistemi Yazıyorum

Evet valla bakın böyle kendimce bir blog sistemi yazıyorum tamamen Türkçe olacak Türkçe ve ingilizce dil eklentisi olacak olurda birde üyelik sistemi eklemeyi başarabilirsem üye olmak için dil seçimi yapabilecekler.Sağ ve sol taraflı olmak üzere yani örnek

WebHocamız .Net oldu

Genellikle herkesin bildiği bir sitedir.Web hocam asp veya php meraklıları googlede asp dersleri veya php dersleri diye aratınca çıkan siteydi.Ve bu siteden en çok yararlanan ben oldum açıkcası.Şu sıralar php ve asp üzerine yoğunlaşmış durumdayım.Öncelik tabi asp de yavaş yavaş aspye alışdım uzun süredir yazıyordum kodluyordum.Buradan php öğrenmek istedim pek içerik yoktu.Site zaten asp tabanlıydı asp üzerine kurulmuştu.Çokda sevdim aspyi.Php kodluyorum neyse konuya gelecek olursa önceden girilen site webhocam.com du şimdi artık webhocam.net oldu.İsteyenler buradan girebilirler

Asp İle Rss Sayfası Oluşturma

Birazda kendi gördüğüm dersin konusu üzerine yazmak istedim.Artık gelişen web2.0 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ıyorum.Rss izlemeleri genellikle haber siteleri download siteleri ve bloglarda 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.Evet dersimize başlıyoruz.Kendimce hazırlamış olduğum bir örnek

<% 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ız.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.Burada belirtilmiş olan http://www.siteniz.com/icerik.asp?id= kısmı sizin rss akışınızı geleceği yoldur.Bir bakımada kaynaktır.Burada rss akışınızı düzgün okutabilmeniz için bu adres değiştirmeniz lazımdır.Yani bir bakımada sizin kaynak yolunuzu yazmanız gerekmektedir.Burada icerik.asp?id= kısmı her sitede olmayabilir.Kullandığınız script farklı yollar oluşturuyor olabilir.Örneği haber sitelerinde detay.asp?detayid= olabiliyor.Burada en önemli nokta sizin kaynaklarınızdaki linklerdir.Buradaki 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”