RSS-hírcsatorna kódolása

• Lehet 16, 2024

Nagyon könnyű az ASP használatával létrehozni egy dinamikus RSS-hírcsatornát, amely frissül, amikor friss tartalmat ad hozzá a webhelyéhez. Ez az oldal segít abban, hogy az RSS fájlkészlet törzs- vagy magtartalmának részét megkapja.

Először győződjön meg arról, hogy beállított egy RSS-olvasót a hírcsatorna teszteléséhez, és olvassa el az alapokat és kinyomtatta a mintát. Ezek fontosak lesznek, hogy kipróbálhassa a kimenetet. Győződjön meg arról, hogy már betette az RSS-fájl fejlécébe / felső részébe, a szokásos tetejére, amely a létrehozott RSS-hírcsatornák legtöbbjére vonatkozik.

Most az RSS fájl azon részén vagyunk, amely valójában a változó hírleveleket, a blogfrissítéseket tartalmazza, bármi is az, amit mondanak az embereknek. Mondjuk az érv kedvéért, hogy vannak „cikkei”, és mindig el akarod mondani az embereknek, hogy mi a 3 legújabb cikk. Itt van a használni kívánt kódblokk. Vegye figyelembe, hogy az XML megfelelő működése érdekében ki kell szüntetnie a furcsa idézőjeleket és a nagybetűket. Az XML CSAK alapbetűkkel és számokkal működik. Különleges karakterekre fojtja. Az impedanseket el kell kerülni, mivel &

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




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

Ez az! Helyezze az RSS fájlt a szerverre, és feltétlenül frissítse az IIS-t, hogy tudja, hogyan kezelje az RSS kiterjesztésű fájlokat ASP fájlokként. Most már képesnek kell lennie arra, hogy az RSS fájl URL-jét betegye az RSS olvasóba, és megkapja a frissítéseket!

RSS hírcsatorna - fejléc rész

Az RSS-hírcsatorna alapjai
RSS feed minta
RSS ASP fájl alapbeállítása

Video Utasításokat: Amiko beltéri újrahangolása (Lehet 2024).