请帮我看这一段关于读取RSS的代码

tatty_bad 2008-11-14 01:10:30
Dim WSplit
WSplit = ReadRss("http://feeds.qzone.qq.com/cgi-bin/cgi_rss_out?uin=109271",10)
Response.Write WSplit

Function ReadRss(xmlseed,xmlnum)
Dim xmlDoc
Dim http
Dim WriteInfo
Dim TimeHm,XMLTitle
WriteInfo = ""
if xmlnum = "" then xmlnum = 10
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set objRootElement = xmlDoc.documentElement
Set oItem=xmlDoc.getElementsByTagName("item")
Set XMLTitle = xmlDoc.getElementsByTagName("title")
For i = 0 To (xmlnum-1)
Set title = oItem.Item(i).getElementsByTagName("title") '标题
Set link = oItem.Item(i).getElementsByTagName("link") '链接
WriteInfo = WriteInfo & "<a href="""& link.Item(0).Text &""" target='_blank'>"& title.Item(0).Text &"</a><br>"
Next
ReadRss = WriteInfo
End Function


错误提示是:缺少对象: 'oItem.Item(...)'

但是如果把RSS地址,换成其他的,就不会有这个错误,就QQ的这个有问题,我搞不明白了。
...全文
141 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Danny小竹 2008-11-14
  • 打赏
  • 举报
回复
那我跟一个看看?
tatty_bad 2008-11-14
  • 打赏
  • 举报
回复
自己找到问题了,跟帖给分!

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