RSSフィードのコーディング-本文

かもしれません 3, 2024

ASPを使用すると、サイトに新しいコンテンツを追加するたびに更新される動的なRSSフィードを簡単に作成できます。このページは、RSSファイルセットの一部、つまりコアコンテンツを取得するのに役立ちます。

まず、RSSリーダーを設定してフィードをテストし、基本について読んでサンプルを印刷したことを確認します。これらは、出力をテストできるようにするために重要です。作成したRSSフィードのほとんどに使用される標準の上部であるRSSファイルのヘッダー/上部に既に入力していることを確認してください。

これで、RSSファイルのセクションに移動して、実際に変化するニュースアナウンスメント、ブログの更新など、あなたが人々に何を言っているのかがわかります。議論のために、「記事」があり、常に3つの最新記事が何であるかを人々に伝えたいとしましょう。使用するコードブロックは次のとおりです。 XMLが適切に機能するためには、奇妙な引用符とアンパサンドを取り除く必要があることに注意してください。 XMLは基本的な文字と数字のみで機能します。それは特殊文字で窒息します。アンパサンドは＆としてエスケープする必要があります

<%
Set FeatSite = Server.CreateObject ("ADODB.Recordset")
SQLText = "SELECT art_id, art_title, art_date, art_desc " & _
"from articles where art_date <= '" & Now() & "' " & _
"order by art_date DESC"
FeatSite.Open SQLText, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

FeatCt = 1
do while not FeatSite.EOF and FeatCt < 4

ArtDesc = Replace(FeatSite("art_desc"), chr(180), "'")
ArtDesc = Replace(ArtDesc, "´", "'")
ArtDesc = Replace(ArtDesc, "&", "&")

ArtTitle = Replace(FeatSite("art_Title"), chr(180), "'")
ArtTitle = Replace(ArtTitle, "´", "'")
ArtTitle = Replace(ArtTitle, "&", "&")

ArtDate = FeatSite("art_date")

ArtHour = Hour(ArtDate)
if ArtHour < 10 then ArtHour = "0" & ArtHour
ArtMin = Minute(ArtDate)
if ArtMin < 10 then ArtMin = "0" & ArtMin
ArtSec = Second(ArtDate)
if ArtSec < 10 then ArtSec = "0" & ArtSec

ArtDateT = WeekdayName(Weekday(ArtDate), TRUE) & ", " & Day(ArtDate) & " " & _
MonthName(Month(ArtDate), TRUE) & " " & Year(ArtDate) & " " & _
ArtHour & ":" & ArtMin & ":" & ArtSec & " EST"
%>

YOURURLGOESHEREPLUS＆ARTID = .asp

<%
FeatSite.MoveNext
FeatCt = FeatCt + 1
loop
FeatSite.close()
set FeatSite = Nothing
%>

===========================

それでおしまい！そのRSSファイルをサーバーに配置し、RSS拡張子を持つファイルをASPファイルとして処理できるようにIISを更新してください。これで、そのRSSファイルのURLをRSSリーダーに入れて、更新を取得できるはずです！

RSSフィード-ヘッダーパーツ

RSSフィードの基本
RSSフィードのサンプル
RSS ASPファイルの基本セットアップ