Menghasilkan agregasi RSS dan XML terutama untuk memfasilitasi langganan dan memungkinkan pengguna mengetahui pembaruan situs web Anda dengan cepat. format rss.asp
Kode berikut disimpan sebagai rss.asp
Copy kode kodenya sebagai berikut:
<!--#sertakan file=sambungan.asp-->
<%
strURL = http:// & permintaan.variabel server(nama_server) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp adalah nama file Anda
sql=pilih 100 teratas * dari [nama tabel] diurutkan berdasarkan id desc //Menurut modifikasi Anda yang sebenarnya, 100 teratas adalah 100 terbaru, modifikasi sendiri, dan Anda dapat menambahkan kondisi kueri, seperti di mana xxx=1... .
set rs=server.createobject(adodb.recordset)
rs.open sql,sambungan,1,1
respon.contenttype=teks/xml
respon.tulis <?xml versi=1.0 pengkodean=gb2312 ?> & vbcrlf
respon.tulis <rss versi=2.0> & vbcrlf
respon.tulis <saluran> & vbcrlf
respon.tulis <title>xxx.com RSS feed</title> & vbcrlf
respon.tulis <link> & strURL & </link> & vbcrlf
respon.tulis <bahasa>zh-cn</bahasa> & vbcrlf
respon.write <hak cipta>Umpan RSS untuk xxx.comhak cipta> & vbcrlf
sementara bukan rs.eof
respon.tulis <item> & vbcrlf
respon.tulis <title><![CDATA[ & rs(judul) & ]]></title> & vbcrlf
respon.tulis <link>&strURL/xxxx.asp?Id=&rs(id)</link> & vbcrlf
respon.tulis <description><![CDATA[ & rs(bidang subjek) & <br /> & rs(bidang konten) & <br /><br />]]></description> & vbcrlf
respon.tulis <pubDate> & return_RFC822_Date(rs(bidang waktu),GMT) & </pubDate> & vbcrlf
respon.tulis </item> & vbcrlf
rs.movenext
pergi ke
respon.tulis </saluran> & vbcrlf
respon.tulis </rss> & vbcrlf
rs.tutup
atur rs=tidak ada
Fungsi return_RFC822_Date(byVal myDate, byVal TimeZone)
Redupkan Hariku, Hariku, Bulanku, Tahunku
Redupkan myHours, myMinutes, mySeconds
Tanggalku = Tanggal CD(tanggalku)
hariku = NamaHari Minggu En(tanggalku)
hariku = Kanan(00 & Hari(Tanggalku),2)
Bulanku = NamaBulanEn(Tanggalku)
Tahunku = Tahun(Tanggalku)
myHours = Kanan(00 & Jam(tanggal saya),2)
myMinutes = Kanan(00 & Menit(tanggal saya),2)
mySeconds = Kanan(00 & Detik(tanggal saya),2)
return_RFC822_Date = hari saya, & _
hariku & _
bulanku&_
Tahunku&_
jam saya:& _
menit saya:& _
detik saya & _
& Zona Waktu
Fungsi Akhir
Fungsi EnWeekDayName (Tanggal Masukan)
Hasil Redup
Pilih Hari Minggu Kasus (Tanggal Masukan, 1)
Kasus 1:Hasil=Minggu
Kasus 2:Hasil=Senin
Kasus 3:Hasil=Selasa
Kasus 4:Hasil=Rabu
Kasus 5:Hasil=Kamis
Kasus 6:Hasil=Jumat
Kasus 7: Hasil=Sab
Pilihan Akhir
EnWeekDayName = Hasil
Fungsi Akhir
Fungsi EnMonthName (Tanggal Masukan)
Hasil Redup
Pilih Bulan Kasus (Tanggal Masukan)
Kasus 1: Hasil=Jan
Kasus 2:Hasil=Februari
Kasus 3:Hasil=Mar
Kasus 4:Hasil=Apr
Kasus 5:Hasil=Mei
Kasus 6: Hasil=Jun
Kasus 7: Hasil = Juli
Kasus 8: Hasil = Agustus
Kasus 9: Hasil=Sep
Kasus 10: Hasil=Okt
Kasus 11: Hasil=Nov
Kasus 12:Hasil=Des
Pilihan Akhir
EnMonthName = Hasil
Fungsi Akhir
%>
format rss.xml
Copy kode kodenya sebagai berikut:
<!--#sertakan file=sambungan.asp-->
<%
strURL = http:// & permintaan.variabel server(SERVER_NAME) & _
kiri(permintaan.variabel server(SCRIPT_NAME),len(permintaan.variabel server(SCRIPT_NAME))-len(/rss.asp))
kucing bodoh redup, js
set js = server.CreateObject(ADODB.RecordSet)
sql = pilih * dari [nama tabel] diurutkan berdasarkan id asc
set js = samb.execute (sql)
kucing bodoh = kucing bodoh + <?xml versi=1.0 pengkodean=UTF-8 ?>
kucing bodoh = kucing bodoh + <rss versi=2.0>
kucing bodoh = kucing bodoh + <saluran>
Foolcat = Foolcat + <title>umpan XML xxx.com</title>
kucing bodoh = kucing bodoh + <link> & strURL & </link>
kucing bodoh = kucing bodoh + <bahasa>zh-cn</bahasa>
Foolcat = Foolcat + <copyright>Umpan XML untuk xxx.com</copyright>
lakukan sampai js.eof
kucing bodoh = kucing bodoh + <item>
kucing bodoh = kucing bodoh + <title><![CDATA[ & rs(bidang subjek) & ]]></title>
kucing bodoh = kucing bodoh + <description><![CDATA[ & rs(bidang subjek) & <br /> & rs(bidang konten) & <br /><br />]]></description>
kucing bodoh = kucing bodoh + <link> & strURL & /xxx.asp?Id=&rs(bidang id)</link>
kucing bodoh = kucing bodoh + <pubDate> & rs(bidang waktu) & </pubDate>
kucing bodoh = kucing bodoh + </item>
js.movenext
lingkaran
js.close
atur js = tidak ada
kucing bodoh = kucing bodoh + </saluran>
kucing bodoh = kucing bodoh + </rss>
kucing bodoh = + kucing bodoh +
kucing bodoh = & kucing bodoh &
Jalur Folder = Server.Jalur Peta(/)
Setel fso = Server.CreateObject(Scripting.FileSystemObject)
Setel fout = fso.CreateTextFile(FolderPath/rss.xml)
fout.writeLine kucing bodoh
fut.close
setel fut = tidak ada
samb.tutup
setel sambungan = tidak ada
%>