当前位置：首页 → 问答吧 → 请问：XMLHTTP无刷新技术的实现原理是什么？怎么做？

请问：XMLHTTP无刷新技术的实现原理是什么？怎么做？

时间：2003-06-24

来源：互联网

如题

作者: kendly 发布时间: 2003-06-24

用xmlhttp来访问所需要的数据动态更新到页面上而已

作者: flashsoft 发布时间: 2003-06-24

偶帖个代码出来，该代码可以取得我站点上的在线信息：
<html> <head> <title></title> <style type="text/css">  </style> <script language="javascript"> </script> <script language="VBScript"> Function bin2str2(binstr) Dim BytesStream,StringReturn Set BytesStream = CreateObject("ADODB.Stream") '建立一个流对象 With BytesStream .Type = 2 .Open .WriteText binstr .Position = 0 .Charset = "GB2312" .Position = 2 StringReturn = .ReadText .close End With Set BytesStream = Nothing bin2str2 = StringReturn End Function dim i i=1 sub getonlinenum() dim objXMLHTTP,strReturn,obj_stream set objXMLHTTP=CreateObject("MICROSOFT.XMLHTTP") objXMLHTTP.open "GET","http://www.98062.com/onlineuser.asp?ntime="&timer(),false objXMLHTTP.send "" strReturn=objXMLHTTP.ResponseBody test.innerHTML=bin2str2(strReturn) window.status="刷新次数："&i&"次" set objXMLHTTP=nothing i=i+1 setTimeout "getonlinenum()",3000 end sub </script> </head> <body onload="getonlinenum()"> <div id="test" style="width:600px;height:500px;border:solid 1px #000090"></div> </body> </html>
提示：您可以先修改部分代码再运行

作者: netasp 发布时间: 2003-06-24

论坛调试程序有问题，得复制下来保存为HTML文件查看效果。

作者: netasp 发布时间: 2003-06-24

MsXML4 SP2 版本无效

作者: snakevil 发布时间: 2003-07-07

msxml4 ,no sp,ie6.0，有效

作者: KAI 发布时间: 2003-10-03

xmlhttp来访问所需要的数据动态更新到页面上而已顶！！

作者: 飞翔鸟发布时间: 2003-10-10

QUOTE:

netasp 在 2003-6-24 05:35 PM 发表:

论坛调试程序有问题，得复制下来保存为HTML文件查看效果。

不行啊~~复制下来~保存为HTML文件~还是不行~
但是把代码中给的地址单独在地址栏输 ~可以访问啊~~
迷茫中~~~
那位大大给说说啊~~~