Ось що вам потрібно зробити. Переконайтеся, що у вас створена база даних, чи це 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 (Крістофер Комбс)
ДВОЙНИЙ КЛАЦНУТИ ТУТ, щоб отримати доступ до посилання на завантаження програми
Адаптація однойменного коміксу "Rogue Trooper" приймає футуристичну обстановку та персонажів світу коміксів і переносить їх у відтворювану форму. Зловмисний десант в майбутньому відбуватиметься на...
Незалежно від того, чи кодуєте ви ASP або прямий HTML, ви хочете, щоб ваша сторінка відображалася користувачам якомога швидше. Якщо ваша сторінка відображається повільно, ваші користувачі можуть...
Про Автора
Chow Yuan
Юне Дарування Журналістики. Шеф Повар. Людина Відповідальна І Приземлений.