RSS-voo kodeerimine - põhiosa

• Mai 14, 2024

ASP-d on väga lihtne kasutada dünaamilise RSS-voo loomiseks, mida värskendatakse alati, kui lisate oma saidile värsket sisu. See leht aitab teil saada RSS-faili komplekti põhiosa või põhisisu.

Esiteks veenduge, et olete oma voo testimiseks seadnud RSS-i lugeja ning kas olete lugenud põhitõdesid ja printinud näidise välja. Need on olulised, et saaksite oma väljundit testida. Veenduge, et olete juba oma RSS-faili päisesse / ülaossa pannud, tavaline ülaosa, mis läheks enamikule teie loodud RSS-voogudest.

Nüüd oleme RSS-faili jaotises, mis sisaldab tegelikult muutuvaid uudiseid ja ajaveebi värskendusi, olenemata sellest, millest te inimestele räägite. Ütleme argumendi huvides, et teil on "artikleid" ja soovite alati inimestele öelda, millised on teie 3 viimast artiklit. Siin on koodiplokk, mida kasutaksite. Pange tähele, et XML-i korrektseks töötamiseks peate eemaldama veidrad tsitaadid ja ampersandid. XML töötab AINULT põhitähtede ja numbritega. See lämbub erimärkide peal. Ampersandid tuleb põgeneda, kuna &

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




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

Ongi! Pange see RSS-fail oma serverisse ja värskendage kindlasti IIS-i, nii et see teab RSS-laiendiga faile ASP-failidena käsitseda. Nüüd peaksite saama selle RSS-faili URL-i oma RSS-lugejasse panna ja värskendusi hankida!

RSS-kanal - päise osa

RSS-voo põhialused
RSS-voo näidis
RSS ASP-faili põhiseadistamine

Video Juhiseid: KSP RSS Voo Sub-orbital (Mai 2024).