asp(JavaScript)自动判断网页编码并转换的代码
更新时间：2010年06月03日 13:38:21 作者：
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("https://www.jb51.net/404.htm"))%>
</body>
</html>
复制代码 代码如下:
<%@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("https://www.jb51.net/404.htm"))%>
</body>
</html>
相关文章
在Vista IIS 7 中用 vs2005 调试 Web 项目的注意事项
在Vista IIS 7 中用 vs2005 调试 Web 项目核心是要解决以下几个问题2008-09-09
日期转换星座函数,参数是日期型的，需要的朋友可以参考下。2010-04-04
ScriptHtml 函数之过滤html标记的asp代码...2007-09-09
asp下的风讯用的SQL通用防注入模块提供了...2007-10-10
这篇文章主要介绍了ASP缓存技术详解,本文详细介绍了ASP缓存技术、ASP缓存的分类、ASP缓存的实现方法和使用方法等,需要的朋友可以参考下2014-07-07
这篇文章主要分享了ASP替换、保存远程图片的函数代码，需要的朋友可以参考下2015-09-09
ASP中通过该日历算法实现的具体代码...2006-08-08
jb51生成所有页面的效果+分页生成...2006-08-08
在asp中，我们可以用response.cookies方法，定义cookies的值。2010-03-03
书学asp，经常会用到一些函数，对于代码的重用性有所提高，执行速度也提高，希望大家多多欣赏学习2008-06-06
最新评论