网页数据的实时刷新

ASP实现实时数据无刷新更新

最新推荐文章于 2025-07-25 16:22:44 发布

转载最新推荐文章于 2025-07-25 16:22:44 发布 · 5.9k 阅读

文章标签：

#vbscript #microsoft #generator #框架 #javascript #function

软件寨专栏收录该内容

3 篇文章

订阅专栏

本文介绍两种使用ASP技术实现网页实时数据无刷新更新的方法。一种是通过框架技术分离数据处理与显示，另一种是利用XMLHTTP实现数据的自动获取与更新。这两种方法有效提升了用户体验，适用于需要频繁更新数据的企业站点、股市查询等场景。

方案1

随着网络的发展，利用ASP技术制作Web页面，来完成动态网站设计的方式，越来越得到广泛的应用。企业站点和其他商业站点，有时需要为用户提供查询实时变化的数据信息，而利用ASP技术完成这种功能会遇到实时数据的自动刷新问题。面对几秒钟变化一次的实时数据，HTML和ASP中VBScript、JavaScript语言仅为我们提供了页面Frame和窗口的刷新方法（即HTML的<META HTTP-Equiv=“refresh” Content=……及ASP的window.location.reload()），这样会造成页面的刷新闪烁，影响了实时效果和页面的稳定美观。

面对这种情况，我们可以将实时数据显示页面DisplayMain.htm划分成左右两个框架（Frame）Fra_Left和Fra_Right。

DisplayMain.htm代码如下：

<HTML>

<FRAMESET cols=“100%，*” Border=1>

<FRAME NAME=“Fra_Left” scrolling=“auto”SRC=“Dis_Left.asp” noresize>

<FRAME NAME=“Fra_Right”scrolling=“no” SRC=“Dis_Right.asp”>

</FRAMESET>

</HTML>

其中框架Fra_Left完全占据页面,而框架Fra_

Right不占据页面空间。我们可以在Fra_Left框架中显示实时数据页面，而在右面框架Fra_Right中进行实时数据处理(产生查询结果数据集，并将结果数据集作为参数传递给左侧Fra_Left框架进行数据显示)，这样我们只要定时刷新右侧框架，左侧框架显示页面数据即可实时刷新，而不会出现页面闪动影响视觉效果。

Dis_Left.asp代码如下：

<%@ Language=VBScript %>

<HTML>

<HEAD>

<META NAME=“GENERATOR” Content=“Microsoft Visual Studio 6.0”>

</HEAD>

<BODY>

//此处可定义若干供显示实时数据的TEXT对象

<form name=“sj”>

<input id=“text1” name=“text1” style=“BACKGROUND-COLOR: black; BORDER-BOTTOM-COLOR: black; BORDER-LEFT-COLOR: black; BORDER-RIGHT-COLOR: black; BORDER-TOP-COLOR: black; COLOR: white; HEIGHT: 18px; WIDTH: 81px”>

……

</form>

//或者定义一个可自动下载的OCX实时数据显示控件

//<OBJECT 此处定义一个可自动下载的OCX实时数据显示控件</OBJECT>

</BODY>

</HTML>

右侧框架Dis_Right.asp代码如下：

<%@ Language=VBScript %>

<HTML>

<HEAD>



//此处定义本页面每5秒刷新一次

<META HTTP-Equiv=“refresh” Content=“5; url=Dis_Right.asp”NAME=“GENERATOR” Content=“Microsoft Visual Studio 6.0”>

</HEAD>

<BODY>

<%

//建立数据库连接

set connectme=Server.CreateObject(“ADODB.CONNECTION”)

connectme.ConnectionTimeout = 15

connectme.CommandTimeout = 30

connectme.CursorLocation = 3

connectme.Open “Provider=MSDAORA.1; Password=MYPASS; User ID=MYID; Data Source=MYSPURCE; Persist Security Info=True;User Id=MYID; PASSWORD=MYPASS;UID=MYID; DBQ=MYDBQ; DBA=W; APA=T;FEN=T; FRC=10; FDL=10; LOB=T; RST=T;FRL=F; PFC=10; TLO=0; ”,“USER”,“MYPASS”

dim DataStr

dim CntStr

//执行SQL语句

sql = “select value from tablename ……”

set rstemp = Server.CreateObject(“ADODB.RECORDSET”)

set rstemp = connectme.Execute(sql)

//形成实时数据参数字符串

DataStr = “”

CntStr = 0

do while not rstemp.EOF

DataStr = DataStr & rstemp(“val”) & “；”

CntStr = CntStr + 1

rstemp.MoveNext

//也可将数据直接赋值给右侧TEXT对象

//Response.Write(“<Script> parent.Left

.document.sj.text1.value=‘”+val+“’</Script>”);

loop

rstemp.Close

%>

<SCRIPT LANGUAGE=VBScript>

//传递参数给右侧页面

parent.Left.document.控件名 “<%

=DataStr%>”

</SCRIPT>

<%

end if

%>

</BODY>

</HTML>

经过这样设计的实时数据浏览页面，避免了页面刷新带来的闪动问题,使页面更加稳定美观。在生产企业站点、股市汇市查询、模拟图形设计等应用实践中，取得了良好的效果。

方案2

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

传统上,我们浏览网页,如果加入最新的数据.只能是等我们重新向服务器端请求时才能显示出来.但是,对于一些时效性很强的网站.传统的这种做法是不能满足的. 我们可以让程序自动刷新.定时向服务器请求数据.5秒取一次数据,10秒取一次数据.利用XMLHTTP发出请求并取得数据.传到客户端,客户端重新组织并显示数据.

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()
{
//2秒自动刷新一次,2秒取得一次数据.
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