打印

[原创]xmlHTTP返回值重编码的优化(1/5更新)

hutia [楼主]

诘屈聱牙

荣誉管理团队

帖子: 4719
体力: 14636
威望: 383
当前: 江苏苏州
离线: 1 天

专长 JS,PHP,ASP

1^# 大中小发表于 2005-12-31 14:39

置顶的帖子里有一个VBscript的代码用来将xmlHTTP返回值重编码，不过效率极其低下.....俺费了好大的力气，终于做了一个速度勉强让人满意的代码。不过水平所限还是不得不用了vbscript的chr函数用来将acsii转成unicode,不知道哪位大哥能想想办法？
ps:算法优化真是个费脑筋的活

-×-×-×-×-×-×-×-×-华丽的更新分割线-×-×-×-×-×-×-×-×-

2006/1/5更新
俺每句话都下了断点测试运行时间，终于把运行时间缩短了大约10倍，现在应该是一种可以实用的算法了

我一开始用正则替换，每个字替换一遍，结果发现87020字节居然要40秒左右
现在这个代码在我电脑上只需要大约3秒，哈哈哈哈，感觉真爽

注意：对于只需要解码一次的情形本算法不是最优，但是对于需要多次解码的时候应该是最好的算法了

<html>
<head>
<title>xml Http</title>
<script language=javascript>
//***Author: Hutia
//测试用的网址
url="http:\/\/www.blueidea.com\/";
//确认需要的VBScript函数是否存在，不存在就写一个
try{
if(typeof(rsB)=="undefined"){initVBS();};
}catch(e){initVBS();}
//**全局变量**
//glbEncode储存ascii到unicode字符的转换,这样做的好处是可以提高重复解码时的解码效率
glbEncode=new Array();
//**初始化函数**
function initVBS(){
	//初始化VBscript的两个funtion:rsB 和 vbChar
	strVBS="<script language=vbscript>\r\n";
	strVBS+="Function rsB(vIn)\r\nrsB=MidB(vIn,1)\r\nEnd Function\r\n";
	strVBS+="Function vbChar(ss)\r\nvbChar = Chr(ss)\r\nEnd Function\r\n";
	strVBS+="<\/script>";
	document.write(strVBS);
}
//用同步方式获取网页内容
function loadURL(strURL){
	if(!strURL){return(false);}
	var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP");
	xmlHTTP.open("GET",strURL,false);
	xmlHTTP.send("");
	return xmlHTTP;
}
//重编码
function reCode(b){
	var s=rsB(b);
	s=escape(s).replace(/%u/gi,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/ig,"%@$1$2");
	var uniS=s.match(/\%@(.{4})/g);
	s=s.replace(/@/g,"");
	if(uniS){
		var k;
		for(var i=0;i<uniS.length;i++){
			k=uniS[i].substring(2,6);
			if(!glbEncode[k]){
				glbEncode[k]=escape(vbChar(eval("0x"+k))).substring(1,6);
			}
		}
		tempA=s.split("%");
		for(var i=0;i<tempA.length;i++){
			if(tempA[i].length!=2){
				tempA[i]=glbEncode[tempA[i]];
			}
		}
		s=tempA.join("%");
	}
	return unescape(s);
}
function init(){
	stTime=(new Date()).getTime();
	ree=loadURL(url).responseBody;
	stTime2=(new Date()).getTime();
	s001=reCode(ree);
	stTime3=(new Date()).getTime();
	s001=reCode(ree);
	stTime4=(new Date()).getTime();
	s001=reCode(ree);
	stTime5=(new Date()).getTime();
	document.body.innerText="共计下载"+s001.length+"字节";
	stTime6=(new Date()).getTime();
	strR="下载用时"+(stTime2-stTime)+"ms\r\n";
	strR+="解码用时"+(stTime3-stTime2)+"ms\r\n";
	strR+="再次解码用时"+(stTime4-stTime3)+"ms\r\n";
	strR+="再次再次解码用时"+(stTime5-stTime4)+"ms\r\n";
	strR+="显示用时"+(stTime6-stTime5)+"ms\r\n";
	document.body.innerText+=strR;
	document.body.innerText+=s001;
}
</script>
</head>
<body onload="init();">
下载中...
</body>
</html>

