代码如下:<% dim objXML dim objRootElement dim strValue dim strInetURL dim strXML dim item strInetURL =”http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml” Dim HttpReq set HttpReq = server.CreateObject(“MSXML2.XMLHTTP”) HttpReq.open “GET”, “http://pf.inetsolu