ASP แปลงโค้ดเข้ารหัสหน้าเว็บ ใช้การจับคู่ปกติเพื่อตรวจสอบว่าคำสั่งการเข้ารหัสของเพจเป็น gb2312 หรืออื่นๆ จากนั้นจึงส่งออกเอาต์พุต รหัสตัวอย่างที่สมบูรณ์มีดังนี้:
คัดลอกรหัสรหัสดังต่อไปนี้:
<%@LANGUAGE=รหัส JAVASCRIPT=65001%>
<html>
<หัว>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/html;
<title>จาวาสคริปต์จะกำหนดการเข้ารหัสหน้าเว็บโดยอัตโนมัติและแปลง</title>
</หัว>
<%Server.ScriptTimeout=9999999;
ฟังก์ชั่น send_request (url) {
ข้อความที่เข้ารหัส var;
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);
ถ้า (charresult != null){
var Cset = charresult[1];
}else{Cset = gb2312}//ใช้การเข้ารหัส gb2312 สำหรับเว็บไซต์ที่ไม่สามารถรับได้ และคุณสามารถเปลี่ยนแปลงได้ด้วยตัวเอง
// กำหนดจุดสิ้นสุดของการเข้ารหัสโดยอัตโนมัติ
codedtext = bytesToBSTR (http_request.Responsebody, Cset);
}อื่น{
ข้อความที่เข้ารหัส = ข้อผิดพลาด;
-
กลับ (ข้อความที่เข้ารหัส);
-
ฟังก์ชั่น bytesToBSTR (เนื้อหา, Cset) {
var objstream;
objstream = Server.CreateObject (Adodb.Stream);
objstream ประเภท = 1;
objstream.Mode = 3;
objstream.เปิด();
objstream.เขียน(เนื้อหา);
objstream ตำแหน่ง = 0;
objstream.ประเภท = 2;
objstream.Charset = Cset;
bytesToBSTR = objstream.Readtext;
objstream.ปิด;
กลับ (bytesToBSTR);
-
<ร่างกาย>
<%Response.Write(send_request(http://www.vevb.com/404.htm))%>
</ร่างกาย>
</html>