1. 爱易网页
  2. ASP教程
  3. 如何实现无刷新更新数据呢，就是那种不闪烁的自动刷新

如何实现无刷新更新数据呢，就是那种不闪烁的自动刷新

日期：2014-05-17　 浏览次数：21401 次

怎么实现无刷新更新数据呢，就是那种不闪烁的自动刷新
我用asp页面显示数据库表中的内容，想能不闪烁的自动刷新。
看了半天文章也没有弄懂，干脆麻烦大虾帮我加上吧。
下面给出了我得页面例子。比如5秒钟刷新一次。


<%@   Language=VBScript%>
<%   Response.Expires=0%>
<%   Response.Buffer=TRUE%>
<!--#include   file= "conn.asp "-->
<%  
'dim   conn
set   Conn   =   GetConn()
%>
<html>
<head>
<meta   http-equiv= "Content-Type "   content= "text/html;   charset=gb2312 "   />
<title> </title>
<link   href= "css.css "   rel= "stylesheet "   type= "text/css ">
</head>
<body>
<%
set   rs   =   server.CreateObject( "adodb.recordset ")
sql   =   "SELECT   *   FROM   smp_web_client   order   by   lid   desc   "
rs.open   sql,conn,1,1

%>
<table   width= "98% "   border= "0 "   cellpadding= "5 "   cellspacing= "1 "   bgcolor= "#C3D1F5 "   ID= "Table1 ">
<tr>
<td   align= "center "   valign= "middle "   bgcolor= "#89C4F3 "> 序号 </td>
<td   align= "center "   valign= "middle "   bgcolor= "#89C4F3 "> 号码1 </td>
<td   align= "center "   valign= "middle "   bgcolor= "#89C4F3 "> 号码2 </td>
<td   align= "center "   valign= "middle "   bgcolor= "#89C4F3 "> 时间 </td>
</tr>
<%
rows=1
if   rs.RecordCount <> 0   then
rs.AbsolutePage=session( "currentpage ")
end   if

while   not   rs.EOF   and   rows <=rs.PageSize
    if   rows   mod   2   then   %>
<tr>
<td   align= "center "   valign= "middle "   bgcolor= "#FFFFFF "> <%=rs( "id ")%> </td>
<td   align= "center "   valign= "middle "   bgcolor= "#FFFFFF "> <%=rs( "num1 ")%> </td>
<td   align= "center "   valign= "middle "   bgcolor= "#FFFFFF "> <%=rs( "num2 ")%> </td>
<td   align= "center "   valign= "middle "   bgcolor= "#FFFFFF "> <%=rs( "date ")%> </td>
</tr>
<%else%>
<tr>
<td   align= "center "   valign= "middle "   bgcolor= "#E7F1FA "> <%=rs( "id ")%> </td>
<td   align= "center "   valign= "middle "   bgcolor= "#E7F1FA "> <%=rs( "num1 ")%> </td>
<td   align= "center "   valign= "middle "   bgcolor= "#E7F1FA "> <%=rs( "num2 ")%> </td>
<td   align= "center "   valign= "middle "   bgcolor= "#E7F1FA "> <%=rs( "date ")%> </td>
</tr>
<%end   if%>
<%
    rs.MoveNext
    rows=rows+1
wend
%>

相关资料更多>

  1. 求clsCache示例,该怎么处理
  2. MD5算法研究(1)_安全加密_ASP教程
  3. DataList小结_zj
  4. INSERT语法使用技巧一例
  5. 正则表达式（Regular Expression）
  6. asp写入据库有关问题
  7. 创建一个ASP通用分页类（二）代码部分
  8. 购物车的前台管理程序-只与服务器交互一次（一）
  9. 批量复制粘贴散布在不同目录下的同名文件