asp(JavaScript)自动判断网页编码并转换的代码

完整的示例代码如下：复制代码代码如下: <%@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.jb51.net/404.htm"))%> </body> </html>

是建立一个数据集前面应该先定义此数据集 dim rs as adodb.recordset 然后就可以用 set rs=server.CreateObject("adodb.recordset") 来建立一个数据集的实例，当然此时数据集中是没有数据的 rs.open ...... 来打开>>>详细阅读

本文标题：asp(JavaScript)自动判断网页编码并转换的代码

地址：http://www.17bianji.com/kaifa2/ASP/31883.html

1/2 1