<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>GOOGLE天气</title> </head> <body> <% dim objXML dim objRootElement dim strValue dim strInetURL dim strXML dim items,item1,item2 strInetURL ="http://www.google.com/ig/api?hl=en&weather=quanzhou" Dim HttpReq set HttpReq = server.CreateObject("MSXML2.XMLHTTP") HttpReq.open "GET", "http://www.google.com/ig/api?hl=en&weather=quanzhou", False HttpReq.send strXML = HttpReq.responseText Set objXML = Server.CreateObject("Msxml2.DOMDocument") objXML.validateonparse = true objXML.async=false objXML.loadXML(strXML) if objXML.ParseError.errorCode <> 0 then Response.Write("Error: " & objXML.parseError.reason & "<br>") Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & "<br>") Response.Write("At Line: " & objXML.parseError.line & "<br>") Response.Write("At pos: " & objXML.parseError.linePos & "<br>") else set objRootElement = objXML.documentElement if not isObject(objRootElement) then Response.Write("no file loaded") else set items = objRootElement.childnodes(0).childnodes for each item1 in items if item1.nodename = "forecast_information" then Response.Write("Today<br>") response.Write("Quanzhou, Fujian China<br>") 'Response.Write(item1.childnodes(5).GetAttributeNode("data").NodeValue&"<br>") 'Response.Write(objRootElement.childnodes(0).text) 'Response.Write("<hr>") elseif item1.nodename = "current_conditions" then Response.Write("<img src="http://www.google.com"&item1.childnodes(4).GetAttributeNode("data").NodeValue&"" mce_src="http://www.google.com"&item1.childnodes(4).GetAttributeNode("data").NodeValue&""><br>") Response.Write("Current:"&item1.childnodes(0).GetAttributeNode("data").NodeValue&"<br>") Response.Write("Temperature:"&item1.childnodes(1).GetAttributeNode("data").NodeValue&"°F<br>") Response.Write(item1.childnodes(3).GetAttributeNode("data").NodeValue&"<br>") Response.Write(item1.childnodes(5).GetAttributeNode("data").NodeValue&"<br>") Response.Write("<hr>") response.Write("<table cellpadding='0' cellspacing='0' border='0' width='100%'><tr>") else response.Write("<td width='25%'>") Response.Write(item1.childnodes(0).GetAttributeNode("data").NodeValue&"<br>") Response.Write("<img src="http://www.google.com"&item1.childnodes(3).GetAttributeNode("data").NodeValue&"" mce_src="http://www.google.com"&item1.childnodes(3).GetAttributeNode("data").NodeValue&""><br>") Response.Write("Low Tempe:"&item1.childnodes(1).GetAttributeNode("data").NodeValue&"°F<br>") Response.Write("High Tempe:"&item1.childnodes(2).GetAttributeNode("data").NodeValue&"°F<br>") Response.Write(item1.childnodes(4).GetAttributeNode("data").NodeValue) 'Response.Write("<hr>") response.Write("</td>") end if Next end if end if response.Write("</tr></table>") %> </body> </html> 可以直接使用咯~!~!~因为也是百度到的~!~所以发上来给大家看看~!~有需要的朋友拿去用咯~!~!~