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

首頁 > 網站 > 建站經驗 > 正文

asp采集數據并自_動判斷網頁編碼并轉換

2019-11-02 15:45:39
字體:
來源:轉載
供稿:網友

在做采集的朋友就會知道經常會碰到采集過來的內容是亂碼,下面我們就來看一篇關于asp教程采集數據并自動判斷網頁編碼并轉換吧。

<[email protected]="JAVASCRIPT" CODEPAGE="65001"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>asp自動判斷網頁編碼并轉換</title>
</head>
<%Server.ScriptTimeout=9999999;
function send_request(url){
var codedtext;
http_request = Server

6080電影網[www.aikan.tv/special/6080dianyingwang/]
.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.3lian.com/404.htm"))%>
</body>
</html> 采集原理很簡單就是用了asp xmlhttp來采集,并且adodb.stream來對采集過來的數據進行處理。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 南漳县| 潜江市| 福贡县| 桐柏县| 九江市| 昌平区| 民权县| 湟源县| 伊金霍洛旗| 县级市| 岑溪市| 商南县| 微博| 尚义县| 承德市| 麦盖提县| 宜都市| 铜川市| 弥勒县| 来凤县| 青铜峡市| 八宿县| 乌鲁木齐市| 安庆市| 三穗县| 东乌| 上饶市| 麦盖提县| 万宁市| 藁城市| 拜泉县| 茌平县| 商丘市| 胶州市| 南康市| 安新县| 汤阴县| 昌都县| 昌都县| 镇雄县| 石景山区|