gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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("//www.zzvips.com/404.htm"))%> 
</body> 
</html> 

最后此篇关于asp(JavaScript)自动判断网页编码并转换的代码的文章就讲到这里了,如果你想了解更多关于asp(JavaScript)自动判断网页编码并转换的代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com