asp轉換網頁編碼的程式碼，用正規匹配頁面的編碼宣告是gb2312還是別的，然後輸出。完整的範例程式碼如下：
複製代碼代碼如下:
<%@LANGUAGE=JAVASCRIPT CODEPAGE=65001%>
<html>
<head>
<meta http-equiv=Content-Type content=text/html; charset=utf-8>
<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(http://www.vevb.com/404.htm))%>
</body>
</html>