本站用的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=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.glzy8.com]]></title>

　　<link>http://www.glzy8.com</link>

　　<description><![CDATA[管理资源吧，努力提供没有错误的脚本，网络编程]]></description>

　　<language>zh-cn</language>

　　<copyright><![CDATA[Copyright 2006 ]]></copyright>

　　<webMaster><![CDATA[[email protected]]]></webMaster>

　　<generator> 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>