<!--#include file="LibJson.asp"--><script Language="jscript" runat="server">  Array.prototype.get = function(x) { return this[x]; };  function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }
</script>  <%Sub writeData()Set My = MoLibJson.new()My.dateformat = "yyyy-MM-dd HH:mm:ss"My.put "status","ok"My.put "time",NowSet results = My.put("result")results.datatype="array"Set writetoResult = Server.CreateObject("Scripting.FileSystemObject")writetoResult.CreateTextFile ResultPh,trueSet resufile = writetoResult.OpenTextFile(ResultPh,2,True)resufile.Write My.toString()Set resufile = NothingEnd SubSub getDataByLocation (longitude,latitude)URL =  “http:xxxx.com/xx.json”weatherData = GetHttpPage(URL,"UTF-8")       'Http请求，获取返回的json数据Set obj = parseJSON(weatherData)     ‘对获取到的json数据进行解析‘生成json数据Set result1 = results.put()  result1.put "location",array(longitude,latitude),"vbarray"Set subPre = result1.put("precipitation")Set preHou = subPre.put("hourly")preHou.datatype="array"Set hou= obj.result.hourly.precipitationFor n=0 To 47Set kvHou = preHou.put()kvHou.put "value",hou.get(n).valuekvHou.put "datetime",hou.get(n).datetimeNextDim arrayData(59)Set minu= obj.result.minutely.precipitationFor n=0 To 59arrayData(n)= minu.get(n)NextsubPre.put "minutely",arrayData,"vbarray"End SubFunction GetHttpPage(url, charset) Dim http Set http = Server.createobject("Msxml2.ServerXMLHTTP")'Set http = Server.createobject("MSXML2.XMLHTTP.6.0")'set http = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
http.setOption(2) = 13056http.Open "GET", url, falsehttp.Send() If http.readystate<>4 ThenExit Function End If GetHttpPage = BytesToStr(http.ResponseBody, charset)Set http = Nothing
End functionFunction BytesToStr(body, charset)Dim objStreamSet objStream = Server.CreateObject("Adodb.Stream")objStream.Type = 1objStream.Mode = 3objStream.OpenobjStream.Write bodyobjStream.Position = 0objStream.Type = 2objStream.Charset = charsetBytesToStr = objStream.ReadText objStream.CloseSet objStream = Nothing
End Function%>

