asp(JavaScript)自動判斷網頁編碼并轉換的代碼

2024-05-04 11:08:30

字體：大中小

來源：轉載

供稿：網友

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.companysz.com/404.htm"))%> 
		</body> 
		</html> 