Cod RSS îmbunătățit folosind ASP

• Mai 3, 2024

Avertisment - Conținut de cod cool înainte!

Iată ce trebuie să faci. Asigurați-vă că aveți baza de date creată dacă este Access sau SQL. După ce ați făcut acest lucru, notați șirul de conexiune și numele tabelelor. Pentru acest exercițiu, voi folosi următoarele:

articleID - Număr automat - acest număr va fi încorporat în link.
Data adaugata - Data și ora la care a fost adăugat articolul
Adăugat de - Autorul articolului
ShortDesc - descriere simplă dacă este vorba despre un articol de știri sau informații
ArticleContent - Informațiile de știri reale pentru articol.

Acum, cu această versiune vom aplica formatarea XML special pentru a ne asigura că atunci când RSS Reader primește articole de știri, acesta nu va eșua din cauza caracterelor speciale pe care cititorul nu le poate prelucra. RSS cu formatul XML este foarte captivant cu privire la ce caractere sunt procesate, dar ne vom asigura că nu poate prelucra niciun caracter necorespunzător și îl vom numi funcția SpecialSormat.

Încă un lucru de reținut, dacă doriți ca utilizatorii să vizualizeze articolul atunci când fac clic pe linkul din cititorul lor, asigurați-vă că creați o pagină care va afișa articolul și informațiile sale. Probabil aveți deja acest lucru, dar am vrut doar să mă asigur că am spus-o doar în caz. Pentru acest exercițiu, voi folosi article_view.asp.

Acum pentru cod: (Salvați fișierul ca articlesver2.rss pe serverul dvs. web.)


<% 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 folosind ASP Code
//www.myserver.com
RSS Utilizând cod ASP pentru a vizualiza articole noi și existente dintr-o bază de date.
en-ne
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS folosind sigla codului 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)

Faceți clic aici pentru a accesa linkul pentru descărcarea atașamentului
Sursa articolului


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



Acum, dacă v-ați creat tabelele și ați adăugat informații în baza de date, puteți testa fișierul în Cititorul dvs. RSS. Folosesc un cititor gratuit de pe www.rssreader.com. Îmi permite să văd toate opțiunile pe care le pot folosi în fluxul RSS și îmi va spune dacă există erori la procesarea acesteia.

Vorbind despre erori, dacă există, nu trebuie decât să lipiți adresa URL a fișierului RSS în browserul dvs. și ar trebui să vă spună ce număr de linie este eroarea pe care vă permite să corectați problema. (Pentru a vedea mesajele de eroare, asigurați-vă că ați dezactivat „mesajele prietenoase” pentru ASP - Consultați articolul TechNet Microsoft
Dezactivați mesajele prietenoase) Majoritatea erorilor pe care le întâlnesc de obicei sunt erorile de sintaxă, ceea ce înseamnă că trebuie să aplicați formatarea la ieșirea fișierului dvs. RSS.

Aia este! Ține-ți ochii deschiși pentru mai multe articole pe RSS și cum poate fi un instrument valoros.