Кодирање РСС фида - Боди

• Може 17, 2024

АСП је врло једноставан за коришћење динамичког РСС фида који се ажурира када додате свеж садржај на вашу веб локацију. Ова страница вам помаже да добијете основни или основни садржај - део скупа РСС датотека.

Прво проверите да ли сте поставили РСС читач за тестирање вашег фееда и да сте прочитали о основама и одштампали узорак. То ће бити важно како бисте могли да тестирате свој излаз. Уверите се да сте већ ставили у заглавље / горњи део своје РСС датотеке, стандардни врх који ће ићи на већину свих РСС фееда које сте креирали.

Сада смо у делу РСС фајла који заправо садржи најаве о променама вести, ажурирања блогова, без обзира о чему говорите људима. Рецимо ради аргументације да имате „чланке“ и да желите људима увек да кажете шта су ваша 3 последња чланка. Ево блока кода који бисте користили. Имајте на уму да морате да уклоните необичне наводнике и амперданде да би КСМЛ правилно радио. КСМЛ ради САМО са основним словима и бројевима. Гуши се посебним ликовима. Амперсанди морају бити избачени као &

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






ИОУРЛГОЕСХЕРЕПЛУС & АРТИД = .асп








<%
FeatSite.MoveNext
FeatCt = FeatCt + 1
loop
FeatSite.close()
set FeatSite = Nothing
%>




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

То је то! Ставите ту РСС датотеку на свој сервер и обавезно ажурирајте ИИС тако да он зна руковати датотекама са РСС екстензијом као АСП датотеке. Сада бисте требали бити у могућности да УРЛ те РСС датотеке ставите у свој РСС читач и добијете исправке!

РСС Феед - Хеадер Парт

Основе РСС фида
РСС Феед Сампле
Основно подешавање РСС АСП датотеке