随着网络的发展,利用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>
<!--<META NAME=“GENERATOR” Content=“Microsoft Visual Studio 6.0”>-->
//此处定义本页面每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
参考资料:http://www.kaysky.cn/blogview.asp?u=21&blog_id=65