RSS kodo kodavimas

• Gegužė 1, 2024

Labai lengva naudoti ASP, kad sukurtumėte dinamišką RSS tiekimą, kuris atnaujinamas kiekvieną kartą, kai į savo svetainę įtraukiate šviežio turinio. Šis puslapis padeda jums gauti pagrindinę arba pagrindinę turinio dalį RSS rinkinio rinkinyje.

Pirmiausia įsitikinkite, kad sukūrėte RSS skaitytuvą, kad patikrintumėte savo sklaidos kanalą, ir kad perskaitėte pagrindus ir išspausdinote pavyzdį. Tai bus svarbu, kad galėtumėte išbandyti savo rezultatus. Įsitikinkite, kad jau įdėjote RSS failo antraštę / viršutinę dalį - standartinę viršuje, kuri būtų naudojama daugelyje jūsų sukurtų RSS kanalų.

Dabar mes esame RSS failo skiltyje, kurioje iš tikrųjų yra besikeičiančių naujienų pranešimas, tinklaraščių atnaujinimai, kad ir ką jūs žmonėms pasakytumėte. Tarkime, kad argumentai yra tokie, jog turite „straipsnių“ ir norite visada žmonėms pasakyti, kokie yra jūsų 3 naujausi straipsniai. Štai kodo blokas, kurį galėtumėte naudoti. Atminkite, kad jūs turite išbraukti keistas citatas ir ženklus, kad XML tinkamai veiktų. XML veikia tik pagrindinėmis raidėmis ir skaičiais. Tai uždusina specialius simbolius. Ampersandrai turi būti pabėgti, nes

<%
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“ ir „ARTID“ = .asp








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




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

Viskas! Įdėkite tą RSS failą į savo serverį ir būtinai atnaujinkite IIS, kad jis žinotų, kaip failus, turinčius RSS plėtinį, tvarkyti kaip ASP failus. Dabar jūs turėtumėte galėti įvesti RSS RSS failą į savo RSS skaitytuvą ir gauti atnaujinimus!

RSS tiekimas - antraštės dalis

RSS teikimo pagrindai
RSS tiekimo pavyzdys
Pagrindinė RSS ASP failo sąranka

Vaizdo Instrukcijos: What is it Like to Play the Japanese Shamisen? (Gegužė 2024).