馬克斯電影站生成Rss Feed的代碼_ASP教程

<%

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>