本站用的rss输出
本站用的rss输出
发布时间:2016-12-29 来源:查字典编辑
摘要:用了getrows提高效率复制代码代码如下:

用了getrows提高效率

复制代码 代码如下:

<%

Response.Charset="GB2312"

Response.ContentType="text/xml"

Response.Expires=60

Response.Write("<?xmlversion=""1.0""encoding=""GB2312""?>")

response.write("<?xml-stylesheettype=""text/css""href=""images/rss.css""?>")

dimRssId,sql,rs,tid,rs_type,sql_type,sqqq,rsshow,thetitle,themon,theday,thedate,theyear

RssId=CheckStr(Request.QueryString("RSSID"))

ifnotIsInteger(RssId)thenRssId=1

'得到子类别的所有id

setrsshow=conn.execute("selecttname,counts,tidfrominfotypewhereid="&RSSID&"")

ifnot(rsshow.eofandrsshow.bof)then

thetitle=split(rsshow("tname"),"|")(rsshow("counts")-1)

tid=rsshow("tid")

endif

rsshow.close

setrsshow=nothing

setrs_type=server.CreateObject("ADODB.RecordSet")

sql_type="selectidfrominfotypewheretidlike'"&tid&"%'"

rs_type.opensql_type,conn,1,1

dowhilenotrs_type.EOF

sqqq=sqqq&rs_type("id")&","

rs_type.MoveNext

loop

rs_type.close

setrs_type=nothing

ifsqqq=""thensqqq=tid

sql="selecttop20type_id,title,id,content,datetime,authorfromnewswheretype_idin("&sqqq&")andisshow=trueorderbydatetimedesc,iddesc"

setrs=conn.execute(sql)

ifrs.eoforrs.bofthen

redimfeedcat(0,0)

else

feedrows=rs.getrows()

endif

rs.close

setrs=nothing

conn.close

setconn=nothing

%>

<rssversion="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[Copyright2006jb51]]></copyright>

<webMaster><![CDATA[douxy001@gmail.com]]></webMaster>

<generator>jb512006</generator>

<%

ifubound(FeedRows,1)=0then

Response.Write("<item></item>")

else

fori=0toubound(FeedRows,2)

thedate=feedrows(4,i)

theyear=year(thedate)

themon=month(thedate)

iflen(themon)<2thenthemon="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>

<%

IFFeedRows(3,i)<>""andnotisnull(FeedRows(3,i))then

Response.Write("<description><![CDATA["&ubbcode(left(FeedRows(3,i),500))&"]]></description>")

endif

%>

<pubDate><%=FeedRows(4,i)%></pubDate>

</item>

<%

next

endif

%>

</channel>

</rss>

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新XML/RSS学习
热门XML/RSS学习
编程开发子分类