Forbedret RSS-kode ved bruk av ASP
Advarsel - kult kodeinnhold foran!

Dette er hva du trenger å gjøre. Forsikre deg om at databasen din er opprettet enten det er Access eller SQL. Når du har gjort det, må du merke tilkoblingsstrengen og tabellenavn. For denne øvelsen skal jeg bruke følgende:

artic - Automatisk nummer - dette nummeret vil bli integrert i lenken. (Bruk int med seed for SQL og autonummer for Access)
Dato lagt til - Dato og klokkeslett for artikkelen ble lagt til
Lagt til av - Forfatter av artikkelen
ShortDesc - Enkel beskrivelse enten det er nyheter eller artikkel om informasjonstype
ArticleContent - Selve nyhetsinformasjonen for artikkelen.

Nå, med denne versjonen, vil vi bruke den spesielle XML-formateringen for å sikre at når RSS Reader får nyhetsartiklene, vil den ikke mislykkes på grunn av noen spesielle tegn leseren ikke kan behandle. RSS med XML-format er veldig kresen når det gjelder hvilke tegn som blir behandlet, men vi vil sørge for at det ikke kan behandle noen dårlige tegn, og vi vil kalle det ApplySpecialFormat-funksjonen.

En ting til å merke seg, hvis du vil at brukere skal se artikkelen når de klikker på lenken i leseren, må du sørge for at du lager en side som viser artikkelen og informasjonen. Du har sannsynligvis allerede dette, men jeg ville bare sørge for at jeg sa det bare i tilfelle. På denne øvelsen bruker jeg article_view.asp.

Nå for koden: (Lagre filen som Articlesver2.rss på webserveren.)


<% 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 hjelp av ASP-kode
//www.myserver.com
RSS Bruke ASP-kode for å se nye og eksisterende artikler fra en database.
en-us
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS ved hjelp av 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 KLIKK HER for å få tilgang til koblingen til lastebilen
Artikkel Kilde


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



Hvis du nå har laget tabellene dine og har lagt til informasjon i databasen din, kan du teste filen i RSS Reader. Jeg bruker en gratis leser fra www.rssreader.com. Den lar meg se alle alternativene jeg kan bruke i RSS-feeden, og det vil fortelle meg om det er noen feil når jeg behandler den.

Hvis du snakker om feil, hvis det er noen, bare lim inn URL-adressen til RSS-filen i nettleseren din, og den skal fortelle deg hvilket linjenummer feilen er, som igjen lar deg løse problemet. (For å se feilmeldinger, må du forsikre deg om at du har slått av "vennlige meldinger" for ASP - Se Microsofts TechNet-artikkel
Slå av vennlige meldinger) De fleste feilene jeg vanligvis støter på er syntaksfeil, noe som betyr at du må bruke formateringen på utdataene fra RSS-filen.

Det er det! Hold øynene åpne for flere artikler på RSS og hvordan det kan være et verdifullt verktøy.

Video Instruksjoner: The Third Industrial Revolution: A Radical New Sharing Economy (Mars 2024).