使用方法：將下面的代碼存為rss.asp(記得以UTF-8格式保存)并上傳到網(wǎng)站根目錄，剩下的工作就是找Rss提交入口去提交你的Feed地址http://你的域名/rss.asp
演示：http://www.366mv.cn
代碼如下，請根據(jù)注釋修改相應(yīng)的信息，版權(quán)信息還望各位能夠保留 ^_^
復(fù)制代碼 代碼如下:
%@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
'描述: 動態(tài)生成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" - 萬部影片在線觀看。免費(fèi)電影,在線電影,TVB,日劇,韓劇,動漫,科幻,恐怖,言情,連續(xù)劇,大片,賀歲片……/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" '按點(diǎn)擊量排序
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>
