Parannettu RSS-koodi ASP: tä käyttämällä

• Tammikuu 27, 2023

Varoitus - tyylikäs koodisisältö edessä !!

Tässä on mitä sinun täytyy tehdä. Varmista, että olet luonut tietokannan, olipa se Access tai SQL. Kun olet tehnyt tämän, muista yhteysjono ja taulukkonimet. Tässä harjoituksessa aion käyttää seuraavaa:

articleID - Automaattinen numero - tämä numero sisällytetään linkkiin (Käytä int siementen kanssa SQL: lle ja autonumero Accessille)
Lisäyspäivämäärä - Päivämäärä ja aika, jolloin artikkeli lisättiin
AddedBy - Artikkelin kirjoittaja
ShortDesc - Yksinkertainen kuvaus riippumatta siitä, onko kyse uutista tai tietotyyppistä artikkelia
ArticleContent - Artikkelin todelliset uutiset.

Nyt tässä versiossa käytämme erityistä XML-muotoilua varmistaaksemme, että kun RSS-syötteenlukija saa uutiset, se ei epäonnistu erityisten merkkien takia, joita lukija ei voi käsitellä. XML-muodossa oleva RSS on erittäin nirso prosessoitavien merkkien suhteen, mutta varmistamme, että se ei pysty käsittelemään huonoja merkkejä, ja kutsumme sitä applySpecialFormat-toimintoksi.

Vielä yksi huomionarvoinen asia, jos haluat käyttäjien katselevan artikkelia napsauttaessaan lukijan linkkiä, varmista, että luot sivun, jolla näkyy artikkeli ja sen tiedot. Sinulla todennäköisesti jo on tämä, mutta halusin vain varmistaa, että sanoin sen joka tapauksessa. Aion käyttää tätä harjoitusta article_view.asp.

Nyt koodi: (Tallenna tiedosto artikkelinver2.rss-muodossa verkkopalvelimellesi.)


<% 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-koodilla
//www.myserver.com
RSS ASP-koodin avulla katsellaksesi uusia ja olemassa olevia artikkeleita tietokannasta.
en-us
Tekijänoikeus 2006

20

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

Tuplaklikkaa tätä napsauttamalla päästäksesi ladattavaan liitäntään
Artikkelin lähde


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



Nyt, jos olet luonut taulukot ja lisännyt tietoja tietokantaasi, voit testata tiedoston RSS-lukijassa. Käytän ilmaista lukijaa osoitteesta www.rssreader.com. Sen avulla voin nähdä kaikki vaihtoehdot, joita voin käyttää RSS-syötteessä, ja se kertoo, onko virheitä käsiteltäessä sitä.

Jos virheitä on, liitä RSS-tiedoston URL-osoite selaimeesi, ja sen pitäisi kertoa, missä rivinumeroessa virhe on, mikä puolestaan ​​antaa sinun korjata ongelma. (Jos haluat nähdä virheilmoitukset, varmista, että olet poistanut ystävälliset viestit ASP: stä - katso Microsoftin TechNet-artikkeli
Poista ystävälliset viestit käytöstä) Useimmat tavallisesti kohtaamat virheet ovat syntaksivirheitä, mikä tarkoittaa, että sinun on käytettävä muotoilua RSS-tiedostosi tuotokseen.

Se on siinä! Pidä silmäsi auki lisää RSS-artikkeleita ja kuinka se voi olla arvokas työkalu.

Video-Ohjeita: ЧТО ЕСЛИ НАШ МИР ЗАХВАЧЕН? Кто Управляет Людьми на Земле? (Tammikuu 2023).