在运以下代码时 明数据库里面有数据却只显示“暂无数据”
请高手帮助分析一下吧
<%

dim conn,connstr
db="data.mdb"
on error resume next

connstr="DBQ="+server.MapPath(""&db&"")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject(adodb.connection)

if err then
err.clear
else
conn.open connstr
end if

set sql="select * from data order by ID desc"
set rs=conn.execute(sql)
if rs.eof then
response.Write"暂无数据"
else
do while not rs.eof
response.Write"&nbsp;"&rs("file")&""
rs.movenext
loop
end if
%>

你带个表格循环试试！

你加个表格试一下！！
<%
　　Set Rs=server.Createobject("ADODB.RECORDSET")
Rs.open "select * from data order by ID desc",Conn,1,1
do while not Rs.eof
%>
<table width="100%" border="0">
<tr>
<td width="16%"><div align="center" class="STYLE1">
<font face='wingdings'>4</font>
</div></td>
<td width="81%" id="tds"><%=oRs("AA")%></td><td width="3%">&nbsp;</td>
</tr>
</table>
<%
Rs.movenext
loop
Rs.close
%>

[此贴子已经被作者于2007-9-8 8:00:36编辑过]

建议把on error先去掉
我怀疑你的数据库未能打开
因为有它所以未报错
因为未能打开,所以永远都EOF

你用了ASP的关键词 DATA做表的名字.建议改个名字.试一下.

set conn=server.CreateObject(adodb.connection)
改成
set conn=server.CreateObject("adodb.connection")