ASP convierte el código de codificación de la página web, utiliza coincidencias regulares para determinar si la declaración de codificación de la página es gb2312 u otra, y luego la genera. El código de muestra completo es el siguiente:
Copie el código de código de la siguiente manera:
<%@LANGUAGE=PÁGINA DE CÓDIGOS JAVASCRIPT=65001%>
<html>
<cabeza>
<meta http-equiv=Tipo de contenido content=text/html;charset=utf-8>
<title>JavaScript determina automáticamente la codificación de la página web y la convierte</title>
</cabeza>
<%Server.ScriptTimeout=9999999;
función enviar_request(url){
var texto codificado;
http_request = Servidor.CreateObject(Microsoft.XMLHTTP);
http_request.Open(GET,url,falso);
http_request.Enviar(nulo);
si (http_request.ReadyState == 4){
//Determina automáticamente el inicio de la codificación
var charresult = http_request.ResponseText.match(/CharSet=(/S+)/>/i);
si (resultadochar! = nulo) {
var Cset = charresult[1];
}else{Cset = gb2312}//Adopta la codificación gb2312 para sitios web que no se pueden obtener y puedes cambiarla tú mismo
//Determina automáticamente el final de la codificación
texto codificado = bytesToBSTR(http_request.Responsebody,Cset);
}demás{
texto codificado = Error;
}
retorno (texto codificado);
}
función bytesToBSTR(cuerpo,Cset){
varobjstream;
objstream = Servidor.CreateObject(Adodb.Stream);
objstream.Tipo = 1;
objstream.Modo = 3;
objstream.Open();
objstream.Write(cuerpo);
objstream.Posición = 0;
objstream.Tipo = 2;
objstream.Charset = Cset;
bytesToBSTR = objstream.Readtext;
objstream.Cerrar;
retorno(bytesToBSTR);
}%>
<cuerpo>
<%Response.Write(send_request(http://www.vevb.com/404.htm))%>
</cuerpo>
</html>