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的这个有问题，我搞不明白了。
