CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章可以应用到马克斯电影站生成Rss Feed的代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

使用方法：将下面的代码存为rss.asp(记得以UTF-8格式保存)并上传到网站根目录，剩下的工作就是找Rss提交入口去提交你的Feed地址http://你的域名/rss.asp  演示：http://www.zzvips.com 代码如下，请根据注释修改相应的信息，版权信息还望各位能够保留 ^_^   。

复制代码代码如下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>   <%   Session.CodePage=65001   Response.Charset="UTF-8"   '========================================================================   'Copyright (c) 2005-2007, 酸溜溜影视（[url]www.zzvips.com[/url]） All rights reserved.   '========================================================================   '名称: rss.asp   '描述: 动态生成Rss Feed。   '========================================================================   %>   <!--#include file=inc/conn.asp--><?xml version="1.0" encoding="utf-8"?>   <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">  <%   title="酸溜溜影视"      '改成你自己的名称   response.write" <channel>"&chr(13)   response.write"<atom:link href=""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.write get_left(15,0)   '显示前15部影片,按更新日期排序   response.write" </channel>"&chr(13)   Function re(str)   If Not IsNull(str) then      re=Replace(str,"&","&")     re=Replace(re,"<","<")     re=Replace(re,">",">")     re=Replace(re,"'","'")     re=Replace(re,"""",""")   End if   End Function   Function get_left(n,m)   n=CInt(n):m=CInt(m)   If m=1 Then     mm=" order by zt_hits desc"  '按点击量排序   Else      mm=" order by zt_date desc"  '按更新日期排序   End If    set rs1=conn.execute("select top "&n&" zt_id,zt_name,zt_zy,zt_dy,zt_type,zt_date,zt_hits,zt_content from zt_data"&mm)   get_left_i=0   Do while not rs1.eof     get_left_i=get_left_i+1     get_left=get_left&"  <item>"&Chr(13)     get_left=get_left&"   <title>"&re(rs1("zt_name"))&"</title>"&Chr(13)      get_left=get_left&"   <link>http://"&maxz_2&"/"&get_classenname(rs1("zt_type"))&"/"&rs1("zt_id")&"</link>"&Chr(13)     get_left=get_left&"   <description><![CDATA[<p>类别：<a href=""http://"&maxz_2&"/"&get_classenname(rs1("zt_type"))&""">"&get_classname(rs1("zt_type"))&"</a></p><p>主演："&rs1("zt_zy")&"</p><p>剧情："&re(rs1("zt_content"))&"</p>]]></description>"&Chr(13)     get_left=get_left&"   <guid>http://"&maxz_2&"/"&get_classenname(rs1("zt_type"))&"/"&rs1("zt_id")&"</guid>"&Chr(13)     get_left=get_left&"   <category><![CDATA["&get_classname(rs1("zt_type"))&"]]></category>"&Chr(13)    get_left=get_left&"   <pubDate>"&DateToRFC822(rs1("zt_date"))&"</pubDate>"&Chr(13)     get_left=get_left&"  </item>"&Chr(13)     If get_left_i>=n Then Exit Do      rs1.movenext   Loop    rs1.close   End Function   Function DateToRFC822(byVal dtaVal)   Dim strCurLocale : strCurLocale = GetLocale()   SetLocale("en-gb")   dtaVal = CDate(dtaVal)   DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&", "& _       Right("0"&Day(dtaVal),2)&" "& _       MonthName(Month(dtaVal),True)&" "& _       Year(dtaVal)&" "& _       Right("0"&Hour(dtaVal),2)&":"& _       Right("0"&Minute(dtaVal),2)&":"& _       Right("0"&Second(dtaVal),2)&" "& _    Www~Chinaz~com       "+0800"   SetLocale(strCurLocale)   End Function   %></rss>   。

最后此篇关于可以应用到马克斯电影站生成Rss Feed的代码的文章就讲到这里了,如果你想了解更多关于可以应用到马克斯电影站生成Rss Feed的代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。