Codage d'un flux RSS - Corps

• Avril 30, 2024

Il est très facile d'utiliser ASP pour créer un flux RSS dynamique qui se met à jour chaque fois que vous ajoutez du nouveau contenu à votre site. Cette page vous aide à obtenir le corps - ou le contenu principal - de l'ensemble de fichiers RSS.

Tout d'abord, assurez-vous que vous avez configuré un lecteur RSS pour tester votre flux, et que vous avez lu les principes de base et imprimé l'échantillon. Ceux-ci seront importants pour que vous puissiez tester votre sortie. Assurez-vous que vous avez déjà mis dans l'en-tête / la partie supérieure de votre fichier RSS, le haut standard qui irait sur la plupart des flux RSS que vous avez créés.

Maintenant, nous sommes dans la section du fichier RSS qui contient en fait l'annonce changeante des nouvelles, les mises à jour du blog, tout ce dont vous parlez aux gens. Disons que pour avoir des arguments, vous avez des "articles" et vous voulez toujours dire aux gens quels sont vos 3 derniers articles. Voici le bloc de code que vous utiliseriez. Notez que vous devez supprimer les guillemets étranges et les esperluettes pour que XML fonctionne correctement. XML fonctionne UNIQUEMENT avec des lettres et des chiffres de base. Il étouffe les caractères spéciaux. Les esperluettes doivent être échappées en tant que &

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




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

C'est ça! Placez ce fichier RSS sur votre serveur et assurez-vous de mettre à jour IIS afin qu'il sache gérer les fichiers avec une extension RSS en tant que fichiers ASP. Vous devriez maintenant pouvoir mettre l'URL de ce fichier RSS dans votre lecteur RSS et obtenir les mises à jour!

Flux RSS - Partie d'en-tête

Principes de base d'un flux RSS
Exemple de flux RSS
Configuration de base d'un fichier RSS ASP

Instructions Vidéo: Présentation de jQuery - Tutoriel JavaScript (Avril 2024).