Verwendung Der Rest besteht darin, das RSS -Einreichungsportal zu finden, um Ihre Feed -Adresse zu senden
Demo: http://www.366mv.cn
Der Code ist wie folgt. Bitte ändern Sie die entsprechenden Informationen gemäß den Kommentaren. Ich hoffe, Sie können die Copyright -Informationen behalten ^_ ^
Die Codekopie lautet wie folgt:
<%@Sprache = "vbscript" Codepage = "65001"%>
<%
Sitzung.CodePage = 65001
Response.charset = "utf-8"
'=====================================================================================================
'Copyright (C) 2005-2007, Soja liuyu Film und Fernsehen ([url] www.366mv.cn [/url]) AllRights reserviert.
'=====================================================================================================
'Name: RSS.asp
'Beschreibung: Generieren Sie dynamisch rssfeed.
'=====================================================================================================
%>
<!-#includeFile = inc/conn.asp-> <? xmlversion = "1.0" coding = "utf-8"?>
<rsSversion = "2.0" xmlns: atom = "http://www.w3.org/2005/atom">
<%
title = "生杯典" 'in Ihrem eigenen Namen geändert
response.write "<Anals>" & chr (13)
response.write "<atom: linkhref =" "http: //" & maxz_2 & "/xml.asp" "rel =" "self" "type =" "application/rss+xml" "/>" & chr (13)
response.write "<titels> neuestes aktualisiertes Video-" & Titel & "</title>" & chr (13)
response.write "<Link> http: //" & maxz_2 & "</link>" & chr (13)
Antwort.Write "<Bection>" & Titel & "-Zehntausend Filme online ansehen. Kostenlose Filme, Online-Filme, TVB, japanische Dramen, koreanische Dramen, Animation, Science-Fiction, Horror, Romantik, TV-Serie, Blockbusters, Neujahrsfilme ... </Beschreibung>" & Chr (13)
Antwort.WriteGet_Left (15,0) 'Zeigen Sie die ersten 15 Videos an, sortiert nach Update -Datum
Antwort.Write "</Channel>" & chr (13)
Funktionre (STR)
Ifnotisnull (str) dann
Re = ersetzen (str, "&", "&")
re = ersetzen (re, "<", "<")
re = ersetzen (re, ">", ">")
re = ersetzen (re, "'", "'")
Re = ersetzen (re, "" "," "")
Endif
Endfunktion
FunctionGet_left (n, m)
n = cint (n): m = cint (m)
IFM = 1Then
mm = "orderByzt_hitsdesc" 'sortiert nach Klicks
Anders
mm = "orderByzt_datedesc" 'sortiert nach Update -Datum
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