Pengodean Umpan RSS - Badan

• April 27, 2024

Sangat mudah untuk menggunakan ASP untuk membuat umpan RSS dinamis yang diperbarui setiap kali Anda menambahkan konten baru ke situs Anda. Halaman ini membantu Anda mendapatkan bagian tubuh - atau konten inti - dari kumpulan file RSS.

Pertama, pastikan Anda telah mengatur pembaca RSS untuk menguji umpan Anda, dan bahwa Anda telah membaca tentang dasar-dasar dan mencetak sampel. Itu akan penting agar Anda dapat menguji output Anda. Pastikan Anda sudah memasukkan header / bagian atas file RSS Anda, standar teratas yang akan digunakan pada sebagian besar setiap umpan RSS yang Anda buat.

Sekarang kita berada di bagian file RSS yang sebenarnya berisi pengumuman berita yang berubah, pembaruan blog, apa pun yang Anda beri tahu orang. Katakanlah demi argumen bahwa Anda memiliki "artikel" dan Anda ingin selalu memberi tahu orang-orang apa 3 artikel terbaru Anda. Inilah blok kode yang akan Anda gunakan. Perhatikan bahwa Anda harus menghapus tanda kutip dan ampere yang aneh agar XML berfungsi dengan baik. XML HANYA bekerja dengan huruf dan angka dasar. Ini tersedak karakter khusus. Ampersand harus diloloskan sebagai &

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




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

Itu dia! Masukkan file RSS ke server Anda dan pastikan Anda memperbarui IIS sehingga ia tahu untuk menangani file dengan ekstensi RSS sebagai file ASP. Sekarang Anda harus dapat memasukkan URL file RSS itu ke pembaca RSS Anda, dan dapatkan pembaruannya!

Umpan RSS - Bagian Header

Dasar-dasar Umpan RSS
Sampel Umpan RSS
Pengaturan Dasar File RSS ASP

Petunjuk Video: How to Add a News Ticker on Your YouTube Video Using Camtasia (April 2024).