国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

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

2024-05-04 11:00:02
字體:
來源:轉載
供稿:網友
完整的示例代碼如下:
復制代碼 代碼如下:
<%@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://m.survivalescaperooms.com/404.htm"))%>
</body>
</html>

您可能感興趣的文章:

JavaScript將字符串轉換成字符編碼列表的方法javascript從image轉換為base64位編碼的Stringjavascript unicode與GBK2312(中文)編碼轉換方法用Javascript實現UTF8編碼轉換成gb2312編碼JavaScript轉換二進制編碼為ASCII碼的方法
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 郯城县| 莱阳市| 桐城市| 灵武市| 望奎县| 江山市| 新蔡县| 钦州市| 历史| 镇安县| 昌平区| 寻乌县| 漳州市| 额济纳旗| 开江县| 韶山市| 霍山县| 天水市| 镇远县| 姜堰市| 沈阳市| 凤台县| 会泽县| 黑龙江省| 孝义市| 乌恰县| 饶河县| 元氏县| 抚顺市| 绥阳县| 芮城县| 鹤庆县| 正宁县| 丰原市| 永昌县| 荣昌县| 密山市| 定陶县| 天等县| 泗水县| 长春市|