Forbedret RSS-kode ved hjælp af ASP

• Kan 17, 2024

Advarsel - Cool kodeindhold foran!

Her er hvad du skal gøre. Sørg for, at du har oprettet din database, uanset om det er Access eller SQL. Når du har gjort det, skal du notere din forbindelsesstreng og tabelnavne. Til denne øvelse vil jeg bruge følgende:

articleID - Automatisk nummer - dette nummer vil blive inkorporeret i linket (Brug int med frø til SQL og autonummer til adgang)
Dato tilføjet - Dato og tid, hvor artiklen blev tilføjet
AddedBy - Forfatter af artiklen
ShortDesc - Enkel beskrivelse, uanset om det er nyheder eller informationstype
ArticleContent - Den aktuelle nyhedsinformation for artiklen.

Nu, med denne version, anvender vi den specielle XML-formatering for at sikre, at når RSS-læser får nyhedsartiklerne, vil den ikke mislykkes på grund af nogen specielle tegn, som læseren ikke kan behandle. RSS med XML-format er meget betyder om, hvilke tegn der behandles, men vi vil sørge for, at det ikke kan behandle nogen dårlige tegn, og vi vil kalde det ApplySpecialFormat-funktion.

En ting til at bemærke, hvis du vil have brugere til at se artiklen, når de klikker på linket i deres læser, skal du sørge for at oprette en side, der viser artiklen og dens oplysninger. Du har sandsynligvis allerede dette, men jeg ville bare sikre mig, at jeg sagde det bare for tilfældet. Til denne øvelse bruger jeg article_view.asp.

Nu til koden: (Gem filen som Articlesver2.rss på din webserver.)


<% 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 ved hjælp af ASP-kode
//www.myserver.com
RSS Brug af ASP-kode til at se nye og eksisterende artikler fra en database.
en-os
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS ved hjælp af ASP-kodelogo
//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)

DOBBELT KLIK HER FOR TILGANG TIL LINKEN TIL NEDLASTNINGEN AF UDSTYR
Artikel Kilde


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



Hvis du nu har oprettet dine tabeller og har tilføjet oplysninger til din database, kan du teste filen i din RSS-læser. Jeg bruger en gratis læser fra www.rssreader.com. Det giver mig mulighed for at se alle de muligheder, jeg kan bruge i RSS-feedet, og det vil fortælle mig, om der er nogen fejl, når jeg behandler det.

Hvis vi taler om fejl, hvis der er nogle, skal du blot indsætte RSS-filens URL i din webbrowser, og det skal fortælle dig, hvilket linienummer fejlen er, som igen giver dig mulighed for at rette problemet. (For at se fejlmeddelelser skal du sikre dig, at du har deaktiveret de "venlige meddelelser" til ASP - Se Microsofts TechNet-artikel
Deaktiver venlige meddelelser) De fleste fejl, som jeg normalt støder på, er syntaksfejl, hvilket betyder, at du er nødt til at anvende formateringen på output fra din RSS-fil.

Det er det! Hold dine øjne åbne for flere artikler på RSS, og hvordan det kan være et værdifuldt værktøj.

Video Instruktioner: The Third Industrial Revolution: A Radical New Sharing Economy (Kan 2024).