Розширений RSS-код за допомогою ASP

• Квітня 30, 2024

Попередження - Прохолодний зміст коду вперед !!

Ось що вам потрібно зробити. Переконайтеся, що у вас створена база даних, чи це Access, чи SQL. Після цього зверніть увагу на назви рядків підключення та назви таблиць. Для цієї вправи я буду використовувати наступне:

ArticleID - Автоматичний номер - цей номер буде включений у посилання. (Використовуйте int з насінням для SQL та автономним номером для доступу)
Дату додано - Дата та час, коли стаття була додана
Додано - Автор статті
ShortDesc - Простий опис, будь то новинний чи інформаційний тип статті
Стаття Зміст - фактична інформація про цю статтю.

Тепер із цією версією ми будемо застосовувати спеціальне форматування XML, щоб переконатися, що коли RSS Reader отримає статті новин, вони не вийдуть із-за спеціальних символів, які читач не може обробити. RSS у форматі XML дуже вибагливий щодо того, які символи обробляються, але ми переконаємося, що він не може обробити жодних поганих символів, і будемо називати його застосувати функцію SpecialpeatFormat.

Ще одне, що потрібно зазначити, якщо ви хочете, щоб користувачі переглядали статтю, коли натискали на посилання у своєму читачі, переконайтеся, що ви створили сторінку, на якій буде відображатися стаття та її інформація. Ви, мабуть, це вже маєте, але я просто хотів переконатися, що сказав це про всяк випадок. Для цієї вправи я буду використовувати article_view.asp.

Тепер для коду: (Збережіть файл як articlever2.rss на своєму веб-сервері.)


<% 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
//www.myserver.com
RSS Використання коду ASP для перегляду нових та існуючих статей із бази даних.
en-us
Авторські права 2006

20

//www.myserver.com/images/logo.jpg
RSS за допомогою логотипу коду 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 (Крістофер Комбс)

ДВОЙНИЙ КЛАЦНУТИ ТУТ, щоб отримати доступ до посилання на завантаження програми
Джерело статті


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



Тепер, якщо ви створили таблиці та додали інформацію до своєї бази даних, ви можете протестувати файл у своєму RSS Reader. Я використовую безкоштовний читач від www.rssreader.com. Це дозволяє мені бачити всі параметри, які я можу використовувати в RSS-каналі, і він підкаже, чи є якісь помилки при його обробці.

Якщо говорити про помилки, якщо такі є, просто вставте URL-адресу RSS-файлу у свій веб-браузер, і він повинен повідомити, на якому номері рядка є помилка, яка, в свою чергу, дозволяє виправити проблему. (Щоб побачити повідомлення про помилки, переконайтесь, що ви вимкнули "дружні повідомлення" для ASP - Дивіться статтю TechNet від Microsoft
Вимкнення дружніх повідомлень) Більшість помилок, які я зазвичай зустрічаю, - це синтаксичні помилки, а значить, потрібно застосувати форматування до виводу вашого RSS-файлу.

Це все! Тримайте очі відкритими для більше статей на RSS і як це може бути цінним інструментом.