Vylepšený kód RSS pomocou ASP

• Smieť 8, 2024

Varovanie - Chladný obsah kódu dopredu !!

Tu je to, čo musíte urobiť. Uistite sa, že máte databázu vytvorenú, či už je to Access alebo SQL. Po dokončení si poznamenajte svoje pripojovacie reťazce a názvy tabuliek. Na toto cvičenie použijem nasledujúce:

articleID - Automatické číslo - toto číslo bude začlenené do odkazu. (Použite int so semienkom pre SQL a autonumber pre Access)
DateAdded - dátum a čas, keď bol článok pridaný
AddedBy - Autor článku
ShortDesc - Jednoduchý popis, či ide o novinky alebo informácie o druhu článku
ArticleContent - Aktuálne informácie o článku.

Teraz s touto verziou použijeme špeciálne formátovanie XML, aby sme sa ubezpečili, že keď program RSS Reader dostane články s novinkami, nezlyhá kvôli žiadnym špeciálnym postavám, ktoré čitateľ nedokáže spracovať. RSS vo formáte XML je veľmi zložité na to, aké znaky sa spracúvajú, ale ubezpečíme sa, že nedokáže spracovať žiadne zlé znaky a zavoláme mu funkciu applySpecialFormat.

Ešte jedna vec, ktorú treba poznamenať, ak chcete, aby si používatelia prezerali článok po kliknutí na odkaz v ich čítačke, uistite sa, že ste vytvorili stránku, ktorá zobrazí článok a jeho informácie. Pravdepodobne to už máte, ale chcel som sa len uistiť, že som to povedal len pre prípad. Na toto cvičenie budem používať article_view.asp.

Teraz pre kód: (Uložte súbor ako articlesver2.rss na webový server.)


<% 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 pomocou kódu ASP
//www.myserver.com
RSS Použitie kódu ASP na prezeranie nových a existujúcich článkov z databázy.
en-us
Autorské práva 2006

20

//www.myserver.com/images/logo.jpg
RSS pomocou kódu ASP
//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)

KLIKNUTÍM TU NA PRÍSTUP K LINKU NA STIAHNUTIE PRÍLOH
Zdroj článku


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



Ak ste teraz vytvorili tabuľky a do svojej databázy ste pridali informácie, môžete tento súbor otestovať v čítačke RSS. Používam bezplatnú čítačku zo stránok www.rssreader.com. To mi umožňuje vidieť všetky možnosti, ktoré môžem použiť v informačnom kanáli RSS, a povie mi, či pri spracovaní existujú nejaké chyby.

Keď už hovoríme o chybách, jednoducho vložte webovú adresu súboru RSS do webového prehľadávača a malo by vám povedať, na ktorom čísle riadku sa chyba vyskytuje a na druhej strane vám umožňuje problém vyriešiť. (Ak chcete zobraziť chybové správy, uistite sa, že ste vypli „priateľské správy“ pre ASP - pozrite si článok TechNet od spoločnosti Microsoft
Vypnutie priateľských správ) Väčšina chýb, s ktorými sa zvyčajne stretávam, sú chyby syntaxe, čo znamená, že musíte použiť formátovanie na výstup z vášho súboru RSS.

Toto je to! Majte oči otvorené pre viac článkov o RSS a ako to môže byť cenným nástrojom.