本站用的rss输出

207 阅读 0 评论 137 点赞

我是靠谱客的博主温婉音响，最近开发中收集的这篇文章主要介绍本站用的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.uoften.com]]></title> 
<link>http://www.uoften.com</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>