解決Ajax跨域存取報沒有權限的錯誤。需要的朋友可以參考下。 smart.asp
複製代碼代碼如下:
<script language=jscript runat=server>
/*
在VBS裡面的呼叫方法
dim myhttp
set myhttp = SmartHttp(url,method,data); //三個參數皆可選
屬性：
url：String，請求的網址
method：String，請求的方法
data：String，請求的數據
charset：String，請求的URL回傳資料的編碼
status：Int，請求傳回的狀態碼
readyState：Int，同HTTP請求的目前通訊狀態，1、2、3、4
dataset：Object，請求的數據，如果增加了，會將這部分數據附加到data屬性
dataset屬性：
charset：String，發送資料的編碼
dataset方法：
append(key,value,noencode)：新增數據
remove(key)：移除某個資料項
isexists(key)：判斷某個資料項是不是存在
clear：清除所有資料項
方法：
header(headstr)：設定請求頭，項目和值之間用:分開
timeout(t1,t2,t3,t4)：設定逾時時間
send()：發送請求
getbinary：取得伺服器傳回的二進位數據
gettext(charset)：取得指定編碼的文本
getjson(charset)：取得指定編碼的json數據
getheader(key)：取得伺服器傳回的回應頭
getxml(charset)：取得指定編碼的xml數據
*/
function SmartHttp(url,method,data){
return new _SmartHttp(url,method,data);
}
function _SmartHttp(url,method,data){
if(typeof method==undefined) method=GET;
if(typeof data==undefined) data=;
method = method.toUpperCase();
method = method!=POST ? GET : POST;
this.timeout=[10000,10000,10000,10000];
this.method = method;
this.url=url;
this.data=data;
this.charset=gb2312;
this.http=null;
this.headers=[];
this.status=0;
this.readyState=0;
this.content=null;
this.msg=;
this.dataset={
charset:gb2312,
data:[],
append:function(key,value,noencode){
var fn=null;
if(this.charset.toLowerCase()==utf-8){fn = encodeURIComponent;}else{fn = escape;}
if(noencode==true){fn=function(_str){return _str;}}
this.data.push({key:fn(key),value:fn(value)});
},
remove:function(key){
if(this.data.length<=0) return false;
var _data=[];
for(var i=0;i<this.data.length;i++){
if(this.data[i].key!=key){
_data.push(this.data[i]);
}
}
this.data = _data;
},
isexists:function(key){
if(this.data.length<=0) return false;
for(var i=0;i<this.data.length;i++){
if(this.data[i].key==key){
return true;
}
}
return false;
},
clear:function(){
this.dataset.data=[];
}
};
}
_SmartHttp.prototype.init=function(){
var datasetstr=;
if(this.dataset.data.length>0){
for(var i=0;i<this.dataset.data.length;i++){
datasetstr += this.dataset.data[i].key + = + this.dataset.data[i].value + &;
}
}
if(datasetstr!=) datasetstr = datasetstr.substr(0,datasetstr.length-1);
if(this.data==){this.data = datasetstr;}else{if(datasetstr!=)this.data+= & + datasetstr;}
if(this.data==)this.data=null;
//this.url += ((this.url.indexOf(?)<0) ? ? : &) + jornd= + this.getrnd();
if(this.method==GET && this.data!=null) this.url += & + this.data;
if(this.method==POST) this.headers.push(Content-Type:application/x-www-form-urlencoded);
if(!this.charset || this.charset==) this.charset = gb2312;
};
_SmartHttp.prototype.header=function(headstr){
if(headstr.indexOf(:)>=0) this.headers.push(headstr);
return this;
};
_SmartHttp.prototype.timeout=function(){
if(arguments.length>4){return this;}
for(var i =0;i<arguments.length;i++){
if(!isNaN(arguments[i])){
this.timeout[i] = parseInt(arguments[i]);
}
}
return this;
};
_SmartHttp.prototype.send=function(){
this.init();
var _http = this.getobj();
if(_http==null){return this;}
try{
_http.setTimeouts(this.timeout[0], this.timeout[1], this.timeout[2], this.timeout[3]);
}catch(ex){}
_http.open(this.method,this.url,false);
if(this.headers.length>0){
for(var i=0;i<this.headers.length;i++){
var Sindex = this.headers[i].indexOf(:);
var key = this.headers[i].substr(0,Sindex);
var value = this.headers[i].substr(Sindex+1);
_http.setRequestHeader(key,value);
}
}
_http.send(this.data);
this.readyState = _http.readyState;
if(_http.readyState==4){
this.status = parseInt(_http.status);
this.http = _http;
this.content = _http.responseBody;
}
return this;
}
_SmartHttp.prototype.getbinary=function(){
return this.content;
};
_SmartHttp.prototype.gettext=function(charset){
try{
return this.b2s(this.content,charset ? charset : this.charset);
}catch(ex){
this.msg = ex.description;
return ;
}
};
_SmartHttp.prototype.getjson=function(charset){
try{
var _json=null;
eval(_json=( + this.gettext(charset) + ););
return _json;
}catch(ex){
this.msg = ex.description;
return null;
}
};
_SmartHttp.prototype.getheader=function(key){
if(key){
if(key.toUpperCase()==SET-COOKIE){
key = key.replace(-,/-);
var headers = this.http.getAllResponseHeaders();
var regexp = new RegExp(/n + key + /:(.+?)/r,ig);
var resstr = ;
while((res = regexp.exec(headers))!=null){
var val = res[1].trim();
resstr = resstr + val.substr(0,val.indexOf(;)) + ;
}
if(resstr!=){
resstr = resstr.substr(0,resstr.lastIndexOf(;));
}
return resstr;
}else{
return this.http.getResponseHeader(key);
}
}else{return this.http.getAllResponseHeaders();}
};
_SmartHttp.prototype.getxml=function(charset){
try{
var _dom = new ActiveXObject(MSXML2.DOMDocument);
_dom.loadXML(this.gettext(charset));
return _dom;
}catch(ex){
this.msg = ex.description;
return null;
}
};
_SmartHttp.prototype.getobj = function (){
var b=null;
var httplist = [MSXML2.serverXMLHttp.3.0,MSXML2.serverXMLHttp,MSXML2.XMLHttp.3.0,MSXML2.XMLHttp,Microsoft.XMLHttp];
for(var i = 0;i<=httplist.length -1;i++){
try{
b= new ActiveXObject(httplist[i]);
(function(o){
_SmartHttp.prototype.getobj = function(){return new ActiveXObject(o)};
})(httplist[i]);
return b;
}catch(ex){
eval(this.msg = ex.description;);
}
}
return b;
};
_SmartHttp.prototype.getrnd = function (){return Math.random().toString().substr(2);};
_SmartHttp.prototype.b2s = function(bytSource, Cset){ //ef bb bf,c0 fd
var Objstream,c1,c2,c3;
var byts;
Objstream =Server.CreateObject(ADODB.Stream);
Objstream.Type = 1;
Objstream.Mode = 3;
Objstream.Open();
Objstream.Write(bytSource);
Objstream.Position = 0;
Objstream.Type = 2;
Objstream.CharSet = Cset;
byts = Objstream.ReadText();
Objstream.Close();
Objstream = null;
return byts;
};
_SmartHttp.prototype.urlencode=function(str){ return encodeURIComponent(str);};
_SmartHttp.prototype.urldecode=function(str){ return decodeURIComponent(str);};
String.prototype.trim = function(){return this.replace(/(^(/s+)|(/s+)$)/igm,);};
</script>
使用代碼:
複製代碼代碼如下:
<!--#include file=smart.asp-->
<%
Response.charset=utf-8
dim url,method,data,charset
url =Request.Form(targeturl)
method =Request.Form(method)
data =Request.Form(data)
charset = Request.Form(charset)
if charset = then charset = GB2312
response.Write SmartHttp(url,method,data).send().gettext(charset)
set myhttp = nothing
%>