其实也没有什么特别的地方，主要是看了微软VBA对象手册，发现可以直接用adodbStream转charSet,以前看到的例子都是用VBScript来转的，所以就写了一个纯Javascript的例子

不过可惜因为安全限制问题，这个东东只能给做HTA的人用了.....sigh....

复制代码 代码如下:

functionloadURL(strURL,strSend,strMethod,blnNotWait,aryHeads){

if(!strURL){return(false);}

strSend=strSend?strSend:"";

strMethod=strMethod=="POST"?"POST":"GET";

blnNotWait=blnNotWait?true:false;

varxmlHTTP=newActiveXObject("MSXML2.XMLHTTP");

xmlHTTP.open(strMethod,strURL,blnNotWait);

if(typeof(aryHeads)=="object"){

for(variinaryHeads){

try{

xmlHTTP.setRequestHeader(i,aryHeads[i]);

}catch(e){}

}

}

xmlHTTP.send(strSend);

if(blnNotWait){

return(xmlHTTP);

}else{

strTempFilePath="t"+(newDate()).getTime()+parseInt(Math.random()*1000)+".tmp";

varadodbStream=newActiveXObject("ADODB.Stream");

adodbStream.Type=1;//1=adTypeBinary

adodbStream.Open();

adodbStream.write(xmlHTTP.responseBody);

adodbStream.position=0;

adodbStream.Type=2;

adodbStream.charset="_autodetect_all";

varre=adodbStream.readText();

adodbStream=null;

return(re);

}

}