Cara menggunakan: Simpan kode berikut sebagai rss.asp (ingat untuk menyimpannya dalam format UTF-8) dan mengunggahnya ke direktori root situs web. Sisanya adalah menemukan portal pengiriman RSS untuk mengirimkan alamat umpan Anda http: // nama domain Anda/rss.asp
Demo: http://www.366mv.cn
Kode adalah sebagai berikut. Harap ubah informasi yang sesuai sesuai dengan komentar. Saya harap Anda dapat menyimpan informasi hak cipta ^_ ^
Salinan kode adalah sebagai berikut:
<%@Language = "vbscript" codepage = "65001"%>
<%
Session.codepage = 65001
Response.charset = "UTF-8"
'================================================================================================================================
'Hak Cipta (C) 2005-2007, Soy LiUyu Film dan Televisi ([URL] www.366mv.cn [/url]) Allrights dicadangkan.
'================================================================================================================================
Nama: rss.asp
'Deskripsi: Hasilkan RSSFEED secara dinamis.
'================================================================================================================================
%>
<!-#includeFile = inc/conn.asp-> <? xmlversion = "1.0" encoding = "UTF-8"?>
<rssversion = "2.0" xmlns: atom = "http://www.w3.org/2005/atom">
<%
title = "生杯典" 'diubah menjadi nama Anda sendiri
response.write "<nalnel>" & chr (13)
response.write "<atom: linkhref =" "http: //" & maxz_2 & "/xml.asp" "rel =" "self" "type =" "Aplikasi/RSS+xml" "/>" & chr (13)
Response.Write "<Title> Video terbaru yang diperbarui-" & Title & "</iteme>" & Chr (13)
response.write "<link> http: //" & maxz_2 & "</link>" & chr (13)
Response.write "<cricken>" & title & "-Tonton sepuluh ribu film online. Film gratis, film online, TVB, drama Jepang, drama Korea, animasi, fiksi ilmiah, horor, romansa, serial TV, blockbusters, film tahun baru ... </description>" & chr (13)
Response.writeGet_Left (15,0) 'Tampilkan 15 video pertama, diurutkan berdasarkan tanggal pembaruan
response.write "</saluran>" & chr (13)
Functionre (str)
IFNOTISNULL (STR) lalu
re = ganti (str, "&", "&")
re = ganti (re, "<", "<")
re = ganti (re, ">", ">")
re = ganti (re, "'", "'")
re = ganti (re, "" "", "" ")
Endif
Fungsi endfungsi
Functionget_left (n, m)
n = cint (n): m = cint (m)
Ifm = 1then
mm = "orderbyzt_hitsdesc" 'diurutkan berdasarkan klik
Kalau tidak
mm = "orderbyzt_datedesc" 'diurutkan berdasarkan tanggal pembaruan
Endif
setRs1 = conn.execute ("selecttop" & n & "zt_id, zt_name, zt_zy, zt_dy, zt_type, zt_date, zt_hits, zt_contentfromzt_data" & mm)
get_left_i = 0
Dowhilenotrs1.eof