利用XMLHTTP无刷新自动实时更新数据

时间:2008-02-19 18:29:00 

利用XMLHTTP无刷新自动实时更新数据,2秒自动刷新一次,2秒取得一次数据.

demo.htm 前台显示

<script language="JavaScript">
function GetResult()
{
/*
*--------------- GetResult() -----------------
* GetResult() 
* 功能:通过XMLHTTP发送请求,返回结果.
* 参数:str,字符串,发送条件.
* 实例:GetResult();
*--------------- GetResult() -----------------
*/
var oBao = new ActiveXObject("Microsoft.XMLHTTP");
//特殊字符:+,%,&,=,?等的传输解决办法.字符串先用escape编码的.
//Update:2004-6-1 12:22
oBao.open("POST","Server.asp",false);
oBao.send();
//服务器端处理返回的是经过escape编码的字符串.
var strResult = unescape(oBao.responseText);
//将字符串分开.
var arrResult = strResult.split("###");
RemoveRow(); //删除以前的数据.
//将取得的字符串分开,并写入表格中.
for(var i=0;i<arrResult.length;i++)
{
arrTmp = arrResult[i].split("@@@");
num1 = arrTmp[0]; //字段num1的值
num2 = arrTmp[1]; //字段num2的值
row1 = tb.insertRow();
cell1 = row1.insertCell();
cell1.innerText = num1;
cell2 = row1.insertCell();
cell2.innerText = num2;
}
}

function RemoveRow()
{
//保留第一行表头,其余数据均删除.
var iRows = tb.rows.length;
for(var i=0;i<iRows-1;i++)
{
tb.deleteRow(1);
}
}

function MyShow()
{
timer = window.setInterval("GetResult()",2000);
}
</script>

<body onload="MyShow()">
<p>
</p>
<table width="47%" height="23"border="0" cellpadding="1" cellspacing="0" id="tb">
<tr>
<td>num1</td>
<td>num2</td>
</tr>
</table>

Server.asp 后台读取数据

<% @Language="JavaScript" %>
<%
function OpenDB(sdbname)
{
/*
*--------------- OpenDB(sdbname) -----------------
* OpenDB(sdbname) 
* 功能:打开数据库sdbname,返回conn对象.
* 参数:sdbname,字符串,数据库名称.
* 实例:var conn = OpenDB("database.mdb");
*--------------- OpenDB(sdbname) -----------------
*/
var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
var conn = Server.CreateObject("ADODB.Connection");
conn.Open(connstr);
return conn;
}
var sResult = new Array();
var oConn = OpenDB("data.mdb");
//特殊字符:+,%,&,=,?等的传输解决办法.客户端字符是经过escape编码的
//所以服务器端先要经过unescape解码.
//Update:2004-6-1 12:22
var sql = "select num1,num2 from nums order by id";
var rs = oConn.Execute(sql);
while(!rs.EOF)
{
//一条记录用"###"隔开.每列数据用"@@@"隔开. 这是以只有两个列数据的情况.
sResult[sResult.length] = rs("num1").Value + "@@@" + rs("num2").Value
rs.MoveNext();
}
//escape解决了XMLHTTP。中文处理的问题.
Response.Write(escape(sResult.join("###")));
%>


数据库data.mdb
表 nums
id,自动编号
num1,文本
num2,文本

测试数据
id num1 num2
1 20.70 20.810
2 10.5 20.5
3 12.3 300
4 132 323
5 563 56
6 20 10

标签:XMLHTTP,刷新,数据
0
投稿

猜你喜欢

  • 用JavaScript判断字符串长度

    2009-10-29 12:15:00
  • 小型分页的设计

    2011-08-18 18:32:26
  • position、z-index、top、right、bottom和left属性

    2009-10-04 20:33:00
  • Javascript 小游戏,“是男人坚持 100 次”

    2009-01-22 14:25:00
  • 巧用一条SQL 实现其它进制到十进制转换

    2009-01-19 13:16:00
  • 一些关于asp 购物车的想法

    2011-04-10 11:10:00
  • SQL Server 2000中生成XML的小技巧

    2009-02-13 17:12:00
  • 怎样生成utf-8编码的html文件

    2009-03-11 19:34:00
  • 保存透明gif时出现锯齿解决法

    2008-06-26 18:10:00
  • 一位网友的DIV CSS编码笔记——XieBiji

    2008-09-12 12:22:00
  • Oracle9iPL/SQL编程的经验小结

    2010-07-23 12:49:00
  • [翻译]网页设计中的模式窗口

    2009-05-29 18:00:00
  • 巧用Dreamweaver4文件库更新网站

    2007-02-03 11:31:00
  • ASP常见的保留字整理(变量与表名注意不能用)

    2013-06-01 19:58:01
  • Oracle 8i在P4上的安装

    2010-07-31 13:19:00
  • Web内容写作:得到更好稿件的头15条规则[译]

    2011-06-09 14:38:00
  • hover悬停放大的翻页效果

    2008-05-19 12:20:00
  • MySQL中的字符串模式匹配

    2010-03-09 16:30:00
  • 利用ASP输出excel文件一例

    2008-06-06 13:18:00
  • asp如何验证信用卡是否可用?

    2010-06-10 18:39:00
  • asp之家 网络编程 m.aspxhome.com