09 Eylül 2010 Perşembe

Kategoriler

Yazar'dan mesaj:

<%response.write "Asp Ögreniyorum"%>

Asp ögrenmek veya gelistirmek isteyenlerin sayfasi

Tavsiye ettigim yazilar

Asp ile performans

Son yazılar

Rasgele yazılar

Son yorumlar

Hakan Yilmaz: ayıp ayıp sağdan soldan alıp siteye kendiniz yapmış gibi kontroletmeden koyuyorsunuz bi bakın çalışmıyor. hemen bütüm forumlarda var ama çalışmıyor boşuna uğraşmayın
fatih: teşekkür ederim işime yaradı :)
kubilay: @k şu şekilde kullanıyoruz. <% degisken= deneme yanılma response.write duzelt(degisken) %> veya <%=duzelt(degisken)%>
k: nasıl kullancaz bunu yani response.write asdsdsd>>><<<<qweqwe yazısında >< karakterlerini yazmaması için
davetiye: çok teşekkürler işe yaradı

Randevular

Randevum boş

Asp RSS Sayfası Yapımı

ASPFOREVER Yönetim - 26.01.2010 15:00:00 - Asp Kodlama

Çogu sitelerde RSS sayfalari görmekteyiz. RSS, XML ismiyle de bilinmektedir. RSS genellikle haber ve download siteleri gibi sürekli güncellenen sitelerde kullanilmaktadir. RSS ile sitemizde ki içerigin, ziyaretçilerimiz tarafindan yardimci bir program kullanilarak sitemize girmesine gerek kalmadan okuyabilmelerini saglayabiliriz. RSS sayfalarini okutmak için SharpReader adli programi kullanabilirsiniz. Bununla birlikte, baska bir sitede yer alan RSS sayfasindan ASP ile veri alip sitemiz içerisinde yayinlayabiliriz.

Kendi sitemde kullandigim RSS sayfasinin kodlarini sizlerle paylasmak 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","I")
strInput = Replace(strInput,"S","S")
strInput = Replace(strInput,"Ü","U")
strInput = Replace(strInput,"Ö","O")
strInput = Replace(strInput,"Ç","C")
strInput = Replace(strInput,"G","G")
strInput = Replace(strInput,"g","g")
strInput = Replace(strInput,"i","i")
strInput = Replace(strInput,"s","s")
strInput = Replace(strInput,"ü","u")
strInput = Replace(strInput,"ö","o")
strInput = Replace(strInput,"ç","c")
Temizle = strInput
End Function
%>

<rss version="2.0">
<channel>
<title>SITENIZIN ADI</title>
<link>http://www.sitenizinadresi.com</link>
<description>En Son Eklenen 20 Iç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.sitenizinadresi.com/icerik.asp?id="& Temizle(rs("id")) &"</link>"
Response.Write "<description>Icerik Aciklamasi : " & Temizle(rs("icerik_aciklamasi")) & "</description>"
Response.Write "</item>"

i = i + 1
rs.MoveNext
Loop

rs.Close
%></channel></rss>

Yukarida görmüs oldugunuz kodda ki ilgili yerleri kendi sitenize göre düzenleyerek RSS sayfanizi olusturabilirsiniz. RSS sayfasi içerisinde, veritabanindan gelen Türkçe harflerde yer alan noktalari replace yöntemi ile kaldirmaktayiz.

RSS sayfasinda, asagida yer alan hatayi alirsaniz Türkçe karakterleri düzenleyerek bu hatayi giderebilirsiniz.
“An invalid character was found in text content. Error processing resource”

Baska bir konuda görüsmek üzere…

Okan YILMAZ
Trabzon

"Asp RSS Sayfası Yapımı" konusuna 1 yorum yapılmış!

davetiye demiş ki,

01.03.2010 22:09:13
Çok teşekkürler işe yaradı

Ben de Yorum Yapmak İstiyorum