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

编程学习 2021-07-05 10:58www.dzhlxh.cn编程入门
前段时间为了给本人的电影站增加Rss订阅功能,动手写了个动态生成Rss Feed的ASP代码,没法上传附件,就直接贴代码吧,反正也不长,用马克斯做电影站的朋友直接拿去用吧,其它类型的站点修改一下也能用。生成的Rss Feed采用UTF-8编码,经过feedvalidator.org校验,兼容Rss 2.0和Atom。
使用方法:将狼蚁网站SEO优化的代码存为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)&" "& _  
Www~Chinaz~com 

    "+0800" 
SetLocale(strCurLocale) 
End Function 
%></rss>  

Copyright © 2016-2025 www.dzhlxh.cn 金源码 版权所有 Power by

网站模板下载|网络推广|微博营销|seo优化|视频营销|网络营销|微信营销|网站建设|织梦模板|小程序模板