Codering van een RSS-feed - Body

• April 27, 2024

Het is heel eenvoudig om ASP te gebruiken om een ​​dynamische RSS-feed te maken die wordt bijgewerkt wanneer u nieuwe inhoud toevoegt aan uw site. Deze pagina helpt u om de hoofdtekst (of kerninhoud) van de RSS-bestandenset te krijgen.

Zorg er eerst voor dat u een RSS-lezer hebt ingesteld om uw feed te testen en dat u de basisbeginselen hebt gelezen en het voorbeeld hebt afgedrukt. Die zullen belangrijk zijn zodat je je output kunt testen. Zorg ervoor dat u het kop- / bovenste deel van uw RSS-bestand al hebt ingevoerd, de standaardbovenkant die op bijna elke RSS-feed zou passen die u hebt gemaakt.

Nu zijn we in het gedeelte van het RSS-bestand dat daadwerkelijk de veranderende nieuwsaankondiging, blogupdates, waar u mensen ook over vertelt, bevat. Laten we zeggen dat je 'artikelen' hebt en dat je mensen altijd wilt vertellen wat je 3 nieuwste artikelen zijn. Hier is het codeblok dat u zou gebruiken. Merk op dat u vreemde aanhalingstekens en ampersands moet verwijderen om XML correct te laten werken. XML werkt ALLEEN met basisletters en cijfers. Het verslikt zich in speciale karakters. Ampersands moeten worden ontsnapt als &

<%
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
%>




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

Dat is het! Plaats dat RSS-bestand op uw server en zorg ervoor dat u IIS bijwerkt zodat het weet bestanden met een RSS-extensie als ASP-bestanden te kunnen verwerken. Nu zou u de URL van dat RSS-bestand in uw RSS-lezer moeten kunnen plaatsen en de updates kunnen ontvangen!

RSS-feed - kopdeel

Basisprincipes van een RSS-feed
Voorbeeld van RSS-feed
Basisinstelling van een RSS ASP-bestand

Video-Instructies: Developing a Warning System for Risk Managers from Scratch on GCP, using AI & ML (Cloud Next '18) (April 2024).