asp html编码转换,asp(JavaScript)自动判断网页编码并转换的代码

完整的示例代码如下：

JavaScript自动判断网页编码并转换

function send_request(url){

var codedtext;

http_request = Server.CreateObject("Microsoft.XMLHTTP");

http_request.Open("GET",url,false);

http_request.Send(null);

if (http_request.ReadyState == 4){

//自动判断编码开始

var charresult = http_request.ResponseText.match(/CharSet=(\S+)\">/i);

if (charresult != null){

var Cset = charresult[1];

}else{Cset = "gb2312"}//对获取不到的网站采用gb2312编码,可自行更改

//自动判断编码结束

codedtext = bytesToBSTR(http_request.Responsebody,Cset);

}else{

codedtext = "Erro";

}

return(codedtext);

}

function bytesToBSTR(body,Cset){

var objstream;

objstream = Server.CreateObject("Adodb.Stream");

objstream.Type = 1;

objstream.Mode = 3;

objstream.Open();

objstream.Write(body);

objstream.Position = 0;

objstream.Type = 2;

objstream.Charset = Cset;

bytesToBSTR = objstream.Readtext;

objstream.Close;

return(bytesToBSTR);

}%>