<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td colspan="3"><B><img src="images/hezhuo.gif" width="40" height="20">友情链接：</B> </td>
<td width="14%" colspan="2" align="right"><a href="Menu/logoweb.asp">我要加入>></a></td>
</tr>
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("database/mydata.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql="select * from mytable where commend=1"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
for i=1 to 5
if rs.eof then exit for
%>
<tr>
<%
for j=1 to 4
if rs.eof then exit for
%>
<td width="25%"><a href="<%=rs("url")%>" target="_blank"><%=rs("name")%></a> | </td>
<%
rs.movenext
next%>
</tr>
<%
next
%>
<%if rs.recordCount<=20 then%>
<tr>
<td width="20%" colspan="5" align="right"><a href="Menu/logoshow.asp?page=1" target="_blank">详情>></a>
</td>
</tr>
<%else%>
<tr>
<td width="20%" colspan="5" align="right"><a href="Menu/logoshow.asp?page=1" target="_blank">更多>></a></td>
</tr>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>

目前是只在当前页显示access数据库中前20条记录，现要求动态显示记录，每过5秒钟就显示下一批条20记录，求大侠们帮帮忙，不胜感激！

就是记录一批批地向上滚动，每一批显示20条记录（其中每行4条记录)，第一批记录显示后停顿5秒钟，然后再显示下一批20条记录，如此反复地循环下去

[此贴子已经被作者于2006-8-17 8:37:57编辑过]

首先谢谢大家，但我将这些都试了，好象都实现不了。

刚刚自己改了一些地方，现在能实现了，但滚动起来的效果不太理想，还望大侠们详细指点。相关代码如下：
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("database/mydata.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<script language="JavaScript">
function start_marquee(div,spd,step){
obj_marquee = document.getElementById(div);
marquee_high = parseInt(obj_marquee.style.height);
marquee_step = marquee_high/step;
obj_marquee.appendChild(obj_marquee.firstChild.cloneNode(true));
setInterval ("step_c=1;setTimeout('marquee_show("+step+")',0)", spd*1000);
}
function marquee_show(step){
obj_marquee.scrollTop += marquee_step;
if(obj_marquee.scrollTop >= obj_marquee.children[1].offsetTop) {
obj_marquee.scrollTop = 0;
}
if(step_c++ < step) setTimeout("marquee_show("+step+")", 0);
return;
}
</script>

<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td colspan="3"><B><img src="images/hezhuo.gif" width="40" height="20">友情链接：</B> </td>
<td width="14%" colspan="2" align="right"><a href="Menu/logoweb.asp">我要加入>></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#CCCCCC" height="110">
<tr>
<td bgcolor="F9F9F9" valign="top">
<div id="mydiv2" style="position:absolute; width:100%; height:100; z-index:2; ; overflow: hidden">
<div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><table width="100%">
<%
sql="select * from mytable where commend=1"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not rs.eof then
if (rs.recordcount mod 4)=0 then
for i=1 to (rs.recordcount/4)
if rs.eof then exit for
%>
<tr>
<%
for j=1 to 4 '一行显示4条记录
if rs.eof then exit for
%>
<td width="25%" height="25" valign="middle"><a href="<%=rs("url")%>" target="_blank"><%=rs("name")%></a> | </td>
<%
rs.movenext
next%>
</tr>
<%next
else
for i=1 to (rs.recordcount\4 + 1)
if rs.eof then exit for
%>
<tr>
<%
for j=1 to 4 '一行显示4条记录
if rs.eof then exit for
%>
<td width="25%" height="25" valign="middle"><a href="<%=rs("url")%>" target="_blank"><%=rs("name")%></a> | </td>
<%
rs.movenext
next%>
</tr>
<%
next
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table></td>
</tr>

</table>
</div>
</div>
</td>
</tr>
</table>
<script language="JavaScript">
start_marquee("mydiv2",10,100);
</script>

</table>

先谢谢9楼，但我测试一下还是不行，我要的效果是在一个网页的一个区域中,每间隔5秒数据库中第一批20条记录就向上滚动,接着显示下一批20条记录,如此反复地循环下去.