Кодирование RSS-канала - Body

• April 29, 2024

ASP очень легко использовать для создания динамического канала RSS, который обновляется всякий раз, когда вы добавляете свежий контент на свой сайт. Эта страница поможет вам получить основной текст или основной контент из набора файлов RSS.

Во-первых, убедитесь, что вы настроили программу чтения RSS для тестирования своего канала, и что вы прочитали об основах и распечатали образец. Это будет важно, чтобы вы могли проверить свои результаты. Убедитесь, что вы уже поместили заголовок / верхнюю часть своего RSS-файла, стандартную верхнюю часть, которая будет использоваться в большинстве создаваемых вами RSS-каналов.

Теперь мы находимся в разделе RSS-файла, который на самом деле содержит информацию об изменениях в новостях, обновлениях блога, о чем бы вы ни рассказывали. Допустим, ради аргумента, что у вас есть «статьи», и вы всегда хотите рассказать людям, каковы ваши 3 последние статьи. Вот кодовый блок, который вы бы использовали. Обратите внимание, что для правильной работы XML вы должны удалить странные кавычки и амперсанды. XML работает только с основными буквами и цифрами. Он задыхается от специальных символов. Амперсанды должны быть экранированы как &

<%
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 Feed - Часть заголовка

Основы RSS-канала
Образец RSS-канала
Базовая настройка файла RSS ASP

Видео инструкция: SCP-093 Red Sea Object | euclid | portal / extradimensional scp (April 2024).