asp JavaScript 自动判别网页编码并转变的代码

发布时间：2023-07-01 13:32:53 所属栏目：Asp教程来源：

导读：完整的示例代码如下：代码如下:<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%><html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><title>JavaScript自动判断网页编码并转换</title></

完整的示例代码如下：

代码如下:

<%@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("//www.Cuoxin.com/404.htm"))%>

</body>

</html>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!