实时数据刷新网页的

魏岩魏东生（weiyan_72@sohu.com）

随着网络的发展，利用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>

</HTML>

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

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

Dis_Left.asp代码如下：

<%@ Language=VBScript %>

<HTML>

<HEAD>

</HEAD>

<BODY>

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

……

</form>

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

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

</BODY>

</HTML>

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

<%@ Language=VBScript %>

<HTML>

<HEAD>

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

</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

//传递参数给右侧页面

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

=DataStr%>”

</SCRIPT>

end if

</BODY>

</HTML>

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