RSS Beslemesini Kodlama - Gövde

• Mayıs Ayı 6, 2024

Sitenize yeni içerik eklediğinizde güncellenen dinamik bir RSS akışı oluşturmak için ASP'yi kullanmak çok kolaydır. Bu sayfa RSS dosya kümesinin gövde kısmını veya temel içeriğini almanıza yardımcı olur.

Öncelikle, feed'inizi test etmek için bir RSS okuyucu ayarladığınızdan ve temel bilgileri okuduğunuzdan ve örneği yazdırdığınızdan emin olun. Bunlar, çıktınızı test edebilmeniz için önemli olacaktır. Oluşturduğunuz herhangi bir RSS akışında yer alan standart üst kısım olan RSS dosyanızın üstbilgisini / üst kısmını zaten eklediğinizden emin olun.

Şimdi RSS dosyasının, değişen haber duyurusunu, blog güncellemelerini, insanlara ne anlatıyorsanız, onu içeren bölümündeyiz. Diyelim ki "makaleleriniz" olduğunu ve insanlara her zaman en son 3 makalenizin ne olduğunu söylemek istediğinizi varsayalım. İşte kullanacağınız kod bloğu. XML'in düzgün çalışması için garip tırnak işaretleri ve işaretleri kaldırmanız gerektiğini unutmayın. XML SADECE temel harfler ve rakamlarla çalışır. Özel karakterleri boğar. Ve işaretleri &

<%
Set FeatSite = Server.CreateObject ("ADODB.Recordset")
SQLText = "SELECT art_id, art_title, art_date, art_desc " & _
"from articles where art_date <= '" & Now() & "' " & _
"order by art_date DESC"
FeatSite.Open SQLText, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

FeatCt = 1
do while not FeatSite.EOF and FeatCt < 4

ArtDesc = Replace(FeatSite("art_desc"), chr(180), "'")
ArtDesc = Replace(ArtDesc, "´", "'")
ArtDesc = Replace(ArtDesc, "&", "&")

ArtTitle = Replace(FeatSite("art_Title"), chr(180), "'")
ArtTitle = Replace(ArtTitle, "´", "'")
ArtTitle = Replace(ArtTitle, "&", "&")

ArtDate = FeatSite("art_date")

ArtHour = Hour(ArtDate)
if ArtHour < 10 then ArtHour = "0" & ArtHour
ArtMin = Minute(ArtDate)
if ArtMin < 10 then ArtMin = "0" & ArtMin
ArtSec = Second(ArtDate)
if ArtSec < 10 then ArtSec = "0" & ArtSec

ArtDateT = WeekdayName(Weekday(ArtDate), TRUE) & ", " & Day(ArtDate) & " " & _
MonthName(Month(ArtDate), TRUE) & " " & Year(ArtDate) & " " & _
ArtHour & ":" & ArtMin & ":" & ArtSec & " EST"
%>






YOURURLGOESHEREPLUS ve artid = Asp








<%
FeatSite.MoveNext
FeatCt = FeatCt + 1
loop
FeatSite.close()
set FeatSite = Nothing
%>




===========================

Bu kadar! Bu RSS dosyasını sunucunuza yerleştirin ve IIS'yi RSS uzantısı olan dosyaları ASP dosyaları olarak işleyeceğini bilecek şekilde güncellediğinizden emin olun. Şimdi bu RSS dosyasının URL'sini RSS okuyucunuza yerleştirebilmeniz ve güncellemeleri alabilmeniz gerekir!

RSS Feed - Başlık Bölümü

RSS Feed'inin Temelleri
RSS Feed Örneği
RSS ASP Dosyasının Temel Kurulumu