Подобрен RSS код чрез ASP

• Април 25, 2024

Предупреждение - Готино съдържание на кода напред !!

Ето какво трябва да направите. Уверете се, че имате създадена база данни, независимо дали е Access или SQL. След като свършите това, обърнете внимание на имената на връзките и таблиците на вашата връзка. За това упражнение ще използвам следното:

ArticleID - Автоматичен номер - този номер ще бъде включен във връзката. (Използвайте int със семена за SQL и автономен номер за достъп)
Датата е добавена - Дата и час, в който е добавен членът
AddedBy - Автор на статията
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 код за преглед на нови и съществуващи статии от база данни.
ен-ни
Авторско право 2006

20

//www.myserver.com/images/logo.jpg
RSS с лого на ASP Code
//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 и как това може да бъде ценен инструмент.

Инструкции Видео: ОБЗОР ANET A8 PLUS НЕ ДОРОГОЙ 3D ПРИНТЕР ДЛЯ НОВИЧКОВ - СБОРКА (Април 2024).