Κωδικοποίηση μιας ροής RSS - Σώμα

• Απρίλιος 29, 2024

Είναι πολύ εύκολο να χρησιμοποιήσετε το ASP για να δημιουργήσετε μια δυναμική ροή RSS που ενημερώνεται κάθε φορά που προσθέτετε νέο περιεχόμενο στον ιστότοπό σας. Αυτή η σελίδα σάς βοηθά να αποκτήσετε το σώμα - ή το βασικό περιεχόμενο - μέρος του αρχείου RSS.

Αρχικά, βεβαιωθείτε ότι έχετε δημιουργήσει έναν αναγνώστη RSS για να ελέγξετε τη ροή δεδομένων σας και ότι έχετε διαβάσει τα βασικά στοιχεία και εκτυπώσατε το δείγμα. Αυτά θα είναι σημαντικά, ώστε να μπορείτε να ελέγξετε την παραγωγή σας. Βεβαιωθείτε ότι έχετε ήδη βάλει το επικεφαλίδα / το επάνω μέρος του αρχείου RSS σας, το πρότυπο κορυφαίο που θα μπορούσε να προχωρήσει στην πλειονότητα των RSS feed που δημιουργήσατε.

Τώρα βρισκόμαστε στην ενότητα του αρχείου RSS που περιέχει στην πραγματικότητα τη μεταβαλλόμενη ανακοίνωση ειδήσεων, τις ενημερώσεις ιστολογίου, ό, τι κι αν λέτε στους ανθρώπους. Ας πούμε για το επιχείρημα ότι έχετε "άρθρα" και θέλετε πάντα να λέτε στους ανθρώπους ποια είναι τα τελευταία 3 άρθρα σας. Εδώ είναι το μπλοκ κώδικα που θα χρησιμοποιούσατε. Σημειώστε ότι πρέπει να αφαιρέσετε τα παράξενα αποσπάσματα και τις προσθήκες για να λειτουργήσει σωστά η XML. Η XML λειτουργεί μόνο με βασικά γράμματα και αριθμούς. Τσακίζει ειδικούς χαρακτήρες. Οι Ampersands πρέπει να διαφεύγουν ως &

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




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

Αυτό είναι! Βάλτε αυτό το αρχείο RSS στο διακομιστή σας και βεβαιωθείτε ότι έχετε ενημερώσει την υπηρεσία IIS, ώστε να γνωρίζει να χειρίζεται αρχεία με επέκταση RSS ως αρχεία ASP. Τώρα θα πρέπει να μπορείτε να βάλετε τη διεύθυνση URL αυτού του αρχείου RSS στον αναγνώστη RSS και να λάβετε τις ενημερώσεις!

Τροφοδοσία RSS - Κεφαλίδα Μέρος

Βασικά στοιχεία μιας ροής RSS
Δείγμα ροής RSS
Βασική ρύθμιση ενός αρχείου ASP RSS

Οδηγίες Βίντεο: The Third Industrial Revolution: A Radical New Sharing Economy (Απρίλιος 2024).