用了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>
复制代码 代码如下:
<%
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>
标签:
本站用的rss输出
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
白云城资源网 Copyright www.dyhadc.com
暂无“本站用的rss输出”评论...
更新日志
2024年05月20日
2024年05月20日
- 邰正宵《重燃爱恋 贰 Walk On》[320K/MP3][158.71MB]
- 林一峰2003-床头歌[华纳][WAV+CUE]
- 张琍敏1983-又见牵手[台湾留声复刻版][WAV+CUE]
- 张琍敏1978-雪中莲[台湾复刻版][WAV+CUE]
- 叶蕴仪1993-睡美人[日本版][WAV+CUE]
- 夜晚助兴音乐-群星《新时代床头音乐-性能量》2CD[WAV]
- 24K德国HD金碟《历届奥斯卡获奖金曲》3CD[WAV整轨]
- 邰正宵《重燃爱恋 贰 Walk On》[FLAC/分轨][431.72MB]
- 苏文劭《雨停出来走走》[320K/MP3][81.11MB]
- 苏文劭《雨停出来走走》[FLAC/分轨][210.76MB]
- 群星《2024好听新歌04》十倍音质WAV分轨
- 陈宁《弹指之间HQ》头版限量[低速原抓WAV+CUE]
- 陈宁《故人还》HQCDII限量签名版[低速原抓WAV+CUE]
- 苏文劭《春曲(Lessons)》[320K/MP3][39.8MB]
- 苏文劭《春曲(Lessons)》[FLAC/分轨][97.78MB]