asp(JavaScript)自動(dòng)判斷網(wǎng)頁(yè)編碼并轉(zhuǎn)換的代碼
更新時(shí)間：2010年06月03日 13:38:21 作者：
asp轉(zhuǎn)換網(wǎng)頁(yè)編碼的代碼，用正則匹配頁(yè)面的編碼聲明是gb2312還是別的，然后輸出。
完整的示例代碼如下：
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>JavaScript自動(dòng)判斷網(wǎng)頁(yè)編碼并轉(zhuǎn)換</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){
//自動(dòng)判斷編碼開(kāi)始
var charresult = http_request.ResponseText.match(/CharSet=(\S+)\">/i);
if (charresult != null){
var Cset = charresult[1];
}else{Cset = "gb2312"}//對(duì)獲取不到的網(wǎng)站采用gb2312編碼,可自行更改
//自動(dòng)判斷編碼結(jié)束
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.fzitv.net/404.htm"))%>
</body>
</html>
復(fù)制代碼 代碼如下:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>JavaScript自動(dòng)判斷網(wǎng)頁(yè)編碼并轉(zhuǎn)換</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){
//自動(dòng)判斷編碼開(kāi)始
var charresult = http_request.ResponseText.match(/CharSet=(\S+)\">/i);
if (charresult != null){
var Cset = charresult[1];
}else{Cset = "gb2312"}//對(duì)獲取不到的網(wǎng)站采用gb2312編碼,可自行更改
//自動(dòng)判斷編碼結(jié)束
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.fzitv.net/404.htm"))%>
</body>
</html>
相關(guān)文章
asp刪除mssql數(shù)據(jù)庫(kù)中沒(méi)有記錄的圖片代碼
asp刪除沒(méi)有記錄的圖片需要文件夾（存放圖片的文件夾）中的每個(gè)圖片和數(shù)據(jù)庫(kù)中的所有記錄進(jìn)行比較2009-08-08
通過(guò)ASP禁止指定IP和只允許指定IP訪問(wèn)網(wǎng)站的代碼
通過(guò)ASP禁止指定IP和只允許指定IP訪問(wèn)網(wǎng)站的代碼，需要的朋友可以參考下。2011-10-10
檢查access數(shù)據(jù)庫(kù)中是否存在某個(gè)名字的表的asp代碼
首先調(diào)用adodb.connection對(duì)象中的openSchema函數(shù)，這樣會(huì)得到一個(gè)Recordset，其中每一條“紀(jì)錄”對(duì)應(yīng)著數(shù)據(jù)庫(kù)中的一張表，“紀(jì)錄”的每個(gè)“字段”包含了對(duì)應(yīng)表的某方面信息。其中TABLE_NAME字段包含了對(duì)應(yīng)表的名稱2009-06-06
這篇文章主要介紹了ASP提速五大技巧，感興趣的小伙伴們可以參考一下2015-09-09
asp實(shí)現(xiàn)檢查ip地址是否為內(nèi)網(wǎng)或者私有ip地址的代碼分享
這篇文章主要介紹了asp實(shí)現(xiàn)檢查ip地址是否為內(nèi)網(wǎng)或者私有ip地址的代碼分享,給同樣在找IP判斷的使用,需要的朋友可以參考下2014-08-08
asp 多關(guān)鍵詞搜索的簡(jiǎn)單實(shí)現(xiàn)方法
asp搜索兩個(gè)以上的詞的實(shí)現(xiàn)方法，簡(jiǎn)單的就是利用split，其它的可以參考本站之前更新的文章2008-11-11
這篇文章主要介紹了PJBLOG使用技巧2007-02-02
超級(jí)ASP版DataGrid——SkyGrid本地下載
超級(jí)ASP版DataGrid——SkyGrid本地下載...2007-03-03
AspUpload 是一款功能強(qiáng)大的動(dòng)態(tài)服務(wù)器上傳組件!安裝此程序,可以讓你通過(guò)ASP程序上傳各種文檔2007-07-07
ASP中字符與數(shù)字內(nèi)置操作函數(shù)整理
在ASP中,預(yù)定義了許多函數(shù),可以幫助我們簡(jiǎn)化代碼、提高開(kāi)發(fā)效率,本文將介紹一些常用的ASP字符與數(shù)字內(nèi)置操作函數(shù),以便開(kāi)發(fā)人員更加方便、快速地創(chuàng)建 Web 應(yīng)用程序,2023-12-12