提示：您可以先修改部分代码再运行

本帖最近评分记录

经典论坛大妈威望 +3 历史打分 2005-12-31 14:39

hutia归来...
老婆的小店
hutia的个人站点 - 有问题去这里问我

TOP

做西部数码代理.Cn1元国际45元 | 将虚拟化进行到底

bjhaoyun

中级会员

帖子: 124
体力: 480
威望: 10
离线: 171 天

2^# 大中小发表于 2006-1-4 16:47

[原创]xmlHTTP返回值重编码的优化

用innerText从responseBody中得到的值和用MidB得到的稍有不同（具体差异尚有待进一步分析;)），但在页面的编码未明的情况下这种差异有时甚至是致命的，页面越大出错得机会越大，以至于有的根本无法返回结果。不信大家可以自己试试，以下是调用蓝色理想的首页的情况。
机器或者网速慢的朋友请慎重，最好不要运行

<html>
<head>
<title>xml Http</title>
<script>
url="http://www.blueidea.com/";
function loadURL(strURL){
	if(!strURL){return(false);}
	var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP");
	xmlHTTP.open("GET",strURL,false);
	xmlHTTP.send("");
	return(xmlHTTP);
}
function reCode(b){
	//输入参数 b 是 responseBody, 因为是binary没办法直接使用，只好通过下面的DIV转换一下
	var tempD=document.createElement("DIV");
	tempD.innerText=b;
	var s=tempD.innerText;
	tempD.outerHTML="";
	tempD=null;
	s=escape(s).replace(/%u/gi,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/ig,"@$1$2");
	var uniS=s.match(/\@(.{4})/g);
	if(uniS){
		var tempUU=new Array();
		for(var i=0;i<uniS.length;i++)tempUU[uniS[i].substring(1,5)]=true;
		for(var i in tempUU){
			//方法1:原本想使用execScript来执行chr函数，不过效率极其低下，所以我放弃了这种方法
			/*
			window.tempC=eval("0x"+i);
			window.execScript("window.tempC=chr(window.tempC)","vbScript");
			s=s.replace(eval("/\\@"+uniS[i]+"/g"),escape(window.tempC));
			*/
			//方法2:调用vbscript函数，效率好一些，主要要归功于前面的处理，使我只需要转换中文部分就可以了
			s=s.replace(eval("/\\@"+i+"/g"),escape(vbChar(eval("0x"+i))));
		}
	}
		
	return(unescape(s))
}
function init(){
	stTime=(new Date()).getTime();
	ree=loadURL(url).responseBody;
	stTime2=(new Date()).getTime();
	s001=reCode(ree);
	stTime3=(new Date()).getTime();
	document.body.innerText=s001;
	stTime4=(new Date()).getTime();
	alert("下载用时"+(stTime2-stTime)+"ms\r\n"+"解码用时"+(stTime3-stTime2)+"ms\r\n"+"显示用时"+(stTime4-stTime3)+"ms");
	
}
</script>
<script language=vbscript>
function vbChar(ss)
	vbChar = Chr(ss)
end function
</script>
</head>
<body onload="init();">
下载中...
</body>
</html>

提示：您可以先修改部分代码再运行

需修改成如下方可正常返回。

<html>
<head>
<title>xml Http</title>
</head>
<body>
下载中...
</body>
</html>
<script language=vbscript>
Function rsB(vIn)
	rsB=MidB(vIn,1)
End Function
Function vbChar(ss)
	vbChar = Chr(ss)
