本站用的rss輸出

%
Response.Charset = "GB2312"
Response.ContentType="text/xml"
Response.Expires=60
Response.Write("?xml version=""1.0"" encoding=""GB2312""?>")
response.write("?xml-stylesheet type=""text/css"" href=""images/rss.css""?>")
dim RssId,sql,rs,tid,rs_type,sql_type,sqqq,rsshow,thetitle,themon,theday,thedate,theyear
RssId=CheckStr(Request.QueryString("RSSID"))
if not IsInteger(RssId) then RssId=1
'得到子類別的所有id
set rsshow=conn.execute("select tname,counts,tid from infotype where id="RSSID"")
if not (rsshow.eof and rsshow.bof) then
thetitle=split(rsshow("tname"),"|")(rsshow("counts")-1)
tid=rsshow("tid")
end if
rsshow.close
set rsshow=nothing
set rs_type=server.CreateObject("ADODB.RecordSet")
sql_type="select id from infotype where tid like '"tid"%'"
rs_type.open sql_type,conn,1,1
do while not rs_type.EOF
   sqqq=sqqqrs_type("id")","
rs_type.MoveNext
loop 
rs_type.close
set rs_type=nothing
if sqqq="" then sqqq=tid
sql="select top 20 type_id,title,id,content,datetime,author from news where type_id in ("sqqq") and isshow=true order by datetime desc,id desc"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
redim feedcat(0,0)
else
feedrows=rs.getrows()
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
rss version="2.0">
channel>
title>![CDATA[%=thetitle%>-腳本之家-www.jb51.net]]>/title>
link>https://www.jb51.net/link>
description>![CDATA[腳本之家，努力提供沒有錯誤的腳本，網絡編程]]>/description>
language>zh-cn/language>
copyright>![CDATA[Copyright 2006 jb51]]>/copyright>
webMaster>![CDATA[douxy001@gmail.com]]>/webMaster>
generator>jb51 2006/generator> 
%
if ubound(FeedRows,1)=0 then
            Response.Write("item>/item>")
 else
    for i=0 to ubound(FeedRows,2)
thedate=feedrows(4,i)
theyear=year(thedate)
themon=month(thedate)
if len(themon)2 then themon="0"themon
theday=theyearthemon
        %>
            item>
            link>%=siteurl%>/html/%=theday%>/%=FeedRows(2,i)%>.htm/link>
            title>![CDATA[%=FeedRows(1,i)%>]]>/title>
            author>%=FeedRows(5,i)%>/author>
            %
IF FeedRows(3,i)>"" and not isnull(FeedRows(3,i)) then
Response.Write("description>![CDATA["ubbcode(left(FeedRows(3,i),500))"]]>/description>")
               end if
%>
            pubDate>%=FeedRows(4,i)%>/pubDate>

        /item>
%
next
end if
%>
/channel>
/rss>