ASP mengonversi kode pengkodean halaman web, menggunakan pencocokan reguler untuk menentukan apakah pernyataan pengkodean halaman tersebut adalah gb2312 atau lainnya, dan kemudian mengeluarkannya. Contoh kode lengkapnya adalah sebagai berikut:
Copy kode kodenya sebagai berikut:
<%@LANGUAGE=KODE JAVASCRIPT=65001%>
<html>
<kepala>
<meta http-equiv=Jenis Konten konten=teks/html; charset=utf-8>
<title>JavaScript secara otomatis menentukan pengkodean halaman web dan mengonversinya</title>
</kepala>
<%Server.ScriptTimeout=9999999;
fungsi kirim_permintaan(url){
teks berkode var;
http_request = Server.CreateObject(Microsoft.XMLHTTP);
http_request.Open(DAPATKAN,url,salah);
http_request.Kirim(null);
jika (http_request.ReadyState == 4){
//Secara otomatis menentukan awal pengkodean
var charresult = http_request.ResponseText.match(/CharSet=(/S+)/>/i);
jika (hasil akhir != null){
var Cset = hasil keseluruhan[1];
}else{Cset = gb2312}//Mengadopsi pengkodean gb2312 untuk situs web yang tidak dapat diperoleh, dan Anda dapat mengubahnya sendiri
//Secara otomatis menentukan akhir pengkodean
codedtext = bytesToBSTR(http_request.Responsebody,Cset);
}kalau tidak{
teks berkode = Kesalahan;
}
kembali(teks berkode);
}
fungsi bytesToBSTR(body,Cset){
var objstream;
objstream = Server.CreateObject(Adodb.Stream);
objstream.Jenis = 1;
objstream.Mode = 3;
objstream.Buka();
objstream.Write(body);
objstream.Posisi = 0;
objstream.Jenis = 2;
objstream.Charset = Cset;
bytesToBSTR = objstream.Readtext;
objstream.Tutup;
kembali(bytesToBSTR);
}%>
<tubuh>
<%Respon.Write(send_request(http://www.vevb.com/404.htm))%>
</tubuh>
</html>