Mengekodkan Suapan RSS - Badan

• Mungkin 1, 2024

Sangat mudah digunakan ASP untuk membuat suapan RSS dinamik yang dikemas kini setiap kali anda menambah kandungan segar ke laman web anda. Halaman ini membantu anda mendapatkan kandungan badan - atau teras - sebahagian daripada set fail RSS.

Mula-mula, pastikan anda telah menyediakan pembaca RSS untuk menguji suapan anda, dan anda telah membaca tentang asas-asas dan mencetak sampel. Mereka akan menjadi penting supaya anda boleh menguji output anda. Pastikan anda telah memasukkan bahagian kepala / bahagian atas fail RSS anda, bahagian atas standard yang akan memakan kebanyakan suapan RSS yang anda buat.

Kini kami berada di bahagian fail RSS yang sebenarnya mengandungi pengumuman berita yang berubah, kemas kini blog, apa pun yang anda berikan kepada orang. Katakan demi hujah bahawa anda mempunyai "artikel" dan anda ingin selalu memberitahu orang-orang apa 3 artikel terakhir anda. Berikut adalah blok kod yang anda akan gunakan. Perhatikan bahawa anda perlu menyingkirkan petikan aneh dan ampersands agar XML berfungsi dengan betul. XML berfungsi dengan huruf asas dan nombor SAHAJA. Ia tercekik pada watak-watak khas. Ampersands mesti luput 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 sahaja! Letakkan fail RSS ke pelayan anda dan pastikan anda mengemas kini IIS supaya ia tahu untuk mengendalikan fail dengan sambungan RSS sebagai fail ASP. Sekarang anda harus meletakkan URL fail RSS itu ke pembaca RSS anda, dan dapatkan kemas kini!

RSS Feed - Bahagian Header

Asas-asas RSS Feed
Contoh Feed RSS
Persediaan Asas bagi fail ASP RSS

Arahan Video: SCP-1461 House of the Worm | euclid | Church of the Broken God scp (Mungkin 2024).