本站用的rss输出_XML示例

用了getrows提高效率

复制代码 代码如下:

<%
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=sqqq&rs_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>http://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=theyear&themon
        %>
            <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>