Codarea unui flux RSS - Corp

• Mai 5, 2024

Este foarte ușor de utilizat ASP pentru a crea un flux RSS dinamic, care se actualizează ori de câte ori adăugați conținut proaspăt pe site-ul dvs. Această pagină vă ajută să primiți corpul - sau conținutul de bază - parte din setul de fișiere RSS.

În primul rând, asigurați-vă că ați configurat un cititor RSS pentru a vă testa fluxul și că ați citit despre elementele de bază și ați tipărit eșantionul. Acestea vor fi importante, astfel încât să vă puteți testa producția. Asigurați-vă că ați introdus deja în antetul / partea de sus a fișierului dvs. RSS, topul standard care ar merge la majoritatea oricăror fluxuri RSS pe care le-ați creat.

Acum suntem la secțiunea fișierului RSS care conține, de fapt, anunțul de știri în schimbare, actualizări pe blog, despre orice le spuneți oamenilor. Să spunem, de dragul argumentului, că aveți „articole” și doriți să le spuneți mereu oamenilor care sunt cele 3 ultimele dvs. articole. Iată blocul de cod pe care l-ar folosi. Rețineți că trebuie să eliminați ghilimele și ampersandurile ciudate pentru ca XML să funcționeze corect. XML funcționează doar cu litere și numere de bază. Se sufocă pe personaje speciale. Ampersands trebuie evadat ca &

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




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

Asta e! Puneți fișierul RSS pe serverul dvs. și asigurați-vă că actualizați IIS, astfel încât să știe să gestioneze fișierele cu extensie RSS ca fișiere ASP. Acum ar trebui să poți introduce URL-ul acelui fișier RSS în cititorul tău RSS și să primești actualizările!

Feed RSS - Partea antet

Bazele unui flux RSS
Exemplu de flux RSS
Configurarea de bază a unui fișier ASP RSS