Ulepszony kod RSS przy użyciu ASP

• Kwiecień 26, 2024

Ostrzeżenie - fajna treść kodu przed nami !!

Oto, co musisz zrobić. Upewnij się, że masz bazę danych utworzoną niezależnie od tego, czy jest to Access czy SQL. Gdy to zrobisz, zanotuj parametry połączenia i nazwy tabel. W tym ćwiczeniu zamierzam użyć następujących elementów:

ID artykułu - Automatyczny numer - ten numer zostanie włączony do linku (użyj int z seed dla SQL i autonumeracja dla Access)
Data dodania - Data i godzina dodania artykułu
Dodane przez - Autor artykułu
ShortDesc - Prosty opis, czy jest to typ wiadomości lub informacji
Artykuł Treść - Rzeczywiste informacje o nowościach w artykule.

Teraz w tej wersji zastosujemy specjalne formatowanie XML, aby mieć pewność, że gdy czytnik RSS otrzyma artykuły z wiadomościami, nie zawiedzie z powodu żadnych znaków specjalnych, których czytnik nie może przetworzyć. RSS w formacie XML jest bardzo wybredny w kwestii tego, jakie znaki są przetwarzane, ale upewnimy się, że nie będzie w stanie przetworzyć żadnych złych znaków i nazwiemy go funkcją applySpecialFormat.

Należy jeszcze zauważyć, że jeśli chcesz, aby użytkownicy przeglądali artykuł po kliknięciu linku w czytniku, upewnij się, że utworzyłeś stronę, na której będzie wyświetlany artykuł i jego informacje. Prawdopodobnie już to masz, ale chciałem się upewnić, że powiedziałem to na wszelki wypadek. Do tego ćwiczenia będę używał article_view.asp.

Teraz kod: (Zapisz plik jako articlever2.rss na swoim serwerze internetowym).


<% 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 przy użyciu kodu ASP
//www.myserver.com
RSS Korzystanie z kodu ASP do przeglądania nowych i istniejących artykułów z bazy danych.
en-us
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS przy użyciu logo kodu 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)

PODWÓJNIE KLIKNIJ TUTAJ, ABY UZYSKAĆ ​​DOSTĘP DO LINKU DO POBRANIA ZAŁĄCZNIKA
Źródło artykułu


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



Teraz, jeśli utworzyłeś tabele i dodałeś informacje do swojej bazy danych, możesz przetestować plik w czytniku RSS. Korzystam z darmowego czytnika z www.rssreader.com. Pozwala mi zobaczyć wszystkie opcje, których mogę użyć w kanale RSS i poinformuje mnie, czy wystąpiły jakieś błędy podczas przetwarzania.

Mówiąc o błędach, jeśli takie istnieją, po prostu wklej adres URL pliku RSS do przeglądarki internetowej i powinien powiedzieć ci, jaki numer wiersza zawiera błąd, co z kolei pozwala rozwiązać problem. (Aby zobaczyć komunikaty o błędach, upewnij się, że wyłączyłeś „przyjazne komunikaty” dla ASP - zobacz artykuł Microsoft TechNet
Wyłącz przyjazne wiadomości) Większość błędów, które zwykle spotykam, to błędy składniowe, co oznacza, że ​​musisz zastosować formatowanie do danych wyjściowych pliku RSS.

To jest to! Miej oczy otwarte na więcej artykułów na temat RSS i tego, jak może być cennym narzędziem.