End Function
</script>
<script language=javascript>
url="http://www.blueidea.com/";
function loadURL(strURL){
	if(!strURL){return(false);}
	var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP");
	xmlHTTP.open("GET",strURL,false);
	xmlHTTP.send("");
	return xmlHTTP;
}
function reCode(b){
	//输入参数 b 是 responseBody, 因为是binary没办法直接使用，作者只好通过DIV转换一下，但恰恰是DIV返回的不对，必须用MidB取得。修改成如下：
	var s=rsB(b);
	s=escape(s).replace(/%u/gi,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/ig,"@$1$2");
	var uniS=s.match(/\@(.{4})/g);
	if(uniS){
		var k;
		for(var i=0;i<uniS.length;i++)
		{
			k=uniS[i].substring(1,5);
			s=s.replace(eval("/\@"+k+"/g"),escape(vbChar(eval("0x"+k))));
		}
	}
	return unescape(s);
}
function init(){
	stTime=(new Date()).getTime();
	ree=loadURL(url).responseBody;
	stTime2=(new Date()).getTime();
	s001=reCode(ree);
	stTime3=(new Date()).getTime();
	document.body.innerText="下载用时"+(stTime2-stTime)+"ms\r\n"+"解码用时"+(stTime3-stTime2)+"ms\r\n"+s001;
}
init();
</script>

提示：您可以先修改部分代码再运行

由于页面较大，请耐心等待！;)
已有较大改进，请往下面找找看
最新版本的编码效率比原先的提高了近50倍

天下之大，无棋不有

TOP

美橙vps独立IP月付189元

hutia [楼主]

诘屈聱牙

荣誉管理团队

帖子: 4719
体力: 14636
威望: 383
当前: 江苏苏州
离线: 1 天

专长 JS,PHP,ASP

3^# 大中小发表于 2006-1-4 17:43

[原创]xmlHTTP返回值重编码的优化

谢谢谢谢，非常感谢指正！bjhaoyun是好人啊。

hutia归来...
老婆的小店
hutia的个人站点 - 有问题去这里问我

TOP

中央美院远程平面设计进修班

skybot

size

钻石会员

帖子: 2794
体力: 6551
威望: 6
当前: 上海长宁
离线: 1 天

专长 JS,C#,MSSQL

4^# 大中小发表于 2006-1-4 17:56

[原创]xmlHTTP返回值重编码的优化

收藏了

http://www.qlili.com 个人站帮点啊

TOP

还在为头像烦恼?还在为不能关注好友动态烦忧?快来蓝色理想家园吧!

81877199

高级会员

帖子: 227
体力: 877
威望: 1
离线: 819 天

5^# 大中小发表于 2006-1-4 18:18

[原创]xmlHTTP返回值重编码的优化

---------------------------
Microsoft Internet Explorer
---------------------------
下载用时5638ms

解码用时28441ms

显示用时80ms
---------------------------
确定
---------------------------

因为我觉得我的手高，所以说我回答菜鸟问题的时候总是感觉自己象一个救世主——很帅！
啊~我真的觉得我好喜欢我自己啊！*^_^* 啊~亲一个！啵***啵***啵***~！

TOP

bjhaoyun

中级会员

帖子: 124
体力: 480
威望: 10
离线: 171 天

6^# 大中小发表于 2006-1-4 18:25

[原创]xmlHTTP返回值重编码的优化

hutia在上个帖子中说

引用:

谢谢谢谢，非常感谢指正！bjhaoyun是好人啊。

互相学习

天下之大，无棋不有

TOP

hutia [楼主]

诘屈聱牙

荣誉管理团队

帖子: 4719
体力: 14636
威望: 383
当前: 江苏苏州
离线: 1 天

专长 JS,PHP,ASP

7^# 大中小发表于 2006-1-5 22:03

代码更新，顶一下给大家评评，哈哈，不过好像在线运行的效率不如我本地的高啊.....奇怪，不知道为什么

hutia归来...
老婆的小店
hutia的个人站点 - 有问题去这里问我

TOP

shayixin

高级会员

帖子: 280
体力: 864
威望: 0
离线: 118 天

8^# 大中小发表于 2006-1-6 09:49

我运行一下也感觉好慢的！

