Побољшани РСС код помоћу АСП-а

• Може 16, 2024

Упозорење - Цоол Цоде Садржај унапред !!

Ево шта треба да урадите. Обавезно креирајте базу података било да је то Аццесс или СКЛ. Након што то учините, забележите везу низа и табеле везе. За ову вежбу користићу следеће:

АртицлеИД - Аутоматски број - овај број ће бити укључен у везу. (Користите инт са семеном за СКЛ и аутонумбер за приступ)
Датум додавања - Датум и време када је чланак додат
АддедБи - Аутор чланка
СхортДесц - Једноставан опис, било да се ради о вијестима или врсти информација
АртицлеЦонтент - Актуелне информације о чланку.

Сада ћемо са овом верзијом примењивати посебно КСМЛ форматирање како бисмо били сигурни да када РСС Реадер добије новинске чланке, неће пропасти због неких посебних знакова које читалац не може обрадити. РСС са КСМЛ форматом веома је избирљив у погледу тога што се карактери обрађују, али ми ћемо се потрудити да не обради лоше знакове и назваћемо га апплиСпециалФормат функцијом.

Још једна ствар која треба напоменути: Ако желите да корисник прегледа чланак, када кликну на линк у свом читачу, обавезно направите страницу на којој ће се приказати чланак и његове информације. То вероватно већ имате, али желео сам да се уверим да сам то рекао за сваки случај. За ову вежбу ћу је користити артицле_виев.асп.

Сада за код: (Сачувајте датотеку као Артицлевер2.рсс на свом веб серверу.)


<% 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
%>


РСС помоћу АСП кода
//ввв.мисервер.цом
РСС Коришћење АСП кода за преглед нових и постојећих чланака из базе података.
ен-ус
Цопиригхт 2006

20

//ввв.мисервер.цом/имагес/лого.јпг
РСС користећи логотип АСП кода
//ввв.мисервер.цом

<%
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 %>


()

//ввв.мисервер.цом/артицле_виев.асп?АртицлеИД=



асп@цоффебреакблог.цом (Цхристопхер Цомбс)

Дупли КЛИКНИТЕ ОВДЕ ДА ПРИСТУПИТЕ ЛИНК ЗА ПРЕУЗИМАЊЕ ПРИЛОГА
Извор чланка


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



Ако сте креирали таблице и додали информације у базу података, можете да тестирате датотеку у свом РСС читачу. Користим бесплатан читач са ввв.рссреадер.цом. Омогућава ми да видим све могућности које могу да користим у РСС фееду и рећи ће ми да ли постоје грешке приликом његове обраде.

Када говоримо о грешкама, ако их има, једноставно залепите УРЛ датотеку РСС у ваш веб претраживач и он би вам требао рећи на којем је ретку грешка, а заузврат вам омогућава да исправите проблем. (Да бисте видели поруке о грешци, уверите се да сте искључили „пријатељске поруке“ за АСП - Погледајте Мицрософт-ов ТецхНет чланак
Искључите пријатељске поруке) Већина грешака на које најчешће наилазим на синтаксне грешке, што значи да требате применити форматирање на излаз ваше РСС датотеке.

То је то! Држите очи отворене за више чланака о РСС-у и како он може бити драгоцено средство.

Видео Упутства: Как сделать пол на лоджии из осб на лагах #деломастерабоится (Може 2024).