Teman -teman yang telah membantu dapat membantu. Sederhana mungkin saat saya menulis.
Tambahkan fungsi agregasi RSS untuk situs web Anda, blog, dll., Dan sekarang berikan kode polimerisasi rss.asp untuk melihat bagaimana Anda merespons, jika baik
Lebih mudah bagi Anda untuk men -debug dan menunjukkan penampilan http://www.nbpda.com/rss.asp
Setelah pengujian, dukung sebagian besar pembaca agregat
Kode berikut disimpan sebagai rss.asp
Berikut ini adalah fragmen kode:
| Berikut ini adalah fragmen kode: <!-#termasuk file = "conn.asp"-> <% strurl = "http: //" & request.serverVariable ("server_name") & _ Left (request.serverVariable ("script_name"), len (request.servervariable ("script_name"))-len ("/rss.asp") // adalah nama Anda untuk nama file Anda SQL = "Pilih Top 100 * Dari [Nama Tabel] Pesan dengan ID Desc" // Menurut modifikasi yang sebenarnya, Top 100 adalah 100 item terbaru, memodifikasinya sendiri, dan pada saat yang sama Anda dapat menambahkan kondisi kueri, seperti dimana xxx = 1 .... Set RS = Server.CreateObject ("ADODB.OldSet") Rs.oopen Sql, Conn, 1,1 response.contentType = "Teks/XML" response.write "<? xml version =" "1.0" "encoding =" gb2312 ""?> "& vbcrlf response.write "<rss version =" "2.0" ""> "& vbcrlf response.write "<nanel>" & vbcrf response.write "<title> xxx.com rss feed </iteme>" & vbcrlf response.write "<link>" & strurl & "</ link>" & vbcrip response.write "<sange> zh-cn </bange>" & vbcrlf response.write "<Hak cipta> umpan RSS untuk xxx.comcopyright>" & vbcrlf Sementara tidak rs.eof response.write "<em>" & vbcrlf Response.write "<title> <! [" "" & Rs ("title") & "] >> </title>" & vbcrlf Response.write "<link>" & strurl & "/xxxx.asp? Id =" & rs ("id") & "</link>" & vblockff Response.write "<mrecripsion> <! [" "" "" & Rs ("Tema Bidang") & "<br />" & rs ("bidang konten") & "<br /> <br />]>> < /description> "& vbcrf Response.write "<mubdate>" & return_rfc822_date (rs ("bidang waktu"), "gmt") & "</bubdate>" & vbcrlfff response.write "</t Item>" & vbcrf rs.movenext pergi ke response.write "</nanel>" & vbcrlf response.write "</rss>" & vbcrlf Rs.close Setel RS = Tidak Ada Fungsi return_rfc822_date (byval mydate, byval timezone) Redup myday, mydays, mymonth, myyear Redup myHours, myminutes, myseconds mydate = cdate (mydate) Myday = enweekdayname (mydate) Mydays = kanan ("00" & hari (mydate), 2) mymonth = enmonthname (mydate) myYear = tahun (mydate) myHours = kanan ("00" & jam (mydate), 2) Myminutes = kanan ("00" & menit (mydate), 2) Myseconds = kanan ("00" & kedua (mydate), 2) Return_rfc822_date = myday & "," & _ Mydays & "" & _ Mymonth & "& _ MyYear & "" & _ Myhouse & ":" & _ myminutes & ":" & _ MySeconds & "" & _ "" "& TimeZone Fungsi akhir Fungsi enweekdayname (inputDate) Hasil redup Pilih Case Weekday (InputDate, 1) Kasus 1: Hasil = "Sun" Kasus 2: Hasil = "Mon" Kasus 3: Hasil = "Sel" Kasus 4: Hasil = "Rabu" Kasus 5: Hasil = "Kamis" Kasus 6: Hasil = "Jum" Kasus 7: Hasil = "Sat" Akhiri Pilih Enweekdayname = hasil Fungsi akhir Fungsi enmonthname (inputDate) Hasil redup Pilih Bulan Kasus (InputDate) Kasus 1: Hasil = "Jan" Kasus 2: Hasil = "Feb" Kasus 3: Hasil = "Mar" Kasus 4: Hasil = "APR" Kasus 5: Hasil = "May" Kasus 6: Hasil = "Jun" Kasus 7: Hasil = "Jul" Kasus 8: Hasil = "Aug" Kasus 9: Hasil = "Sep" Kasus 10: Hasil = "Oct" Kasus 11: Hasil = "Nov" Kasus 12: Hasil = "DEC" Akhiri Pilih Enmonthname = hasil Fungsi akhir %> |