%@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>