请帮我看这一段关于读取RSS的代码
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的这个有问题,我搞不明白了。