asp(JavaScript)自动判断网页编码并转换的代码
来源：
中文源码网 浏览：129 次 日期：2024-05-06 17:14:12
【下载文档: asp(JavaScript)自动判断网页编码并转换的代码.txt 】
asp(JavaScript)自动判断网页编码并转换的代码
完整的示例代码如下： 复制代码 代码如下: <%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
JavaScript自动判断网页编码并转换 <%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); }%> <%Response.Write(send_request("//www.zwyuanma.com/404.htm"))%>
