Cómo usar: Guarde el siguiente código como RSS.asp (recuerde guardarlo en formato UTF-8) y cárguelo en el directorio raíz del sitio web. El resto es encontrar el portal de envío RSS para enviar su dirección de alimentación http: // su nombre de dominio/rss.asp
Demostración: http://www.366mv.cn
El código es el siguiente. Modifique la información correspondiente de acuerdo con los comentarios. Espero que puedas retener la información de los derechos de autor ^_ ^
La copia del código es la siguiente:
<%@Idioma = "vBscript" Codepage = "65001"%>
<%
Session.Codepage = 65001
Respuesta.charset = "UTF-8"
'================================================================================================================================================================================================================================================================.
'Copyright (c) 2005-2007, Soy Liuyu Film and Television ([URL] www.366mv.cn [/url]) Allights reservados.
'================================================================================================================================================================================================================================================================.
'Nombre: rss.asp
'Descripción: Genere dinámicamente RSSFeed.
'================================================================================================================================================================================================================================================================.
%>
<
<rssversion = "2.0" xmlns: atom = "http://www.w3.org/2005/atom">
<%
title = "生杯典" 'cambiado a tu propio nombre
respuesta
Response.Write "<Atom: LinkHref =" "http: //" & maxz_2 & "/xml.asp" "rel =" "self" type = "" Application/rss+xml ""/> "& Chr (13)
Response.write "<title> Último video actualizado-" & Title & "</title>" & Chr (13)
Response.write "<Ank> http: //" & maxz_2 & "</ink>" & chr (13)
Response.Write "<Scuidion>" & Title & "-Vea diez mil películas en línea. Películas gratis, películas en línea, TVB, dramas japoneses, dramas coreanos, animación, ciencia ficción, horror, romance, series de televisión, éxitos de taquilla, películas de Año Nuevo ... </soldic>" & Chr (13)
Response.WriteGet_left (15,0) 'Mostrar los primeros 15 videos, ordenados por fecha de actualización
Response.write "</nelen>" & chr (13)
Functionre (str)
Ifnotisnull (str) entonces
re = reemplazar (str, "&", "&")
re = reemplazar (re, "<", "<")
re = reemplazar (re, ">", ">")
re = reemplazar (re, "'", "'")
re = reemplazar (re, "" "", "" ")
Endif
Función final
Functet_left (n, m)
n = cint (n): m = cint (m)
Ifm = 1
mm = "ordenbyzt_hitsdesc" 'ordenado por clics
Demás
mm = "ordenbyzt_datedesc" 'ordenado por fecha de actualización
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