Továbbfejlesztett RSS kód az ASP használatával

• Április 29, 2024

Figyelem - Hűvös kódtartalom előre !!

Itt van, mit kell tennie. Győződjön meg arról, hogy létrehozta-e az adatbázisát, akár Access, akár SQL. Miután ezt megtette, jegyezze fel a kapcsolati karakterláncot és a táblázatneveket. Ehhez a következőket fogom használni:

articleID - Automatikus szám - ezt a számot beépítik a hivatkozásba. (Használjon int maggal az SQL-hez és autonumber-t az Accesshez)
Dátum hozzáadva - A cikk hozzáadásának dátuma és időpontja
Hozzáadta - A cikk szerzője
ShortDesc - Egyszerű leírás, függetlenül attól, hogy hírek vagy információ típusú-e cikk
ArticleContent - A cikk aktuális hírinformációi.

Most, ezzel a verzióval, a speciális XML-formázást fogjuk alkalmazni, hogy megbizonyosodjunk arról, hogy amikor az RSS-olvasó megkapja a hírcikkeket, az nem fog hibásan fellépni olyan speciális karakterek miatt, amelyeket az olvasó nem tud feldolgozni. Az XML formátumú RSS nagyon válogatott a feldolgozott karakterek vonatkozásában, de gondoskodunk arról, hogy az nem képes rossz karaktereket feldolgozni, és ezt hívjuk az applicationSpecialFormat függvénynek.

Még egy dolog, amit érdemes megjegyezni: ha azt akarja, hogy a felhasználók a cikkben megtekintsék az olvasóban található linkre kattintva, feltétlenül hozzon létre egy oldalt, amelyen megjelenik a cikk és annak információi. Valószínűleg már megvan ez, de csak azt akartam megbizonyosodni róla, hogy minden esetre elmondtam. Ehhez a feladathoz fogok használni article_view.asp.

Most a kódhoz: (Mentsd el a fájlt cikkver2.rss néven a webszerverre.)


<% 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 ASP kód használatával
//www.myserver.com
RSS ASP-kód használata az új és meglévő cikkek megtekintéséhez adatbázisból.
en-us
Szerzői jog 2006

20

//www.myserver.com/images/logo.jpg
RSS ASP kód emblémával
//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)

DUPLKON KATTINTSON IDE, HOGY HOZZON HOZZÁ A HOZZÁFÉRÉS LETÖLTÉSÉHEZ
Cikk forrás


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



Most, ha létrehozta a táblázatokat, és információkat adott az adatbázisához, kipróbálhatja a fájlt az RSS olvasóban. Ingyenes olvasót használok a www.rssreader.com webhelyről. Ez lehetővé teszi számomra az összes olyan lehetőség megtekintését, amelyet az RSS-hírcsatornában használhatok, és megtudja, vannak-e hibák feldolgozása során.

A hibákról - ha vannak ilyenek - egyszerűen illessze be az RSS fájl URL-jét a böngészőbe, és el kell mondania, hogy a hibán melyik sorszám található, amely viszont lehetővé teszi a probléma kijavítását. (A hibaüzenetek megtekintéséhez győződjön meg arról, hogy kikapcsolta az ASP „barátságos üzeneteit” - lásd a Microsoft TechNet cikket
A barátságos üzenetek kikapcsolása.) A legtöbb hiba, amellyel általában találkozom, szintaxis hiba, ami azt jelenti, hogy a formázást alkalmaznia kell az RSS fájl kimenetére.

Ez az! Tartsd nyitva a szemét az RSS további cikkeiről és arról, hogy mi lehet értékes eszköz.

Video Utasításokat: ОБЗОР ANET A8 PLUS НЕ ДОРОГОЙ 3D ПРИНТЕР ДЛЯ НОВИЧКОВ - СБОРКА (Április 2024).