يقوم ASP بتحويل كود ترميز صفحة الويب، ويستخدم المطابقة العادية لتحديد ما إذا كان بيان ترميز الصفحة هو gb2312 أو غيره، ثم يقوم بإخراجه. رمز العينة الكامل هو كما يلي:
انسخ رمز الكود كما يلي:
<%@LANGUAGE=صفحة كود جافا سكريبت=65001%>
<أتش تي أم أل>
<الرأس>
<meta http-equiv=Content-Type content=text/html;
<title>تحدد JavaScript ترميز صفحة الويب تلقائيًا وتقوم بتحويله</title>
</الرأس>
<%Server.ScriptTimeout=9999999;
وظيفة send_request(url){
فار مشفر النص؛
http_request = Server.CreateObject(Microsoft.XMLHTTP);
http_request.Open(GET,url,false);
http_request.Send(null);
إذا (http_request.ReadyState == 4){
// تحديد بداية الترميز تلقائيًا
var charresult = http_request.ResponseText.match(/CharSet=(/S+)/>/i);
إذا (نتيجة!= فارغة){
var Cset = charresult[1];
}else{Cset = gb2312}// اعتماد تشفير gb2312 لمواقع الويب التي لا يمكن الحصول عليها، ويمكنك تغييره بنفسك
// تحديد نهاية الترميز تلقائيًا
codedtext = bytesToBSTR(http_request.Responsebody,Cset);
}آخر{
codedtext = خطأ؛
}
return(codetext);
}
الدالة bytesToBSTR(body,Cset){
فار 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);
}%>
<الجسم>
<%Response.Write(send_request(http://www.vevb.com/404.htm))%>
</الجسم>
</html>