Comment utiliser: Enregistrez le code suivant sous RSS.asp (n'oubliez pas de l'enregistrer au format UTF-8) et téléchargez-le sur le répertoire root du site Web. Le reste est de trouver le portail de soumission RSS pour soumettre votre adresse de flux http: // Votre nom de domaine / rss.asp
Demo: http://www.366mv.cn
Le code est le suivant. Veuillez modifier les informations correspondantes en fonction des commentaires. J'espère que vous pourrez conserver les informations sur le droit d'auteur ^ _ ^
La copie de code est la suivante:
<% @ Lingots = "vbscript" codepage = "65001"%>
<%
Session.codepage = 65001
Réponse.charset = "utf-8"
'========================================================================================================================.
«Copyright (c) 2005-2007, SOY LIUYU Film and Television ([URL] www.366mv.cn [/ url]) Allrights réservés.
'========================================================================================================================.
'Nom: rss.asp
«Description: Générez dynamiquement RSSFeed.
'========================================================================================================================.
%>
<! - # includeFile = inc / conn.asp -> <? xmlversion = "1.0" Encoding = "utf-8"?>
<rssversion = "2.0" xmlns: atom = "http://www.w3.org/2005/atom">
<%
title = "生杯典" 'a changé pour votre propre nom
Response.Write "<Channel>" & Chr (13)
réponse.write "<atom: linkhref =" "http: //" & maxz_2 & "/xml.asp" "rel =" "self" "type =" "application / rss + xml" "/>" & chr (13)
Response.Write "<Title> Dernière vidéo mise à jour -" & Title & "</Title>" & Chr (13)
Response.write "<ink> http: //" & maxz_2 & "</kin>" & chr (13)
Response.Write "<Description>" & Title & "- Regardez dix mille films en ligne. Films gratuits, films en ligne, TVB, drames japonais, drames coréens, animation, science-fiction, horreur, romance, série télévisée, blockbusters, films du Nouvel An ... </cription>" & chr (13)
réponse.writeget_left (15,0) 'Afficher les 15 premières vidéos, triées par date de mise à jour
Response.Write "</Channel>" & Chr (13)
FunctionRe (Str)
Ifnotisnull (str) puis
re = remplacer (str, "&", "&")
re = remplacer (re, "<", "<")
re = remplacer (re, ">", ">")
re = remplacer (re, "'", "'")
re = remplacer (re, "" "", "" ")
Endire
Finition de fin
Functionget_left (n, m)
n = cint (n): m = cint (m)
Ifm = 1ment
mm = "orderByzt_hitsdesc" 'trié par clics
Autre
mm = "orderByzt_dateSc" 'trié par date de mise à jour
Endire
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