Kodiranje RSS feeda - Tijelo

• Travanj 29, 2024

ASP je vrlo jednostavan za stvaranje dinamičkog RSS feeda koji se ažurira kad god dodate svježi sadržaj na web mjesto. Ova vam stranica pomaže da dobijete tjelesni - ili osnovni sadržaj - dio skupa RSS datoteka.

Prvo provjerite jeste li postavili RSS čitač za testiranje feeda i jeste li pročitali o osnovama i ispisali uzorak. To će biti važno kako biste mogli testirati svoj izlaz. Obavezno stavite u zaglavlje / gornji dio svoje RSS datoteke, standardni vrh koji će se nalaziti na većini RSS feeda koje ste stvorili.

Sada smo u dijelu RSS datoteke koja zapravo sadrži promjenu vijesti o novostima, ažuriranja blogova, bez obzira na to o čemu govorite ljudima. Recimo radi argumentacije da imate "članke" i da želite ljudima uvijek reći što su vaša 3 najnovija članka. Evo bloka koda koji biste koristili. Imajte na umu da morate izbrisati neobične citate i amperdande da bi XML ispravno radio. XML radi SAMO s osnovnim slovima i brojevima. Guši se na posebnim likovima. Ampersi moraju biti izbačeni kao &

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




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

To je to! Stavite tu RSS datoteku na svoj poslužitelj i obavezno ažurirajte IIS kako bi znao obraditi datoteke s RSS proširenjem kao ASP datoteke. Sada biste trebali biti u mogućnosti staviti URL te RSS datoteke u svoj RSS čitač i dobiti ažuriranja!

RSS feed - dio zaglavlja

Osnove RSS feeda
RSS uzorak za feed
Osnovna postava RSS ASP datoteke

Upute Video: What Happens When You Stop Smoking? (Travanj 2024).