以下是ASP中读取远程XML文件的代码 <% url = "http://www.semcase.com/blog/feed/" Set http=Server.CreateObject("Microsoft.XMLHTTP") http.Open "GET",url,False http.send Set xml=Server.CreateObject("Microsoft.XMLDOM") xml.Async=true xml.ValidateOnParse=False xml.Load(http.ResponseXML) If xml.ReadyState>2 Then ‘xmlhttp.readyState的4个属性 ‘1:LOADING;2:LOADED;3:INTERACTIVE;4:COMPLETED ‘Response.Write("文档已经准备就绪。状态："& xml.ReadyState &"
") if xml.parseError.errorCode <> 0 then response.write "错误：读取数据失败" response.write xml.parseerror.errorcode response.write xml.parseerror.reason ‘xml.loadxml(myxmlstr) response.End() else ‘response.write "成功读取" end if Set channel=xml.getElementsByTagName("channel") if isnull(xml.getElementsByTagName("channel") ) then response.Write("读取失败") response.End() else ‘以下一次性读出所有的值 ‘ for j=0 to channel.item(i).childnodes.length-1 ‘Response.Write channel.item(0).childnodes(j).text &"
" ‘ next ‘以下是读取前5条的tilte,link,category值 ‘如要读取单条值可用xml.getElementByTagName("title").item(0).text for k=1 to 6 Response.Write(xml.getElementsByTagName("title").item(k).text &"
") Response.Write(xml.getElementsByTagName("link").item(k).text &"
") Response.Write(xml.getElementsByTagName("category").item(k).text &"
") next end if Else ‘Response.Write("文档还未准备就绪。状态："& xml.ReadyState &"
") End If Set http=Nothing Set xml=Nothing %> XML文件代码请查看http://www.semcase.com/blog/feed/