Förbättrad RSS-kod med ASP

• April 25, 2024

Varning - Cool kodinnehåll framåt !!

Här är vad du behöver göra. Se till att du har skapat din databas oavsett om det är Access eller SQL. När du har gjort det, notera din anslutningssträng och tabellnamn. För den här övningen kommer jag att använda följande:

articleID - Automatisk nummer - detta nummer kommer att införlivas i länken (Använd int med frö för SQL och autonummer för åtkomst)
Datum tillagt - Datum och tid då artikeln lades till
Tillagd av - Författare till artikeln
ShortDesc - Enkel beskrivning om det är nyheter eller informationstyp för artikeln
ArticleContent - Den faktiska nyhetsinformationen för artikeln.

Nu med den här versionen kommer vi att använda den speciella XML-formateringen för att se till att när RSS-läsaren får nyhetsartiklarna kommer den inte att misslyckas på grund av några specialtecken som läsaren inte kan behandla. RSS med XML-format är väldigt picky om vilka tecken som behandlas men vi kommer att se till att det inte kan behandla några dåliga tecken och vi kommer att kalla det applicSpecialFormat-funktionen.

En sak att notera, om du vill att användare ska se artikeln när de klickar på länken i sin läsare, se till att du skapar en sida som visar artikeln och dess information. Du har antagligen redan detta men jag ville bara se till att jag sa det för fall. För den här övningen kommer jag att använda article_view.asp.

Nu för koden: (Spara filen som Articlesver2.rss på din webbserver.)


<% Response.Buffer = true
Response.ContentType = "text/xml"
Function applySpecialFormat(strInput)
if len(strInput) > 0 then
strInput = Replace(strInput,"&", "&")
strInput = Replace(strInput,"'", "& apos;") 'REMOVE SPACE BETWEEN & apos;
strInput = Replace(strInput,"""", "& quot;") 'REMOVE SPACE BETWEEN & quot;
strInput = Replace(strInput, ">", "& gt;") 'REMOVE SPACE BETWEEN & gt;
strInput = Replace(strInput,"<","& lt;") 'REMOVE SPACE BETWEEN & lt;
else
strInput = ""
end if
applySpecialFormat = strInput
End Function
%>


RSS med ASP-kod
//www.myserver.com
RSS Använd ASP-kod för att se nya och befintliga artiklar från en databas.
sv-
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS med ASP-kodlogotyp
//www.myserver.com

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.ConnectionString = "Provider=sqloledb;Data Source=DBSERVER;Initial Catalog=ARTICLEDB;User Id=sa;Password=sqlpassword;"
objConn.CursorLocation = 3
objConn.Open

Dim objRS, strSQL, strDesc
strSQL = "SELECT * FROM ArticleDB WHERE (AddedDate <= '" & Now() & "') order by AddedDate DESC"
objRS.Open strSQL, objConn

Do While Not objRS.EOF
strDesc = "Article by " & objRS("AddedBy") & " on " & _
objRS("AddedDate") & " PST
" & _
objRS("ArticleContent").Value %>


()

//www.myserver.com/article_view.asp?ArticleID=



asp@coffebreakblog.com (Christopher Combs)

DUBBELT KLICKA HÄR för att få tillgång till länken för nedladdningen av tillbehöret
Artikel Källa


<%
objRS.MoveNext
Loop
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>



Om du nu har skapat dina tabeller och lagt till information i din databas kan du testa filen i din RSS-läsare. Jag använder en gratis läsare från www.rssreader.com. Det låter mig se alla alternativ jag kan använda i RSS-flödet och det kommer att berätta om det finns några fel när jag behandlar det.

Om du talar om fel, om det finns några, klistra bara in RSS-filens URL i din webbläsare och det bör berätta för dig vilket radnummer felet är på vilket i sin tur låter dig korrigera problemet. (För att se felmeddelanden, se till att du har stängt av "vänliga meddelanden" för ASP - Se Microsofts TechNet-artikel
Stäng av vänliga meddelanden) De flesta fel som jag vanligtvis stöter på är syntaxfel vilket innebär att du måste tillämpa formateringen på utgången från din RSS-fil.

Nu räcker det! Håll ögonen öppna för fler artiklar på RSS och hur det kan vara ett värdefullt verktyg.

Video Instruktioner: Сбор грибов - вешенки #взрослыеидети (April 2024).