可以应用到马克斯电影站生成Rss Feed的代码

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
<%  
Session.CodePage=65001  
Response.Charset="UTF-8"  
'========================================================================  
'Copyright (c) 2005-2007, 酸溜溜影视（[url]www.366mv.cn[/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=>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=>  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>  

上一个：ASP 无限级分类实现
下一个：asp飞飞无限级分类v1.0 Asp+sql+存储过程+ajax提供下载