<%@LANGUAGE="JAVASCRIPT"CODEPAGE="65001"%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=utf-8">
<title>JavaScript自动判断网页编码并转换</title>
</head>
<%Server.ScriptTimeout=9999999;
functionsend_request(url){
varcodedtext;
http_request=Server.CreateObject("Microsoft.XMLHTTP");
http_request.Open("GET",url,false);
http_request.Send(null);
if(http_request.ReadyState==4){
//自动判断编码开始
varcharresult=http_request.ResponseText.match(/CharSet=(\S+)\">/i);
if(charresult!=null){
varCset=charresult[1];
}else{Cset="gb2312"}//对获取不到的网站采用gb2312编码,可自行更改
//自动判断编码结束
codedtext=bytesToBSTR(http_request.Responsebody,Cset);
}else{
codedtext="Erro";
}
return(codedtext);
}
functionbytesToBSTR(body,Cset){
varobjstream;
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("https://www.jb51.net/404.htm"))%>
</body>
</html>
|
运行时间载入中.....