Koding av en RSS-feed - Body

• Kan 17, 2024

Det er veldig enkelt å bruke ASP til å lage en dynamisk RSS-feed som oppdateres når du legger til ferskt innhold på nettstedet ditt. Denne siden hjelper deg å få kroppen - eller kjerneinnholdet - en del av RSS-filsettet.

Først må du sørge for at du har satt opp en RSS-leser for å teste strømmen din, og at du har lest om det grunnleggende og skrevet ut prøven. Dette vil være viktig, slik at du kan teste utdataene dine. Forsikre deg om at du allerede har lagt inn topptekst / toppdel av RSS-filen, standardtoppen som vil gå på de fleste RSS-feed du opprettet.

Nå er vi på delen av RSS-filen som faktisk inneholder den endrede nyhetsmeldingen, bloggoppdateringer, hva det er du forteller folk om. La oss si for argumentets skyld at du har "artikler", og at du alltid vil fortelle folk hva de tre siste artiklene dine er. Her er kodeblokken du vil bruke. Legg merke til at du må strippe frem rare sitater og ampersand for at XML skal fungere ordentlig. XML fungerer KUN med grunnleggende bokstaver og tall. Det kveles av spesialkarakterer. Overordnede må rømmes 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! Legg den RSS-filen på serveren din, og sørg for at du oppdaterer IIS slik at den vet å håndtere filer med en RSS-utvidelse som ASP-filer. Nå skal du kunne legge URL-adressen til den RSS-filen til RSS-leseren din, og få oppdateringene!

RSS Feed - Header Del

Grunnleggende om en RSS-feed
RSS-feedeksempel
Grunnleggende oppsett av en RSS ASP-fil

Video Instruksjoner: VCDS-VAG 01-engine ECU security access code? /VW Golf 5 tested/ (Kan 2024).