Como usar: salve o seguinte código como rss O resto é encontrar o portal de envio do RSS para enviar seu endereço de feed http: // seu nome de domínio/rss.asp
Demo: http://www.366mv.cn
O código é o seguinte. Modifique as informações correspondentes de acordo com os comentários. Espero que você possa manter as informações de direitos autorais ^_ ^
A cópia do código é a seguinte:
<%@Idioma = "vBScript" codePage = "65001"%>
<%
Session.codePage = 65001
Response.Charset = "UTF-8"
'=====================================================================================================
'Copyright (c) 2005-2007, Soy Liuyu Film and Television ([URL] www.366mv.cn [/url]) Allrights reservados.
'=====================================================================================================
'Nome: rss.asp
'Descrição: gerar dinamicamente o RSSFeed.
'=====================================================================================================
%>
<!-#incluirfile = inc/conn.asp-> <? xmlversion = "1.0" coding = "utf-8"?>
<rssversion = "2.0" xmlns: atom = "http://www.w3.org/2005/atom">
<%
title = "生杯典" 'mudou para seu próprio nome
Response.Write "<nank>" & ch (13)
Response.Write "<Atom: linkhref =" "http: //" & maxz_2 & "/xml.asp" "rel =" "self" "type =" "Application/rss+xml" "/>" & ch (13)
Response.Write "<title> Vídeo atualizado mais recente-" & Title & "</ititle>" & Chr (13)
Response.write "<ink> http: //" & maxz_2 & "</link>" & ch (13)
Response.Write "<crection>" & Title & "-Assista a dez mil filmes online. Filmes gratuitos, filmes on-line, TVB, dramas japoneses, dramas coreanos, animação, ficção científica, horror, romance, séries de TV, sucessos de bilheteria, filmes de ano novo ... </cription>" & Chr (13)
Response.writeget_left (15,0) 'mostre os 15 primeiros vídeos, classificados por data de atualização
Response.Write "</anal>" & ch (13)
Functionre (str)
Ifnotisnull (str) Então
re = substitua (str, "&", "&")
re = substitua (re, "<", "<")
re = substitua (re, ">", ">")
re = substitua (re, "'", "" ")
re = substitua (re, "" "", "" ")
Endif
Função final
FunctionGet_left (n, m)
n = cint (n): m = cint (m)
Ifm = 1then
mm = "orderbyzt_hitsdesc" 'classificado por cliques
Outro
mm = "OrderByzt_Datedesc" 'classificado por data de atualização
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