以前写的,应该还有用weather.html<!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>天气预报</title> <script type="text/javascript"> var Ajax = function(){}; Ajax.prototype = { createHttpRequest : function(){ if(window.ActiveXObject){ //var ver = ["MSXML5.XMLHTTP","MSXML4.XMLHTTP","MSXML3.XMLHTTP","MSXML2.XMLHTTP","Microsoft.XMLHTTP"]; var ver = ["Microsoft.XMLHTTP","MSXML.XMLHTTP"]; for(var i=0; i<ver.length; i++){ try{ return new window.ActiveXObject(ver[i]); }catch(e){} } }else{ try{ return new XMLHttpRequest(); }catch(e){} } alert("Failure to create HttpRequest!"); },
get : function(url, async, fnCallBack){ var xmlHttp = this.createHttpRequest(); xmlHttp.open("GET", url, async); xmlHttp.onreadystatechange = function(){ if(xmlHttp.readyState == 4 ){ if(xmlHttp.status == 200){ fnCallBack(xmlHttp.responseText); }else{ fnCallBack(null); } } }; xmlHttp.setRequestHeader("If-Modified-Since","0"); xmlHttp.send(null); } }; function createXMLDOM(){ var arr = ["MSXML2.DOMDocument.5.0", "MSXML2.DOMDocument.4.0", "MSXML2.DOMDocument.3.0", "MSXML2.DOMDocument", "Microsoft.XmlDom"]; for(var i=0; i<arr.length; i++){ try{ var oXmlDom = new ActiveXObject(arr[i]);
return oXmlDom; } catch(oError){ } }
throw new Error("MSXML is not installed on your system."); }window.onload = function(){ var ajax = new Ajax(); var city = "北京"; var url = "weather.asp?dayFlag=1&cityName=" + encodeURI(city);
ajax.get(url, true, function(str) { var string = str.split("|"); if(string.length >= 6){ var html = []; html.push(string[0]) html.push(string[1]); html.push(string[2]); html.push(string[3]); html.push("<img src='" + string[5] + "'>");
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>天气预报</title>
<script type="text/javascript">
var Ajax = function(){};
Ajax.prototype = {
createHttpRequest : function(){
if(window.ActiveXObject){
//var ver = ["MSXML5.XMLHTTP","MSXML4.XMLHTTP","MSXML3.XMLHTTP","MSXML2.XMLHTTP","Microsoft.XMLHTTP"];
var ver = ["Microsoft.XMLHTTP","MSXML.XMLHTTP"];
for(var i=0; i<ver.length; i++){
try{
return new window.ActiveXObject(ver[i]);
}catch(e){}
}
}else{
try{
return new XMLHttpRequest();
}catch(e){}
}
alert("Failure to create HttpRequest!");
},
get : function(url, async, fnCallBack){
var xmlHttp = this.createHttpRequest();
xmlHttp.open("GET", url, async); xmlHttp.onreadystatechange = function(){
if(xmlHttp.readyState == 4 ){
if(xmlHttp.status == 200){
fnCallBack(xmlHttp.responseText);
}else{
fnCallBack(null);
}
}
};
xmlHttp.setRequestHeader("If-Modified-Since","0");
xmlHttp.send(null);
}
};
function createXMLDOM(){
var arr = ["MSXML2.DOMDocument.5.0", "MSXML2.DOMDocument.4.0", "MSXML2.DOMDocument.3.0", "MSXML2.DOMDocument", "Microsoft.XmlDom"];
for(var i=0; i<arr.length; i++){
try{
var oXmlDom = new ActiveXObject(arr[i]);
return oXmlDom;
}
catch(oError){
}
}
throw new Error("MSXML is not installed on your system.");
}window.onload = function(){
var ajax = new Ajax();
var city = "北京";
var url = "weather.asp?dayFlag=1&cityName=" + encodeURI(city);
ajax.get(url, true, function(str)
{
var string = str.split("|");
if(string.length >= 6){
var html = [];
html.push(string[0])
html.push(string[1]);
html.push(string[2]);
html.push(string[3]);
html.push("<img src='" + string[5] + "'>");
document.getElementById("container").innerHTML = html.join(" ");
}
}
);
};
</script>
</head>
<body>
<div id="container">
</div>
</body>
</html>
weather.asp<%@LANGUAGE="VBSCRIPT" CodePage="936" %>
<%
Dim xmlHttp, url, cityName, dayFlag
cityName = Request("CityName")
dayFlag = Request("DayFlag")
If cityName = "" Then cityName = "%u6DF1%u5733"
If dayFlag = "" Then dayFlag = 2 url = "http://www.ayandy.com/Service.asmx/getWeatherbyCityName?theCityName=" & cityName & "&theDayFlag=" & dayFlag
Set xmlHttp = Server.CreateObject("Microsoft.XMLHttp")
xmlHttp.Open "Get", url, False
xmlHttp.Send()
Set xmlDom = Server.CreateObject("Microsoft.XmlDom")
xmlDom.async=False
xmlDom.ValidateOnParse=false
xmlDom.Load(xmlHttp.ResponseXML)
Set oItem = xmlDom.GetElementsByTagName("string")
Ret = ""
For I = 1 To oItem.Length - 2
If Ret <> "" Then Ret = Ret & "|"
If oItem(i).childNodes.Length > 0 Then
Ret = Ret & oItem(I).childNodes(0).text
Else
Ret = Ret & " "
End If
Next
Set oItem = Nothing
Set xmlDom = Nothing
Set xmlHttp = Nothing
Response.Charset = "gb2312"
Response.ContentType = "text/html"
Response.Write(Ret)
%>
例子:http://www.mofun.cc/web/lwgboy/1/-/blogs/97589