www.chinadaily.com.cn
大隐隐于朝，中隐隐于市，小隐隐于野！

TOP

plus

中级会员

帖子: 157
体力: 464
威望: 0
离线: 432 天

9^# 大中小发表于 2006-1-6 12:01

我运行了bjhaoyun的第一个，结果死机，强关了所有ＩＥ，再爬回来发贴

TOP

hutia [楼主]

诘屈聱牙

荣誉管理团队

帖子: 4719
体力: 14636
威望: 383
当前: 江苏苏州
离线: 1 天

专长 JS,PHP,ASP

10^# 大中小发表于 2006-1-6 12:13

我在我们单位的电脑上（2.4G 256M）运行结果如下：
解析经典首页83420字节
bjhaoyun：8422ms

俺最新的：859ms

^_^

hutia归来...
老婆的小店
hutia的个人站点 - 有问题去这里问我

TOP

155120

155120

高级会员

帖子: 223
体力: 579
威望: 1
当前: 广东广州
离线: 45 天

11^# 大中小发表于 2006-1-6 12:21

共计下载83455字节下载用时1843ms
解码用时938ms
再次解码用时1031ms
再次再次解码用时1031ms
显示用时16ms

我是菜鸟，什么都不懂的！

TOP

bjhaoyun

中级会员

帖子: 124
体力: 480
威望: 10
离线: 171 天

12^# 大中小发表于 2006-1-6 16:43

，well done，hutia！刚才为了方便比较时间，我修改了下显示方式，hutia更新后的结果的确是快了很多，hutia得大概在1500~2500ms，我的大概在18000~40000ms，开始没看到是5位数哈，原因嘛，用相对静态表（当然实际也是先生成的）代替了动态表。
再根据while比for快，j=xx.xx后调用j比xx.xx快以及现成的比临时write快在hutia的基础上再次做了下改进，大家可以试试看，现在机器慢的也可以试试了，不过网速慢+机器慢的还是请慎重，我的机器上结果只花了几百毫秒哈比以前又缩短了约一半的时间。

<html>
<head>
<title>xml Http</title>
<script language=vbscript>
Function rsB(vIn)
	rsB=MidB(vIn,1)
End Function
Function vbChar(ss)
	vbChar = Chr(ss)
End Function
</script>
<script language=javascript>
url="http://www.blueidea.com/";
//**全局变量**
//glbEncode储存ascii到unicode字符的转换,这样做的好处是可以提高重复解码时的解码效率
glbEncode=new Array();
//用同步方式获取网页内容
function loadURL(strURL){
	if(!strURL){return(false);}
	var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP");
	xmlHTTP.open("GET",strURL,false);
	xmlHTTP.send("");
	return xmlHTTP;
}
//重编码
function reCode(b){
	var s=rsB(b)
	s=escape(s).replace(/%u/gi,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/ig,"%@$1$2");
	var uniS=s.match(/\%@(.{4})/g);
	s=s.replace(/@/g,"");
	if(uniS){
		var k,i=-1,j=uniS.length;
		while(++i<j){
			k=uniS[i].substring(2,6);
			if(!glbEncode[k])
				glbEncode[k]=escape(vbChar(eval("0x"+k))).substring(1,6);
		}
		tempA=s.split("%");
		i=-1;
		j=tempA.length;
		while(++i<j){
			if(tempA[i].length!=2)
				tempA[i]=glbEncode[tempA[i]];
		}
		s=tempA.join("%");
	}
	return unescape(s);
}
function init(){
	stTime1=(new Date()).getTime();
	ree=loadURL(url).responseBody;
	stTime2=(new Date()).getTime();
	s001=reCode(ree);
	stTime3=(new Date()).getTime();
	document.body.innerText="下载用时"+(stTime2-stTime1)+"ms\n"+"显示用时"+(stTime3-stTime2)+"ms\n"+s001;
}
</script>
</head>
<body onload=init()>
下载中...
</body>
</html>

提示：您可以先修改部分代码再运行

顺便问下，为什么最后一个字符">"丢掉了

