ASP
请帮我看这一段关于读取RSS的代码
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区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的这个有问题，我搞不明白了。
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的这个有问题，我搞不明白了。
...全文
