ASP 动态滚动显示ACCESS数据记录
<tablewidth="100%"border="0"cellspacing="0"cellpadding="4"><tr><tdcolspan="3"><B><img...
<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条记录,如此反复的循环下去 展开
<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条记录,如此反复的循环下去 展开
1个回答
展开全部
4月10日 11:02 通常是链接库的命令不对造成的
在 .mdb 前面加上/修改路径
我的写法:
connstr = "Provider=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("/AAA/BBB.mdb")
&";uid=;pwd=;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connstr
在本机和Internet上均能正确实现---因为遇到同样的问题修改后的结果
为了回避“敏感词汇”,上面代码部分改为了全角
在 .mdb 前面加上/修改路径
我的写法:
connstr = "Provider=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("/AAA/BBB.mdb")
&";uid=;pwd=;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connstr
在本机和Internet上均能正确实现---因为遇到同样的问题修改后的结果
为了回避“敏感词汇”,上面代码部分改为了全角
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询