ASP konvertiert den Kodierungscode der Webseite, ermittelt mithilfe des regulären Abgleichs, ob die Kodierungsanweisung der Seite gb2312 oder eine andere ist, und gibt sie dann aus. Der vollständige Beispielcode lautet wie folgt:
Kopieren Sie den Codecode wie folgt:
<%@LANGUAGE=JAVASCRIPT CODEPAGE=65001%>
<html>
<Kopf>
<meta http-equiv=Content-Type content=text/html;
<title>JavaScript ermittelt automatisch die Webseitenkodierung und konvertiert sie</title>
</head>
<%Server.ScriptTimeout=9999999;
Funktion send_request(url){
var codierter Text;
http_request = Server.CreateObject(Microsoft.XMLHTTP);
http_request.Open(GET,url,false);
http_request.Send(null);
if (http_request.ReadyState == 4){
//Bestimmen Sie automatisch den Beginn der Kodierung
var charresult = http_request.ResponseText.match(/CharSet=(/S+)/>/i);
if (charresult != null){
var Cset = charresult[1];
}else{Cset = gb2312}//Übernehmen Sie die gb2312-Codierung für Websites, die nicht abgerufen werden können, und Sie können sie selbst ändern
//Ende der Kodierung automatisch ermitteln
codedtext = bytesToBSTR(http_request.Responsebody,Cset);
}anders{
codedtext = Fehler;
}
return(codierter Text);
}
Funktion 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);
}%>
<Körper>
<%Response.Write(send_request(http://www.vevb.com/404.htm))%>
</body>
</html>