天下之大，无棋不有

TOP

bjhaoyun

中级会员

帖子: 124
体力: 480
威望: 10
离线: 171 天

13^# 大中小发表于 2006-1-6 22:58

哈哈，在hutia更新的基础上又提高了5~8倍哈，现在的解码耗时297ms，hutia更新版大概在1500~2500ms，我上次改进版本的大概在800~1000ms，看谁还能比偶更快哈！

<html>
<head>
<title>xml Http</title>
<script language=vbscript>
Function rsB(vIn)
	rsB=MidB(vIn,1)
End Function
Function vbChar(ss)
	vbChar = Chr(ss)
End Function
</script>
<script language=javascript>
//***Author: Hutia
//last modified by shouhaimu(QQ:30836570)
//速度已提高近50倍
//测试用的网址
url="http://www.blueidea.com/";
//**全局变量**
//glbEncode储存ascii到unicode字符的转换,这样做的好处是可以提高重复解码时的解码效率
glbEncode=new Array();
//用同步方式获取网页内容
function loadURL(strURL){
	if(!strURL){return(false);}
	var xmlHTTP=new ActiveXObject("MSXML2.XMLHTTP");
	xmlHTTP.open("GET",strURL,false);
	xmlHTTP.send("");
	return xmlHTTP;
}
//重编码
function reCode(b){
	var t=rsB(b);
	t=escape(t).replace(/%u/g,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/g,"@$1$2");
	t=t.split("@");
	var i=0,j=t.length,k;
	while(++i<j)
	{
		k=t[i].substring(0,4);
		if(!glbEncode[k])glbEncode[k]=escape(vbChar(eval("0x"+k))).substring(1,6);
		t[i]=glbEncode[k]+t[i].substring(4);
	}
	return unescape(t.join("%"));
}
function init(){
	stTime1=(new Date()).getTime();
	ree=loadURL(url).responseBody;
	stTime2=(new Date()).getTime();
	s001=reCode(ree);
	stTime3=(new Date()).getTime();
	document.body.innerText="共计"+s001.length+"字节\n下载耗时："+(stTime2-stTime1)+"\n解码耗时："+(stTime3-stTime2)+"\n"+s001+"";
}
</script>
</head>
<body onload=init()>
下载中...
</body>
</html>

提示：您可以先修改部分代码再运行

改进原则：减少循环次数。
其实需要替换的只有那些中文字符，因此循环的次数至少应该减少到和中文字符数量相等。经过几小时的奋斗，终于实现了哈。

问题：最后一个">"有时候会丢掉

本帖最近评分记录

经典论坛大妈威望 +3 历史打分 2006-1-6 22:58

天下之大，无棋不有

TOP

hutia [楼主]

诘屈聱牙

荣誉管理团队

帖子: 4719
体力: 14636
威望: 383
当前: 江苏苏州
离线: 1 天

专长 JS,PHP,ASP

14^# 大中小发表于 2006-1-7 12:06

哦，bjhaoyun好棒！俺喜欢这种大家互相学习进步的氛围。确实是很棒的算法！！有这个算法Ajax实现起来就更轻松了哈哈哈哈。

hutia归来...
老婆的小店
hutia的个人站点 - 有问题去这里问我

TOP

maltose1

新手上路

帖子: 1
体力: 4
威望: 0
离线: 996 天

15^# 大中小发表于 2006-1-20 09:37

我在使用lz的代码转换时
发现解析这个地址的rss的时候依然是乱码啊，能帮小弟解决一下这个问题吗？
地址是
http://blog.5d.cn/service/rss10.asp?uid=9187

TOP

nene

中级会员

帖子: 93
体力: 344
威望: 0
离线: 863 天

16^# 大中小发表于 2006-1-20 11:04

不错，学习一下

The world always makes the way for the dreamer~!
dangel's blog

TOP

chyf1982

经典会员

银牌会员

帖子: 1237
体力: 2329
威望: 1
离线: 37 天

17^# 大中小发表于 2006-1-22 10:48

