asa akira资源:ASP 动态滚动显示ACCESS数据记录

<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条记录,每一次显示20条记录（其中每行4条记录)然后停顿5秒钟后，向上滚动再显示下一批20条记录，如此反复的循环下去