rss输出提高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>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=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>