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

使用方法:将下面的代码存为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,"'","'") 
  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>

(0)

相关推荐

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

    使用方法:将下面的代码存为rss.asp(记得以UTF-8格式保存)并上传到网站根目录,剩下的工作就是找Rss提交入口去提交你的Feed地址http://你的域名/rss.asp 演示:http://www.366mv.cn  代码如下,请根据注释修改相应的信息,版权信息还望各位能够保留 ^_^ 复制代码 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  <%  Session.CodePage=65

  • 用PHP读取RSS feed的代码

    而助易网的rss读取就是在这个程序的基础上稍做改造而成,主 要是输出了一个数组字符串以及解决编码问题. php源代码及代码详细解释如下: <?php //RSS源地址列表数组 $rssfeed = array("http://www.jb51.net/feed", "http://rss.sina.com.cn/news/allnews/sports.xml", "http://ent.163.com/special/00031K7Q/rss_tou

  • php生成RSS订阅的方法

    本文实例讲述了php生成RSS订阅的方法.分享给大家供大家参考.具体分析如下: RSS(简易信息聚合,也叫聚合内容)是一种描述和同步网站内容的格式.RSS可以是以下三个解释的其中一个: Really Simple Syndication:RDF (Resource Description Framework) Site Summary: Rich Site Summary.但其实这三个解释都是指同一种Syndication的技术.RSS目前广泛用于网上新闻频道,blog和wiki.使用RSS订阅

  • asp 动态生成rss(不成生xml文件)代码

    rss的优点 1.您可以有选择地浏览您感兴趣的以及与您的工作相关的新闻. 2.您可以把需要的信息从不需要的信息(兜售信息,垃圾邮件等)中分离出来. 3.您可以创建自己的新闻频道,并将之发布到因特网. 什么是 RSS? RSS 指 Really Simple Syndication(真正简易联合) RSS 使您有能力聚合(syndicate)网站的内容 RSS 定义了非常简单的方法来共享和查看标题和内容 RSS 文件可被自动更新 RSS 允许为不同的网站进行视图的个性化 RSS 使用 XML 编写

  • 轻松学习jQuery插件EasyUI EasyUI创建RSS Feed阅读器

    本文实例讲述了通过 jQuery EasyUI框架创建一个RSS阅读器,分享给大家供大家参考.具体如下: 运行效果截图如下: 我们将使用以下插件: layout:创建应用的用户界面. datagrid:显示 RSS Feed 列表. tree:显示 feed 频道. 步骤 1:创建布局(Layout) <body class="easyui-layout"> <div region="north" border="false"

  • python抓取最新博客内容并生成Rss

    osc的rss不是全文输出的,不开心,所以就有了python抓取osc最新博客生成Rss # -*- coding: utf-8 -*- from bs4 import BeautifulSoup import urllib2 import datetime import time import PyRSS2Gen from email.Utils import formatdate import re import sys import os reload(sys) sys.setdefaul

  • PHP生成RSS文件类实例

    本文实例讲述了PHP生成RSS文件类文件.分享给大家供大家参考.具体如下: PHP RSS 生成类实例代码如下: 复制代码 代码如下: <?php if (defined('_class_rss_php')) return; define('_class_rss_php教程',1); /**    *  使用说明:  *  $rss = new rss('redfox','http://jb51.net/',"redfox's blog");  *  $rss->addit

  • php生成rss类用法实例

    本文实例讲述了php生成rss类用法,分享给大家供大家参考.具体如下: <?php require('rssbuilder.class.php'); header('Content-Type: application/xml; charset=UTF-8'); header('Cache-Control: no-cache, must-revalidate'); header('Expires: Fri, 14 Mar 1980 20:53:00 GMT'); header('Last-Modi

  • 用Coldfusion生成 OFFICE 文件的代码

    这几天在经典.5D碰到很多人在问,如何用CF生成EXCEL文件,昨天夜晚就写了一个示范程序放上来供大家参考. 我建议大家先自己慢慢体会,程序本身并不复杂,如果看不懂的再来问,最好不要看都没看就来发问... 好的,我就用我CCF论坛的数据库来做是实验,目的是在线打开EXCEL文件和在线生成EXCEL文件.文件内容就是CCF论坛所有版块的名称和编号.我顺便做了个生成WORD文件的.代码就改了一处.大家仔细看看. 在线打开OFFICE文件必须你系统安装了OFFICE.记住这点,要不然就会提示下载. <

  • JavaScript生成.xls文件的代码

    贴代码,一切尽在注释中 <html> <head> <meta charset="utf-8"> </head> <body> <input type="button" value="下载设备模板" onclick="foo;" /> <script type="text/javascript" language="ja

随机推荐