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.glzy8.com/404.htm"))%>

　　</body>

　　</html>