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

ASP
一个ASP版的图片浏览管理器
无组件上传图片至SQLSERVER数据库
利用Jmail.Message发送邮件
用Web页面执行客户端程序
多图片上传到指定的目录并存到数据库
dreamweaverMX通用分页代码研究
下拉菜单输入,根据输入内容自动定位
中文的无组件文件上传ASP函数
一个利用adsi得到局域网信息的asp文件
根据需要动态include不同的文件
让自定义文件下载支持断点续传
用数组实现数据记录的批量录入方法
上传的进度条 实时反映上传情况
用ASP动态生成javascript的表单验证代码
ASP 编程中20个非常有用的例子
ASP生成Word文档的又一方法
用asp解析图片地址，并将其保存。
利用ASP的文件操作实现用户管理
创建 Visual Basic COM 组件在 ASP 中使用
调试 ASP 中使用的 Visual Basic COM 组件

No. « 195 196 197 198 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 78 ::
收藏到网摘: 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>