DDR爱好者之家 Design By 杰米
用了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>
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
更新日志
2024年05月15日
2024年05月15日
- 周翠玲.2010-JZ8爵士八号【久乐实业】【WAV+CUE】
- 《家园3》公布最新预告片 高级版玩家已可抢先体验!
- 《地狱之刃2》预告对比:精心打磨三年 画质显著提升
- 《生化危机4:重制版》路径光追Mod:帧数遭暴降 画面大提升
- 群星《青春重置计划 4 珍稀》[FLAC/分轨][1018.4MB]
- 严浩翔《Scary Movie I-Gaze》[320K/MP3][33.43MB]
- 严浩翔《Scary Movie I-Gaze》[FLAC/分轨][31.59MB]
- 鸣潮散华声骸怎么选择 散华声骸搭配及词条选择攻略
- 哈迪斯2黑帝斯暗影之炬图鉴及附魔效果一览 哈迪斯暗影之炬操作介绍及祝福推荐
- 鸣潮吟霖声骸怎么选择 吟霖声骸搭配及词条选择攻略
- 盛小云评弹-《盛小云专辑2CD》中曲[WAV+CUE]
- 【索尼精芽SueyePark-爱的礼赞(最爱的小提琴名曲集)(24-96)flac
- 群星《试音慢曳DTS[WAV]
- 塞尔达公主多款发型概念图公开:干练短发超受欢迎
- 曝索尼联手乐高:《乐高地平线》即将在发布会公布!