Vylepšený RSS kód pomocí ASP

• Duben 25, 2024

Upozornění - Skvělý obsah kódu dopředu !!

Zde je to, co musíte udělat. Ujistěte se, že máte databázi vytvořenou, ať už je to Access nebo SQL. Jakmile to uděláte, poznamenejte si připojovací řetězec a názvy tabulek. Pro toto cvičení budu používat následující:

ArticleID - Automatické číslo - toto číslo bude začleněno do odkazu. (Použijte int se semenem pro SQL a autonumber pro Access)
Datum přidáno - Datum a čas, kdy byl článek přidán
Přidal - autor článku
ShortDesc - Jednoduchý popis, zda se jedná o novinky nebo informační typ článku
ArticleContent - Aktuální informace o článku.

Nyní s touto verzí použijeme speciální formátování XML, abychom se ujistili, že když RSS Reader dostane články s novinkami, nezklame kvůli zvláštním znakům, které čtenář nemůže zpracovat. RSS ve formátu XML je velmi vybíravé o tom, jaké postavy se zpracovávají, ale ujistíme se, že nedokáže zpracovat žádné špatné znaky, a my tomu budeme říkat funkce applySpecialFormat.

Ještě jedna věc, kterou si všimněte, pokud chcete, aby si uživatelé článek prohlíželi, když kliknou na odkaz ve své čtečce, vytvořte stránku, která zobrazí článek a jeho informace. Pravděpodobně už to máte, ale chtěl jsem se jen ujistit, že jsem to pro jistotu řekl. Pro toto cvičení budu používat article_view.asp.

Nyní pro kód: (Uložte soubor jako articlesver2.rss na svůj 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 pomocí kódu ASP
//www.myserver.com
RSS Použití kódu ASP k prohlížení nových a existujících článků z databáze.
en-us
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS pomocí 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)

KLIKNĚTE ZDE, abyste získali přístup k odkazu pro stahování
Zdroj článku


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



Nyní, pokud jste vytvořili své tabulky a přidali jste do své databáze informace, můžete tento soubor otestovat v RSS čtečce. Používám bezplatnou čtečku z www.rssreader.com. To mi umožňuje vidět všechny možnosti, které mohu použít v RSS kanálu, a to mi řekne, jestli existují nějaké chyby při jeho zpracování.

Když už mluvíme o chybách, jednoduše vložte URL souboru RSS do svého webového prohlížeče a mělo by vám sdělit, jaké číslo řádku je chyba, na které vám zase umožní problém opravit. (Chcete-li zobrazit chybové zprávy, ujistěte se, že jste vypnuli „přátelské zprávy“ pro ASP - viz článek TechNet společnosti Microsoft
Vypnutí přátelských zpráv) Většina chyb, se kterými se obvykle setkám, jsou chyby syntaxe, což znamená, že je třeba použít formátování na výstup vašeho souboru RSS.

To je vše! Mějte oči otevřené pro další články o RSS a jak to může být cenným nástrojem.

Video Návody: The Internet's Own Boy: The Story of Aaron Swartz (Duben 2024).