共计86697字节
下载耗时：1438
解码耗时：219

P4 2.0/ 512M
win2003/IE
FF1.0.6 挂掉了！一直“加载中”。状态栏显示“完成”！源代码：中文是乱码！东西都还在！
－－－－－－－－－－－
刷新页面结果。“涓嬭浇涓�...”
乱码！中文全部乱码！

态度决定一切电影下载

TOP

WebCoder

中级会员

帖子: 72
体力: 281
威望: 1
离线: 180 天

18^# 大中小发表于 2006-2-26 14:20

bjhaoyun在上个帖子中说

引用:

问题：最后一个">"有时候会丢掉

关于这个问题我作了一下测试发现，如果获取到的responseBody是以>字符给尾的话，就会把>丢掉。我想了个办法，在reCode(b)函数
var t=rsB(b);
时加给多个回车字符。改成
var t=rsB(b)+rsB('\n');
这样就不会丢失掉最后的>了

懒也是一种艺术
手机号码归属地查询

TOP

WebCoder

中级会员

帖子: 72
体力: 281
威望: 1
离线: 180 天

19^# 大中小发表于 2006-2-26 14:23

随便说一句，这组函数只适用于GB2312，对于UTF-8之类的编码无效的

懒也是一种艺术
手机号码归属地查询

TOP

zsy3721

初级会员

帖子: 32
体力: 106
威望: 0
离线: 580 天

20^# 大中小发表于 2006-10-24 09:33

在楼上几位算法的基础上又改进了一下，使用了js正则的语言特性避免了数据的分组和合并，效率又有20%的提高，速度是原先的60倍。

由于跨域问题，将url改为了bbs的首页。

<html>
<head><title>bytes2text</title></head>
<body>
<div id="text1">解码用时:</div>
<script language="vbscript">
Function jsMidB(str, p)
	jsMidB = MidB(str, p)
End Function
Function jsChr(ascii)
	jsChr = Chr(ascii)
End Function
</script>
<script language="javascript">
function xmlHttp(sendMethod, url, postData)
{
	var http = new ActiveXObject("Microsoft.XMLHTTP");
	http.open(sendMethod, url, false, null, null);
	if(sendMethod == "post"){
		http.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
		http.send(postData);
	}
	else{
		http.send(null)
	}
	return http;
}
function bs2str(str)
{
	if(!bs2str.ss) bs2str.ss = [];
	return unescape(escape(jsMidb(str,1)).replace(/.{2}(.{2})(.{2})/g, "%$2%$1").replace(/%([^0-7].).(.{2})/g, function(a,a1,a2){var s=a1+a2;if(!bs2str.ss[s]) bs2str.ss[s]=jsChr(eval("0x"+s));return bs2str.ss[s];}));
}
//测试
var http = xmlHttp("get", "http://bbs.blueidea.com", "");
var data = http.responseBody;
t = (new Date()).getTime();
var html = bs2str(data);
document.getElementById("text1").innerText += (new Date()).getTime() - t;
document.getElementById("text1").innerText += "\r\n" + html;
</script>
</body>
</html>

提示：您可以先修改部分代码再运行

[ 本帖最后由 zsy3721 于 2006-10-24 09:37 编辑 ]

人是会变的

TOP

faeng220

小秦

银牌会员

帖子: 715
体力: 1461
威望: 4
当前: 河南平顶山

专长 前端制作,JS,ASP

21^# 大中小发表于 2006-10-25 09:05

引用:

原帖由 WebCoder 于 2006-2-26 14:23 发表
随便说一句，这组函数只适用于GB2312，对于UTF-8之类的编码无效的

那能给一个对，UTF-8之类的编码有交的函数吗？？

一直都想要一个，急！！

偶系小秦！

TOP

ewen0930

新手上路

帖子: 7
体力: 0
威望: 0
离线: 14 天

22^# 大中小发表于 2006-11-19 09:54

引用:

原帖由 faeng220 于 2006-10-25 09:05 发表

