使用方法:將下面的代碼存為rss.asp(記得以UTF-8格式保存)並上傳到網站根目錄,剩下的工作就是找Rss提交入口去提交你的Feed地址http://你的域名/rss.asp
演示:http://www.366mv.cn
代碼如下,請根據註釋修改相應的信息,版權信息還望各位能夠保留^_^
複製代碼代碼如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
<%
Session.CodePage=65001
Response.Charset="UTF-8"
'========================================================================
'Copyright(c)2005-2007,酸溜溜影視([url]www.366mv.cn[/url])Allrightsreserved.
'========================================================================
'名稱:rss.asp
'描述:動態生成RssFeed。
'========================================================================
%>
<!--#includefile=inc/conn.asp--><?xmlversion="1.0"encoding="utf-8"?>
<rssversion="2.0"xmlns:atom="http://www.w3.org/2005/Atom">
<%
title="酸溜溜影視"'改成你自己的名稱
response.write"<channel>"&chr(13)
response.write"<atom:linkhref=""http://"&maxz_2&"/xml.asp""rel=""self""type=""application/rss+xml""/>"&Chr(13)
response.write"<title>最近更新影片-"&title&"</title>"&chr(13)
response.write"<link>http://"&maxz_2&"</link>"&Chr(13)
response.write"<description>"&title&"-萬部影片在線觀看。免費電影,在線電影,TVB,日劇,韓劇,動漫,科幻,恐怖,言情,連續劇,大片,賀歲片……</description>"&Chr(13)
response.writeget_left(15,0)'顯示前15部影片,按更新日期排序
response.write"</channel>"&chr(13)
Functionre(str)
IfNotIsNull(str)then
re=Replace(str,"&","&")
re=Replace(re,"<","<")
re=Replace(re,">",">")
re=Replace(re,"'","'")
re=Replace(re,"""",""")
Endif
EndFunction
Functionget_left(n,m)
n=CInt(n):m=CInt(m)
Ifm=1Then
mm="orderbyzt_hitsdesc"'按點擊量排序
Else
mm="orderbyzt_datedesc"'按更新日期排序
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