请提供一些全文输出xml格式的RSS，感谢！！！

来源：百度知道 编辑：UC知道 时间：2024/05/20 00:18:03
全文输出的 不要输出部分内容的

XML格式 编码为GB2312或者UTF-8

最好是英文的，大网站的，速度快的

谢谢！！！

（用搜索引擎搜出来的一些文不对题的内容请不要发了，谢谢）

<%
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("ADOD