那能给一个对，UTF-8之类的编码有交的函数吗？？

一直都想要一个，急！！

从测试上讲 zsy3721 的速度上非常快，但以上好像都不能解UTF-8的编码，不知那位能提供一下

按理说，xmlHTTP作为AJAX的基础，FireFox应该支持xmlHTTP才对，但好像都没有返回结果………^_^不甚了解，别见效

[ 本帖最后由 ewen0930 于 2006-11-19 09:57 编辑 ]

lifv.cn

TOP

goldnation

梦幻之旅

中级会员

帖子: 224
体力: 439
威望: 0
当前: 湖南衡阳
离线: 75 天

23^# 大中小发表于 2006-11-19 10:40

现在是不是不行了啊,还是服务器关了啊,我运行了一下,页面提示出错了,没反应,我的机器是,C(D)2.6 512M的.

学习无止境,愿与经典论坛共同辉煌!----john

TOP

lhl520

天涯若比邻

中级会员

帖子: 126
体力: 248
威望: 0
当前: 上海浦东
离线: 32 天

24^# 大中小发表于 2006-11-22 15:30

重在学习。。。。AJAX这个好像只能在WEB平台。。单html不能运行的吧。。

TOP

shuntianpeng

笨小孩儿

金牌会员

帖子: 2057
体力: 3624
威望: 54
当前: 江苏苏州
离线: 4 天

专长 ASP,MSSQL,Access

25^# 大中小发表于 2006-11-22 16:13

为啥提示没有权限尼?

我命由我不由天~
80社区

TOP

mozart0

匪徒田老大

荣誉管理团队

帖子: 2367
体力: 6410
威望: 177
当前: 上海长宁
离线: 37 天

26^# 大中小发表于 2006-11-22 21:55

re #18: escape在编码奇长度字节流时会导致最后一个字节丢失，用chrb(0)修正比较厚道

re #20: eval是胖子，把转换工作交给vbs，效率会再提升50%以上

<html>
<head><title>bytes2text</title></head>
<body>
<div id="text1">解码用时:</div>
<script language="vbscript">
Function jsMidB(str, p)
	jsMidB = MidB(str, p)
	if lenb(jsMidB) mod 2 <> 0 then jsMidB=jsMidB & chrb(0)
End Function
Function jsChr(ascii)
	jsChr = Chr(ascii)
End Function
</script>
<script language="javascript">
function xmlHttp(sendMethod, url, postData)
{
	var http = new ActiveXObject("Microsoft.XMLHTTP");
	http.open(sendMethod, url, false, null, null);
	if(sendMethod == "post"){
		http.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
		http.send(postData);
	}
	else{
		http.send(null)
	}
	return http;
}
function bs2str(str)
{
	if(!bs2str.ss) bs2str.ss = [];
	return unescape(escape(jsMidb(str,1)).replace(/..(..)(..)/g, "%$2%$1").replace(/%(\D.)%(..)/g,function(a,a1,a2){var s=a1+a2;if(!bs2str.ss[s]) return bs2str.ss[s]=jsChr("&h"+s);return bs2str.ss[s];}));
}
//测试
var http = xmlHttp("get", "/", "");
var data = http.responseBody;
t = (new Date()).getTime();
var html = bs2str(data);
document.getElementById("text1").innerText += (new Date()).getTime() - t;
document.getElementById("text1").innerText += "\r\n" + html;
</script>
</body>
</html>

提示：您可以先修改部分代码再运行

re #22: utf-8直接用xmlhttp.responseText

re #25: 我这里也一样，可能因为IE7。把测试页的url改成"/"即可

[ 本帖最后由 mozart0 于 2006-11-22 22:56 编辑 ]

居处恭执事敬与人忠

TOP

wuchenghua

初级会员

帖子: 95
体力: 180
威望: 0
当前: 重庆渝中
离线: 10 天

专长 前端制作,PHP

27^# 大中小发表于 2007-2-12 17:51

??????????????????????????有点读不懂

www.9ihaody.cn

TOP