实时数据刷新网页的

浅浅的花香味﹌ 2022-04-01 09:12 279阅读 0赞

# #

**魏岩 魏东生（weiyan\_72@sohu.com）**

--------------------

<table> 
 <tbody> 
 <tr> 
 <td> 随着网络的发展，利用ASP技术制作Web页面，来完成动态网站设计的方式，越来越得到广泛的应用。企业站点和其他商业站点，有时需要为用户提供查询实时变化的数据信息，而利用ASP技术完成这种功能会遇到实时数据的自动刷新问题。面对几秒钟变化一次的实时数据，HTML和ASP中VBScript、JavaScript语言仅为我们提供了页面Frame和窗口的刷新方法（即HTML的&lt;META HTTP-Equiv=“refresh” Content=……及ASP的window.location.reload()），这样会造成页面的刷新闪烁，影响了实时效果和页面的稳定美观。 面对这种情况，我们可以将实时数据显示页面DisplayMain.htm划分成左右两个框架（Frame）Fra_Left和Fra_Right。 DisplayMain.htm代码如下： &lt;HTML&gt; &lt;FRAMESET cols=“100%，*” Border=1&gt; &lt;FRAME NAME=“Fra_Left” scrolling=“auto”SRC=“Dis_Left.asp” noresize&gt; &lt;FRAME NAME=“Fra_Right”scrolling=“no” SRC=“Dis_Right.asp”&gt; &lt;/FRAMESET&gt; &lt;/HTML&gt; 其中框架Fra_Left完全占据页面,而框架Fra_ Right不占据页面空间。我们可以在Fra_Left框架中显示实时数据页面，而在右面框架Fra_Right中进行实时数据处理(产生查询结果数据集，并将结果数据集作为参数传递给左侧Fra_Left框架进行数据显示)，这样我们只要定时刷新右侧框架，左侧框架显示页面数据即可实时刷新，而不会出现页面闪动影响视觉效果。 Dis_Left.asp代码如下： &lt;%@ Language=VBScript %&gt; &lt;HTML&gt; &lt;HEAD&gt; &lt;META NAME=“GENERATOR” Content=“Microsoft Visual Studio 6.0”&gt; &lt;/HEAD&gt; &lt;BODY&gt; //此处可定义若干供显示实时数据的TEXT对象 &lt;form name=“sj”&gt; &lt;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”&gt; …… &lt;/form&gt; //或者定义一个可自动下载的OCX实时数据显示控件 //&lt;OBJECT 此处定义一个可自动下载的OCX实时数据显示控件&lt;/OBJECT&gt; &lt;/BODY&gt; &lt;/HTML&gt; 右侧框架Dis_Right.asp代码如下： &lt;%@ Language=VBScript %&gt; &lt;HTML&gt; &lt;HEAD&gt; &lt;!--&lt;META NAME=“GENERATOR” Content=“Microsoft Visual Studio 6.0”&gt;--&gt; //此处定义本页面每5秒刷新一次 &lt;META HTTP-Equiv=“refresh” Content=“5; url=Dis_Right.asp”NAME=“GENERATOR” Content=“Microsoft Visual Studio 6.0”&gt; &lt;/HEAD&gt; &lt;BODY&gt; &lt;% //建立数据库连接 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 &amp; rstemp(“val”) &amp; “；” CntStr = CntStr + 1 rstemp.MoveNext //也可将数据直接赋值给右侧TEXT对象 //Response.Write(“&lt;Script&gt; parent.Left .document.sj.text1.value=‘”+val+“’&lt;/Script&gt;”); loop rstemp.Close %&gt; &lt;SCRIPT LANGUAGE=VBScript&gt; //传递参数给右侧页面 parent.Left.document.控件名 “&lt;% =DataStr%&gt;” &lt;/SCRIPT&gt; &lt;% end if %&gt; &lt;/BODY&gt; &lt;/HTML&gt; 经过这样设计的实时数据浏览页面，避免了页面刷新带来的闪动问题,使页面更加稳定美观。在生产企业站点、股市汇市查询、模拟图形设计等应用实践中，取得了良好的效果。 </td> 
 </tr> 
 </tbody> 
</table>