asp(JavaScript)自动判断网页编码并转换的代码
来源：asp之家 时间：2011-03-03 11:19:00
完整的示例代码如下：
代码如下:
<％@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.cidianwang.com/))％>
</body>
</html>
0
投稿猜你喜欢
Python enumerate函数遍历数据对象组合过程解析
Python logging模块异步线程写日志实现过程解析
Python实现购物评论文本情感分析操作【基于中文文本挖掘库snownlp】
Python实现的井字棋（Tic Tac Toe）游戏示例
python实现黄金分割法的示例代码
Vue.js每天必学之过滤器与自定义过滤器
定位？浮动？自适应？
关于vue2使用element UI中Descriptions组件的遍历问题详解
Python中给List添加元素的4种方法分享
pyqt5 QListWidget的用法解析
python 数字类型和字符串类型的相互转换实例
python 调用c语言函数的方法
影响SQL Server性能的三个关键点
python密码错误三次锁定(实例讲解)
python itchat实现调用微信接口的第三方模块方法
Tensorflow读取并输出已保存模型的权重数值方式
pandas数据选取：df[] df.loc[] df.iloc[] df.ix[] df.at[] df.iat[]
Oracle中判断字段是否为数字
基于Python实现扑克牌面试题
pandas数据分组groupby()和统计函数agg()的使用
