" Function GetPageContent(Url) Dim HTTPObj On Error Resume Next Set HTTPObj = Server.CreateObject("Microsoft.XMLHTTP") With HTTPObj .Open "Get", Url, False, "", "" .Send End With if HTTPObj.Readystate <> 4 then Set HTTPObj = Nothing GetPageContent = False Exit Function end if GetPageContent = replace(HTTPObj.responseText,"UTF-8","gb2312") Set HTTPObj = Nothing End Function strXML=GetPageContent(""&v_url&"") Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.validateonparse = true objXML.async=false objXML.loadXML(strXML) set objRootElement = objXML.documentElement if not isObject(objRootElement) then Response.Write("no file loaded") else Set ChannelList=objXML.getElementsByTagName("item") if isnull(objXML.getElementsByTagName("item") ) then response.Write("读取失败") response.End() else Set Statistics=objXML.getElementsByTagName("title") set KeywordList=objXML.getElementsbytagname("lastBuildDate") 'response.write "共有:"&keywordlist.length-1&"个频道" 'response.write "