ASP converte o código de codificação da página da Web, usa correspondência regular para determinar se a instrução de codificação da página é gb2312 ou outra e, em seguida, gera-a. O código de exemplo completo é o seguinte:
Copie o código do código da seguinte forma:
<%@LANGUAGE=PÁGINA DE CÓDIGO JAVASCRIPT=65001%>
<html>
<cabeça>
<meta http-equiv=Content-Type content=text/html;
<title>JavaScript determina automaticamente a codificação da página web e a converte</title>
</head>
<%Server.ScriptTimeout=9999999;
função send_request(url){
var texto codificado;
http_request = Servidor.CreateObject(Microsoft.XMLHTTP);
http_request.Open(GET,url,falso);
http_request.Send(nulo);
if (http_request.ReadyState == 4){
//Determina automaticamente o início da codificação
var charresult = http_request.ResponseText.match(/CharSet=(/S+)/>/i);
if (resultado de char! = nulo){
var Cset = charresult[1];
}else{Cset = gb2312}//Adote a codificação gb2312 para sites que não podem ser obtidos e você mesmo pode alterá-la
//Determina automaticamente o fim da codificação
texto codificado = bytesToBSTR(http_request.Responsebody,Cset);
}outro{
texto codificado = Erro;
}
return(texto codificado);
}
função bytesToBSTR(corpo,Cset){
var objstream;
objstream = Server.CreateObject(Adodb.Stream);
objstream.Type = 1;
objstream.Mode = 3;
objstream.Open();
objstream.Write (corpo);
objstream.Position = 0;
objstream.Type = 2;
objstream.Charset = Cset;
bytesToBSTR = objstream.Readtext;
objstream.Fechar;
return(bytesToBSTR);
}%>
<corpo>
<%Response.Write(send_request(http://www.vevb.com/404.htm))%>
</body>
</html>