Codierung eines RSS-Feed-Körpers
Es ist sehr einfach, mit ASP einen dynamischen RSS-Feed zu erstellen, der aktualisiert wird, wenn Sie Ihrer Website neuen Inhalt hinzufügen. Auf dieser Seite können Sie den Hauptteil des RSS-Dateisatzes abrufen.

Stellen Sie zunächst sicher, dass Sie einen RSS-Reader zum Testen Ihres Feeds eingerichtet haben und dass Sie die Grundlagen gelesen und das Beispiel ausgedruckt haben. Diese sind wichtig, damit Sie Ihre Ausgabe testen können. Stellen Sie sicher, dass Sie bereits den Header / oberen Teil Ihrer RSS-Datei eingefügt haben, den Standard-Top, der für die meisten von Ihnen erstellten RSS-Feeds verwendet wird.

Jetzt befinden wir uns in dem Abschnitt der RSS-Datei, der tatsächlich die sich ändernden Nachrichtenankündigungen, Blog-Updates und alles enthält, worüber Sie den Leuten erzählen. Nehmen wir zum Zwecke der Argumentation an, Sie haben "Artikel" und möchten den Leuten immer sagen, was Ihre 3 neuesten Artikel sind. Hier ist der Codeblock, den Sie verwenden würden. Beachten Sie, dass Sie seltsame Anführungszeichen und kaufmännisches Und entfernen müssen, damit XML ordnungsgemäß funktioniert. XML funktioniert NUR mit einfachen Buchstaben und Zahlen. Es verschluckt sich an Sonderzeichen. Das kaufmännische Und muss als & maskiert werden

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




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

Das ist es! Legen Sie diese RSS-Datei auf Ihrem Server ab und stellen Sie sicher, dass Sie IIS aktualisieren, damit es Dateien mit einer RSS-Erweiterung als ASP-Dateien verarbeiten kann. Jetzt sollten Sie in der Lage sein, die URL dieser RSS-Datei in Ihren RSS-Reader zu kopieren und die Updates zu erhalten!

RSS Feed - Header Teil

Grundlagen eines RSS-Feeds
RSS-Feed-Probe
Grundeinstellung einer RSS-ASP-Datei

Video-Anleitungen: SCP-093 Red Sea Object | euclid | portal / extradimensional scp (Juni 2020).