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

完整的示例代码如下：

复制代码代码如下:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>

<html>

<head>

<title>JavaScript自动判断网页编码并转换</title>

</head>

<%Server.ScriptTimeout=9999999;

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);

}%>

<body>

<%Response.Write(send_request("http://www.jb51.net/404.htm"))%>

</body>

</html>