<script language="jscript" runat="server">
/*'by anlige at www.9fn.net*/
function MoLibJson(t,df){this.table=[];this.datatype=t||"object";this.dateformat=df||"";
}
MoLibJson.New = function(t,df){return new MoLibJson(t,df);};
MoLibJson.prototype.put=function(key,value,tp){if(value===undefined)return this.putnew(key||"TMP__");tp = tp||"";tp = tp.toLowerCase();if(tp=="vbarray" || this.IsVBArray(value))return this.putvbarray(key,value);if(tp=="arraylist")return this.put(key,value.split(","));if(tp=="dictionary" || this.IsDictionary(value))return this.putdictionary(key,value);if(tp=="rows" || this.IsRecordset(value))return this.putrows(key,value);this.table.push({key:key,value:value});return this.table[this.table.length-1];a
};
MoLibJson.prototype.putdictionary=function(key,value){return this.putnew(key).fromdictionary(value);
};
MoLibJson.prototype.fromdictionary=function(value){if(value.count<=0)return obj;var keys=(new VBArray(value.keys())).toArray();for(var i =0;i<keys.length;i++){this.put(keys[i],value.item(keys[i]));}return this;
};
MoLibJson.prototype.putnew=function(key){return this.put(key,new MoLibJson("object",this.dateformat))['value'];
};
MoLibJson.prototype.putnewarray=function(key){return this.put(key,new MoLibJson("array",this.dateformat))['value'];
};
MoLibJson.prototype.putvbarray=function(key,value){return this.put(key,(new VBArray(value)).toArray());
};
MoLibJson.prototype.putrows=function(key,rs,pagesize){return this.putnewarray(key).fromrows(rs,pagesize);
};
MoLibJson.prototype.fromrows=function(rs,pagesize){this.datatype="array";if(pagesize==undefined)pagesize=-1;var ps = rs.Bookmark;var k=0;while(!rs.eof && (k<pagesize || pagesize==-1)){k++;var tmp__=new Object();for(var i=0;i<rs.fields.count;i++){tmp__[rs.fields(i).Name]=rs.fields(i).value;}this.put("",tmp__);rs.MoveNext();}try{rs.Bookmark=ps;}catch(ex){}return this;
};
MoLibJson.prototype.toString = MoLibJson.prototype.getobjectstring=function(key){key=key||"";if(this.datatype=="array"){if(this.table.length<=0)return "[]";var ret="[";for(var i=0;i<this.table.length;i++){ret+=this.parse(this.table[i]["value"]) + ",";}if(ret!="[")ret=ret.substr(0,ret.length-1);ret+="]";if(key!="")return "{\"" + key + "\":" + ret + "}";return ret;}else{if(this.table.length<=0)return "{}";var ret="{";for(var i=0;i<this.table.length;i++){ret+="\""+this.table[i]["key"]+"\":" + this.parse(this.table[i]["value"]) + ",";}if(ret!="{")ret=ret.substr(0,ret.length-1);ret+="}";if(key!="")return "{\"" + key + "\":" + ret + "}";return ret;}
};
MoLibJson.prototype.del=function(key){if(this.table.length<=0)return;var tb = [],find=false;for(var i=0;i<this.table.length;i++){if(this.table[i]["key"]!=key){tb.push(this.table[i]);}else{find = true;}}if(find)this.table = tb;
};
MoLibJson.prototype.set=function(key,value){this.del(key);this.put(key,value);
};
MoLibJson.prototype.parse=function(value){if(value===null)return "null";if(this.IsVBArray(value))value=(new VBArray(value)).toArray();var ty = typeof(value);if(ty=="string"){return "\"" + this.encode(value) + "\"";}else if(ty=="number" || ty=="boolean"){return value;    }else if(ty=="date"){var dt = new Date(value);if(this.dateformat==""){return "\""+dt.toString()+"\"";    }else{return "\""+this.formatdate(value,this.dateformat)+"\"";    }}else if(ty=="object"){if(value.constructor){if(value.constructor==Array){var ret1="[";for(var j=0;j<value.length;j++){ret1+=this.parse(value[j])+",";}if(ret1!="[")ret1=ret1.substr(0,ret1.length-1);ret1+="]";return ret1;}else if(value.constructor==MoLibJson){return value.getobjectstring();}else if(value.constructor==Object){var o = new MoLibJson("object",this.dateformat);for(var i in value){if(value.hasOwnProperty && value.hasOwnProperty(i)) o.put(i,value[i]);    }    return o.getobjectstring();        }else if(value.constructor==Date){var dt = new Date(value);if(this.dateformat==""){return "\""+dt.toString()+"\"";    }else{return "\""+this.formatdate(value,this.dateformat)+"\"";    }}else{return this.encode(value.constructor.toString());    }}}return "\"unknown:" + ty +"\"";
};
MoLibJson.prototype.formatstring=function(src,format){if(!/^(left|right)\s(\d+)$/i.test(format))return src;var direction = /^(left|right)\s(\d+)$/i.exec(format)[1];var len = parseInt(/^(left|right)\s(\d+)$/i.exec(format)[2]);if(direction=="left")return src.substr(0,len);if(direction=="right")return src.substr(src.length-len,len);
};
MoLibJson.prototype.formatdate=function(dt,formatStr){if(typeof dt!="date")dt=new Date();dt = new Date(dt);var y=new Array(2),m=new Array(2),d=new Array(2),h=new Array(2),n=new Array(2),s=new Array(2),w,ws=new Array(2),t = new Array(1),H=new Array(2);y[0] = dt.getFullYear();m[0] = dt.getMonth()+1;d[0] = dt.getDate();h[0] = dt.getHours();H[0] = h[0] % 12;n[0] = dt.getMinutes();s[0] = dt.getSeconds();y[1] = y[0];m[1] = this.formatstring("0" +m[0],"right 2");d[1] = this.formatstring("0" +d[0],"right 2");h[1] = this.formatstring("0" +h[0],"right 2");H[1] = this.formatstring("0" +H[0],"right 2");n[1] = this.formatstring("0" +n[0],"right 2");s[1] = this.formatstring("0" +s[0],"right 2");ws[0] = "日,一,二,三,四,五,六".split(",");ws[1] = "Sun,Mon,Tues,Wed,Thur,Fri,Sat".split(",");t[0] = dt.getMilliseconds();w=dt.getDay()-1;var returnStr;returnStr = formatStr.replace(/yyyy/g,y[0]);returnStr = returnStr.replace(/yy/g,y[1]);returnStr = returnStr.replace(/MM/g,m[1]);returnStr = returnStr.replace(/M/g,m[0]);returnStr = returnStr.replace(/dddd/g,ws[0][w]);returnStr = returnStr.replace(/ddd/g,ws[1][w]);returnStr = returnStr.replace(/dd/g,d[1]);returnStr = returnStr.replace(/d/g,d[0]);returnStr = returnStr.replace(/HH/g,h[1]);returnStr = returnStr.replace(/H/g,h[0]);returnStr = returnStr.replace(/mm/g,n[1]);returnStr = returnStr.replace(/m/g,n[0]);returnStr = returnStr.replace(/ss/g,s[1]);returnStr = returnStr.replace(/s/g,s[0]);returnStr = returnStr.replace(/tttt/g,t[0]);return returnStr    ;
};
MoLibJson.prototype.encode=function(str){if(str==undefined) return "";if(str=="")return "";var i, j, aL1, aL2, c, p,ret="";aL1 = Array(0x22, 0x5C, 0x2F, 0x08, 0x0C, 0x0A, 0x0D, 0x09);aL2 = Array(0x22, 0x5C, 0x2F, 0x62, 0x66, 0x6E, 0x72, 0x74);for(i = 0;i<str.length;i++){p = true;c = str.substr(i,1);for(j = 0;j<=7;j++){if(c == String.fromCharCode(aL1[j])){ret += "\\" + String.fromCharCode(aL2[j]);p = false;break;}}if(p){var a = c.charCodeAt(0);if(a > 31 && a < 127){ret +=c}else if(a > -1 || a < 65535){var slashu = a.toString(16);while(slashu.length<4){slashu="0"+slashu;}ret += "\\u" + slashu;}}}return ret;
};
MoLibJson.prototype.IsDictionary=function(o) {return ((o != null) &&(typeof(o) == "object") &&(o instanceof ActiveXObject) &&(typeof(o.Add) == "unknown") &&(typeof(o.Exists) == "unknown") &&(typeof(o.Items) == "unknown") &&(typeof(o.Keys) == "unknown") &&(typeof(o.Remove) == "unknown") &&(typeof(o.RemoveAll) == "unknown") &&(typeof(o.Count) == "number") &&(typeof(o.Item) == "unknown") &&(typeof(o.Key) == "unknown"));
};MoLibJson.prototype.IsVBArray=function(o) {return ((o != null) &&(typeof(o) == "unknown") &&(o.constructor == VBArray) &&(typeof(o.dimensions) == "function") &&(typeof(o.getItem) == "function") &&(typeof(o.lbound) == "function") &&(typeof(o.toArray) == "function") &&(typeof(o.ubound) == "function"));
}
MoLibJson.prototype.IsRecordset=function(o) {return ((o != null) &&(typeof(o) == "object") &&(o instanceof ActiveXObject) &&(typeof(o.Fields) == "object") &&(typeof(o.CursorType) == "number") &&(typeof(o.LockType) == "number") &&(typeof(o.BookMark) == "number") &&(typeof(o.AbsolutePage) == "number" || typeof(o.AbsolutePage) == "unknown") &&(typeof(o.Recordcount) == "number" || typeof(o.Recordcount) == "unknown") &&(typeof(o.PageSize) == "number"));
}
</script>