ASP convertit le code d'encodage de la page Web, utilise une correspondance régulière pour déterminer si l'instruction d'encodage de la page est gb2312 ou autre, puis l'affiche. L’exemple de code complet est le suivant :
Copiez le code comme suit :
<%@LANGUAGE=JAVASCRIPT CODEPAGE=65001%>
<html>
<tête>
<méta http-equiv=Content-Type content=text/html; charset=utf-8>
<title>JavaScript détermine automatiquement l'encodage de la page Web et le convertit</title>
</tête>
<%Server.ScriptTimeout=9999999 ;
fonction send_request(url){
var texte codé ;
http_request = Serveur.CreateObject(Microsoft.XMLHTTP);
http_request.Open(GET,url,false);
http_request.Send(null);
si (http_request.ReadyState == 4){
//Déterminer automatiquement le début de l'encodage
var charresult = http_request.ResponseText.match(/CharSet=(/S+)/>/i);
si (charresult != null){
var Cset = charresult[1];
}else{Cset = gb2312}//Adoptez l'encodage gb2312 pour les sites Web qui ne peuvent pas être obtenus, et vous pouvez le modifier vous-même
//Déterminer automatiquement la fin de l'encodage
codedtext = bytesToBSTR(http_request.Responsebody,Cset);
}autre{
texte codé = Erro ;
}
return(texte codé);
}
fonction octetsVersBSTR(corps,Cset){
var objstream;
objstream = Server.CreateObject(Adodb.Stream);
objstream.Type = 1 ;
objstream.Mode = 3 ;
objstream.Open();
objstream.Write(corps);
objstream.Position = 0 ;
objstream.Type = 2 ;
objstream.Charset = Cset ;
bytesToBSTR = objstream.Readtext;
objstream.Fermer ;
return(octetsVersBSTR);
}%>
<corps>
<%Response.Write(send_request(http://www.vevb.com/404.htm))%>
</corps>
</html>