//确认需要的VBScript函数是否存在，不存在就写一个  
try{  
if(typeof(rsB)=="undefined"){initVBS();};  
}catch(e){initVBS();}  

//**全局变量**  
//glbEncode储存ascii到unicode字符的转换,这样做的好处是可以提高重复解码时的解码效率  
glbEncode=new Array();  

//**初始化函数**  
function initVBS(){  
 //初始化VBscript的两个funtion:rsB 和 vbChar  
 strVBS="<script language=vbscript>\r\n";  
 strVBS+="Function rsB(vIn)\r\nrsB=MidB(vIn,1)\r\nEnd Function\r\n";  
 strVBS+="Function vbChar(ss)\r\nvbChar = Chr(ss)\r\nEnd Function\r\n";  
 strVBS+="<\/script>";  
 document.write(strVBS);  
}  

//用同步方式获取网页内容  
function loadURL(strURL){  
 if(!strURL){return(false);}  
 var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP");  
 xmlHTTP.open("GET",strURL,false);  
 xmlHTTP.send("");  
 return xmlHTTP;  
}  

//重编码  
function reCode(b){  
 var s=rsB(b);  
 s=escape(s).replace(/%u/gi,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/ig,"%@$1$2");  
 var uniS=s.match(/\%@(.{4})/g);  
 s=s.replace(/@/g,"");  
 if(uniS){  
  var k;  
  for(var i=0;i<uniS.length;i++){  
   k=uniS[i].substring(2,6);  
   if(!glbEncode[k]){  
    glbEncode[k]=escape(vbChar(eval("0x"+k))).substring(1,6);  
   }  
  }  
  tempA=s.split("%");  
  for(var i=0;i<tempA.length;i++){  
   if(tempA[i].length!=2){  
    tempA[i]=glbEncode[tempA[i]];  
   }  
  }  
  s=tempA.join("%");  
 }  
 return unescape(s);  
}