Patobulintas RSS kodas naudojant ASP

• Gegužė 3, 2024

Įspėjimas - šaunus kodo turinys pirmyn !!

Štai ką jums reikia padaryti. Įsitikinkite, ar sukūrėte savo duomenų bazę, nesvarbu, ar tai „Access“, ar „SQL“. Kai tai padarysite, atkreipkite dėmesį į savo ryšio eilutes ir lentelių pavadinimus. Šiam pratimui naudosiu šiuos dalykus:

StraipsnioID - Automatinis numeris - šis numeris bus įtrauktas į saitą (SQL naudokite int su sėkla, o prieigai naudokite autonominį numerį).
Data pridėta - Straipsnio pridėjimo data ir laikas
PridėtaBy - Straipsnio autorius
„ShortDesc“ - Paprastas aprašymas, nesvarbu, ar tai naujienų, ar informacijos pobūdžio straipsniai
Straipsnio turinys - Faktinė straipsnio naujienų informacija.

Dabar su šia versija taikysime specialų XML formatavimą, kad įsitikintume, jog gavus RSS skaitymo priemonės naujienų straipsnius jis nepavyks dėl jokių specialių simbolių, kurių skaitytojas negali apdoroti. RSS su XML formatu yra labai išrankus dėl to, kokie simboliai yra apdorojami, tačiau įsitikinsime, kad jis negali apdoroti jokių blogų ženklų, ir mes tai vadinsime „functionSpecialFormat“ funkcija.

Dar vienas dalykas, į kurį reikia atkreipti dėmesį, jei norite, kad vartotojai peržiūrėtų straipsnį spustelėję skaitytojui pateiktą nuorodą, būtinai sukurkite puslapį, kuriame bus rodomas straipsnis ir jo informacija. Tikriausiai jau turite tai, bet aš tik norėjau įsitikinti, kad tai pasakiau kiekvienu atveju. Šiam pratimui aš panaudosiu Article_view.asp.

Dabar kodas: (Išsaugokite failą kaip articlesver2.rss savo žiniatinklio serveryje.)


<% 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 naudojant ASP kodą
//www.myserver.com
RSS Naudojant ASP kodą, norint peržiūrėti naujus ir esamus straipsnius iš duomenų bazės.
en-us
Autorių teisės 2006 m

20

//www.myserver.com/images/logo.jpg
RSS naudojant ASP kodo logotipą
//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 (Christopheris Combsas)

Dukart spustelėkite čia, kad pasiektumėte priedą, kurį norite parsisiųsti
Straipsnio šaltinis


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



Dabar, jei sukūrėte lenteles ir įtraukėte informaciją į savo duomenų bazę, galite išbandyti failą savo RSS skaitymo priemonėje. Aš naudoju nemokamą skaitytoją iš www.rssreader.com. Tai leidžia man pamatyti visas parinktis, kurias galiu naudoti RSS sklaidos kanale, ir nurodys, ar jas apdorojant yra kokių nors klaidų.

Kalbėdamas apie klaidas, jei tokių yra, tiesiog įklijuokite RSS failo URL į savo interneto naršyklę ir jis turėtų pasakyti, kuriame eilutės numeryje yra klaida, kuri savo ruožtu leidžia ištaisyti problemą. (Norėdami pamatyti klaidų pranešimus, įsitikinkite, kad išjungėte „draugiškus pranešimus“, skirtus ASP - žr. „Microsoft“ „TechNet“ straipsnį
Išjungti draugiškus pranešimus) Daugiausia klaidų, su kuriomis dažniausiai susiduriu, yra sintaksės klaidos, tai reiškia, kad turite naudoti formatą savo RSS failo išvestyje.

Viskas! Atidžiai stebėkite daugiau straipsnių apie RSS ir kaip tai gali būti vertinga priemonė.