Poboljšani RSS kod pomoću ASP-a

• Travanj 23, 2024

Upozorenje - Cool Code Sadržaj unaprijed !!

Evo što trebate učiniti. Provjerite jeste li stvorili bazu podataka bilo da je to Access ili SQL. Nakon što to učinite, zabilježite naziv veznog niza i tablice. Za ovu vježbu koristit ću sljedeće:

IDčlanka - Automatski broj - ovaj će se broj uključiti u vezu. (Koristite int sa sjemenom za SQL i autonumber za pristup)
Datum dodan - Datum i vrijeme kada je članak dodan
AddedBy - Autor članka
ShortDesc - Jednostavan opis, bilo da se radi o vijestima ili vrsti informacija
ArticleContent - stvarne vijesti za članak.

Sada ćemo s ovom verzijom primjenjivati ​​posebno XML oblikovanje kako bismo bili sigurni da kad RSS Reader dobije vijesti, neće uspjeti zbog bilo kojeg posebnog znaka koji čitatelj ne može obraditi. RSS s XML formatom vrlo je izbirljiv u vezi s tim koji se znakovi obrađuju, ali pobrinut ćemo se da ne može obraditi nijedne loše znakove i nazvat ćemo ga applySpecialFormat funkcijom.

Još jedna stvar koju treba napomenuti, ako želite da korisnici pregledavaju članak kada kliknu na vezu u svom čitaču, napravite stranicu koja će pokazati članak i njegove podatke. To vjerojatno već imate, ali želio sam biti siguran da sam to rekao za svaki slučaj. Za ovu vježbu koristit ću article_view.asp.

Sad za kôd: (Spremite datoteku kao Articlever2.rss na svoj web poslužitelj.)


<% 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 pomoću ASP koda
//www.myserver.com
RSS Korištenje ASP koda za pregled novih i postojećih članaka iz baze podataka.
hr-hr
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS koristeći logotip ASP koda
//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)

Dupli KLIKNITE OVDJE DA DOSTAVITE LINK ZA PREUZIMANJE PRILIKA
Izvor članka


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



Ako ste kreirali tablice i dodali podatke u bazu podataka, možete testirati datoteku u svom RSS Readeru. Koristim besplatan čitač s web stranice www.rssreader.com. Omogućuje mi da vidim sve mogućnosti koje mogu koristiti u RSS feedu i reći će mi postoje li pogreške pri obradi.

Kada govorimo o greškama, ako ih ima, jednostavno zalijepite URL datoteke RSS u vaš web preglednik i on bi vam trebao reći na kojem je retku greška, a zauzvrat vam omogućuje da ispravite problem. (Da biste vidjeli poruke o pogrešci, provjerite jeste li isključili "prijateljske poruke" za ASP - Pogledajte Microsoftov TechNet članak
Isključite prijateljske poruke) Većina pogrešaka na koje najčešće nailazim na sintaksne pogreške, što znači da trebate primijeniti oblikovanje na izlaz svoje RSS datoteke.

To je to! Držite oči otvorene za više članaka o RSS-u i o tome kako on može biti vrijedan alat.

Upute Video: Salad Fingers 11: Glass Brother (Travanj 2024).