当前位置: 首页 > 图文教程 > 网络编程 > ASP > 马克斯电影站生成Rss Feed的代码

ASP
IIS访问ASP页面时报错The requested resource is in use.的解决办法
错误类型：Provider (0x80004005)未指定的错误 的一个处理方法
关于asp+access的安全问题分析
把RS.GetRows看得更清楚
asp下UTF-8页面乱码的解决方法
解决使用良精企业建站7.0未注册问题
在ASP中连接MySQL数据库的方法，最好的通过ODBC方法
flash与js通讯方法
ASP操作Excel相关技术总结
解决用Access数据库建站维护不便的问题的方法
ASP实现GB2312字符与区位码的相互转换的代码
对于ASP编码问题的深入研究与最终解决方案
ASP生成UTF-8编码的代码
删除A表中在B表中不存在的数据
动网防恶意广告比较有效的办法附asp代码
asp磁盘缓存技术使用的代码
网页语言编码及asp乱码问题解决方案
FSO遍历目录实现全站插马的代码
关于无限分级(ASP+数据库+JS)的实现代码
如何写ASP入库小偷程序

No. « 60 61 62 63 »

技术文章搜索

关键字

ASP 中的 马克斯电影站生成Rss Feed的代码

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 248 ::
收藏到网摘: n/a

前段时间为了给本人的电影站增加Rss订阅功能，动手写了个动态生成Rss Feed的ASP代码，没法上传附件，就直接贴代码吧，反正也不长，用马克斯做电影站的朋友直接拿去用吧，其它类型的站点修改一下也能用。生成的Rss Feed采用UTF-8编码，经过feedvalidator.org校验，兼容Rss 2.0和Atom。

使用方法：将下面的代码存为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]） 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,"'","&apos;")
  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)&" "& _
    "+0800"
SetLocale(strCurLocale)
End Function
%></rss>