Улучшенный RSS-код с использованием ASP

• April 30, 2024

Предупреждение - впереди классный код!

Вот что вам нужно сделать. Убедитесь, что ваша база данных создана, будь то Access или SQL. Как только вы это сделаете, запишите строку подключения и имена таблиц. Для этого упражнения я собираюсь использовать следующее:

ArticleID - Автоматический номер - этот номер будет включен в ссылку (используйте int с seed для SQL и autonumber для Access)
Дата добавления - Дата и время добавления статьи
Добавлено - Автор статьи
ShortDesc - Простое описание, будь то новости или информационный тип статьи
ArticleContent - Актуальная новостная информация для статьи.

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

Еще одна вещь, на которую следует обратить внимание: если вы хотите, чтобы пользователи просматривали статью, нажимая на ссылку в своем читателе, убедитесь, что вы создали страницу, на которой будет показана статья и ее информация. Возможно, у вас уже есть это, но я просто хотел убедиться, что сказал это на всякий случай. Для этого упражнения я буду использовать 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-кода для просмотра новых и существующих статей из базы данных.
ан-нас
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS с использованием ASP Code Logo
//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 - см. Статью Microsoft TechNet
Отключить дружественные сообщения) Большинство ошибок, с которыми я обычно сталкиваюсь, являются синтаксическими ошибками, что означает, что вам нужно применить форматирование к выводу вашего файла RSS.

Вот и все! Следите за статьями о RSS и о том, как он может быть ценным инструментом.