Codificando um feed RSS - Corpo

• Pode 10, 2024

É muito fácil usar o ASP para criar um feed RSS dinâmico que é atualizado sempre que você adiciona conteúdo novo ao seu site. Esta página ajuda a obter o corpo - ou o conteúdo principal - parte do conjunto de arquivos RSS.

Primeiro, verifique se você configurou um leitor de RSS para testar seu feed e se leu sobre o básico e imprimiu a amostra. Esses serão importantes para que você possa testar sua saída. Certifique-se de que você já inseriu o cabeçalho / parte superior do seu arquivo RSS, o topo padrão que seria usado na maioria dos feeds RSS criados.

Agora, estamos na seção do arquivo RSS que realmente contém o anúncio de notícias em mudança, as atualizações do blog, seja lá o que você estiver falando para as pessoas. Digamos, por uma questão de argumento, que você tem "artigos" e deseja sempre dizer às pessoas quais são seus 3 artigos mais recentes. Aqui está o bloco de código que você usaria. Observe que você precisa remover aspas e comerciais estranhos para que o XML funcione corretamente. XML funciona apenas com letras e números básicos. Ele engasga com caracteres especiais. E comercial deve ser escapado como &

<%
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 & ARTID = .asp








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




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

É isso aí! Coloque esse arquivo RSS no servidor e atualize o IIS para que ele saiba lidar com arquivos com uma extensão RSS como arquivos ASP. Agora você deve poder colocar o URL desse arquivo RSS no seu leitor de RSS e obter as atualizações!

RSS Feed - Parte do cabeçalho

Noções básicas de um feed RSS
Amostra de feed RSS
Configuração básica de um arquivo ASP RSS