Кодиране на RSS емисия - тяло

• Може 4, 2024

Много лесно е да използвате ASP за създаване на динамична RSS емисия, която се актуализира всеки път, когато добавяте прясно съдържание към вашия сайт. Тази страница ви помага да получите основното - или основното съдържание - част от набора от RSS файлове.

Първо, уверете се, че сте настроили RSS четец, за да тествате емисията си, и че сте прочели за основните положения и разпечатате пробата. Това ще бъде важно, за да можете да тествате резултатите си. Уверете се, че вече сте поставили в заглавката / горната част на вашия RSS файл, стандартната горна част, която ще отиде на повечето RSS емисии, които сте създали.

Сега сме в раздела на 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 проба за емисия
Основна настройка на RSS ASP файл

Инструкции Видео: 2&200podcast: С Никола Томов за естетиката в духа и тялото (еп.15) (Може 2024).