VBS进⾏http请求及JSON数据的读取和⽣成
背景：
  近期帮⼀个公司做第三⽅API的⼆次封装，需要部署到该公司⽹站。所获取的是Json数据格式。由于该公司原系统采⽤的ASP＋VBS技术⽅案，因此采⽤VBS对API进⾏请求、封装。
实现：
废话不多说，直接上代码。由于某些原因，不能将所有代码贴出来，有问题的可以留⾔。
<!--#include file="LibJson.asp"-->
<script Language="jscript" runat="server">
= function(x) { return this[x]; };
function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }
</script>
<%
Sub writeData()
Set My = w()
My.dateformat = "yyyy-MM-dd HH:mm:ss"
My.put "status","ok"
My.put "time",Now
Set results = My.put("result")
results.datatype="array"
Set writetoResult = Server.CreateObject("Scripting.FileSystemObject")
writetoResult.CreateTextFile ResultPh,true
Set resufile = writetoResult.OpenTextFile(ResultPh,2,True)
resufile.String()
Set resufile = Nothing
End Sub
Sub getDataByLocation (longitude,latitude)
URL =  “http:xxxx/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= sult.hourly.precipitation
For n=0To47
Set kvHou = preHou.put()
kvHou.put "value",(n).value
kvHou.put "datetime",(n).datetime
Next
Dim arrayData(59)
Set minu= sult.minutely.precipitation
For n=0To59
arrayData(n)= (n)
Next
subPre.put "minutely",arrayData,"vbarray"
End Sub
Function GetHttpPage(url, charset)
Dim http
Set http = ateobject("Msxml2.ServerXMLHTTP")
'Set http = ateobject("MSXML2.XMLHTTP.6.0")
'set http = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
http.setOption(2) = 13056
http.Open "GET", url, false
http.Send()
adystate<>4Then
Exit Function
End If
GetHttpPage = BytesToStr(http.ResponseBody, charset)
Set http = Nothing
End function
Function BytesToStr(body, charset)
Dim objStream
Set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open
objStream.Write body
objStream.Position = 0
objStream.Type = 2
objStream.Charset = charset
BytesToStr = objStream.ReadText
objStream.Close
Set objStream = Nothing
End Function
%>
LibJson.asp.
这个代码是⽤的别⼈的，可以直接⽤
<script language="jscript" runat="server">
/*'by anlige at www.9fn*/
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){
unt<=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<unt;i++){
tmp__[rs.fields(i).Name]=rs.fields(i).value;
}
this.put("",tmp__);
rs.MoveNext();
}
try{
rs.Bookmark=ps;
}catch(ex){}
return this;
};
String = bjectstring=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;
typeof array
}
};
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"\"" + de(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"){
structor){
structor==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);
}else structor==MoLibJson){
bjectstring();
}else structor==Object){
var o = new MoLibJson("object",this.dateformat);
for(var i in value){
if(value.hasOwnProperty && value.hasOwnProperty(i)) o.put(i,value[i]);
}
bjectstring();
}else structor==Date){
var dt = new Date(value);
if(this.dateformat==""){
return"\""+dt.toString()+"\"";
}else{
return"\""+this.formatdate(value,this.dateformat)+"\"";
}
}else{
String());
}
}
}
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();
Day()-1;
var returnStr;
returnStr = place(/yyyy/g,y[0]);
returnStr = place(/yy/g,y[1]);
returnStr = place(/MM/g,m[1]);
returnStr = place(/M/g,m[0]);
returnStr = place(/dddd/g,ws[0][w]);
returnStr = place(/ddd/g,ws[1][w]);
returnStr = place(/dd/g,d[1]);
returnStr = place(/d/g,d[0]);
returnStr = place(/HH/g,h[1]);
returnStr = place(/H/g,h[0]);
returnStr = place(/mm/g,n[1]);
returnStr = place(/m/g,n[0]);
returnStr = place(/ss/g,s[1]);
returnStr = place(/s/g,s[0]);
returnStr = place(/tttt/g,t[0]);
return returnStr    ;
};
de=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]);
}
}
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") &&
(Item) == "function") &&
(typeof(o.lbound) == "function") &&
(Array) == "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>

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。