Koder for et RSS-feed - Body

• Kan 9, 2024

Det er meget nemt at bruge ASP til at oprette et dynamisk RSS-feed, der opdateres, når du tilføjer nyt indhold til dit websted. Denne side hjælper dig med at få krops - eller kerneindhold - en del af RSS-filsættet.

Først skal du sørge for, at du har oprettet en RSS-læser til at teste dit feed, og at du har læst om det grundlæggende og udskrevet prøven. Disse vil være vigtige, så du kan teste din output. Sørg for, at du allerede har indsat overskriften / øverste del af din RSS-fil, den standardtop, der vil gå på de fleste RSS-feed, du har oprettet.

Nu er vi ved det afsnit af RSS-filen, der faktisk indeholder den skiftende nyhedsmeddelelse, blogopdateringer, hvad det end er, du fortæller folk om. Lad os sige af hensyn til argumentet, at du har "artikler", og at du altid ønsker at fortælle folk, hvad dine 3 seneste artikler er. Her er kodeblokken, du vil bruge. Bemærk, at du er nødt til at stribe mærkelige citater og ampersands for at XML skal fungere korrekt. XML fungerer KUN med grundlæggende bogstaver og tal. Det kvæler af specialtegn. Ampersand skal undgås som &

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




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

Det er det! Læg denne RSS-fil på din server, og sørg for at opdatere IIS, så den ved at håndtere filer med en RSS-udvidelse som ASP-filer. Nu skal du være i stand til at placere URL'en til denne RSS-fil i din RSS-læser og få opdateringerne!

RSS Feed - Header-del

Grundlæggende om et RSS-feed
RSS-feedeksempel
Grundlæggende opsætning af en RSS ASP-fil

Video Instruktioner: The Third Industrial Revolution: A Radical New Sharing Economy (Kan 2024).